diff options
Diffstat (limited to 'src/main/stanza/ir-utils.stanza')
| -rw-r--r-- | src/main/stanza/ir-utils.stanza | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/main/stanza/ir-utils.stanza b/src/main/stanza/ir-utils.stanza index 1131c1b3..6754a8bd 100644 --- a/src/main/stanza/ir-utils.stanza +++ b/src/main/stanza/ir-utils.stanza @@ -113,6 +113,12 @@ defmethod print (o:OutputStream, op:PrimOp) : AS-SINT-OP : "as-SInt" AS-SINT-U-OP : "as-SInt-u" AS-SINT-S-OP : "as-SInt-s" + DYN-SHIFT-LEFT-OP : "dshl" + DYN-SHIFT-LEFT-U-OP : "dshl-u" + DYN-SHIFT-LEFT-S-OP : "dshl-s" + DYN-SHIFT-RIGHT-OP : "dshr" + DYN-SHIFT-RIGHT-U-OP : "dshr-u" + DYN-SHIFT-RIGHT-S-OP : "dshr-s" SHIFT-LEFT-OP : "shl" SHIFT-LEFT-U-OP : "shl-u" SHIFT-LEFT-S-OP : "shl-s" @@ -416,3 +422,13 @@ public defn contains (l:List<Char>, c:Char) : public defn merge!<?K,?V> (a:HashTable<?K,?V>, b:HashTable<K,V>) : for e in b do : a[key(e)] = value(e) + +public defn pow (x:Int,y:Int) -> Int : + var x* = 1 + var y* = y + while y* != 0 : + x* = x* * x + y* = y* - 1 + x* + + |