aboutsummaryrefslogtreecommitdiff
path: root/src/main/stanza/ir-utils.stanza
diff options
context:
space:
mode:
Diffstat (limited to 'src/main/stanza/ir-utils.stanza')
-rw-r--r--src/main/stanza/ir-utils.stanza5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/main/stanza/ir-utils.stanza b/src/main/stanza/ir-utils.stanza
index 25006659..8f260e8c 100644
--- a/src/main/stanza/ir-utils.stanza
+++ b/src/main/stanza/ir-utils.stanza
@@ -128,7 +128,10 @@ public defn to-int (x:Long) -> Int :
else : to-int(to-string(x))
public defn req-num-bits (i: Int) -> Int :
- max(1, ceil-log2(i + 1))
+ val i* =
+ if i < 0 : ((-1 * i) - 1)
+ else : i
+ ceil-log2(i* + 1) + 1
;============== PRINTERS ===================================