From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 4 Oct 2020 01:19:31 +0000 (+0100)
Subject: seems to work ??
X-Git-Tag: otter-0.2.0~773
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=569f1fff329613e89711424d154e722f61315628;p=otter.git

seems to work ??

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/templates/bigfloat.ts b/templates/bigfloat.ts
index ee52034c..2bd16575 100644
--- a/templates/bigfloat.ts
+++ b/templates/bigfloat.ts
@@ -65,7 +65,9 @@ class Bigfloat {
   }
 
   private extend_left() {
-    this.limbs.unshift(Bigfloat.l0_value(this.limbs[0]));
+    let l0 = this.limbs[0] > Bigfloat.LIMB_NEGATIVE
+	? Bigfloat.LIMB_MODULUS-1 : 0;
+    this.limbs.unshift(l0);
     this.exponent++;
   }