Commit e0a39273 authored by Raphaël Rieu-Helft's avatar Raphaël Rieu-Helft

Add support for functions that return tuples, fix while bug

parent e10f1fad
......@@ -13,6 +13,7 @@ module ref.Ref
syntax type ref "%1"
syntax val ref "%1"
syntax val (!_) "%1"
syntax converter (!_) "%1"
syntax val (:=) "%1 = %2"
end
......
......@@ -273,7 +273,7 @@ module N
>= power radix (k-1)
> ((value_sub_shift x (k-1)) - (value_sub_shift y (k-1)))
};
res := Int32.of_int (-1)
res := Int32.(-_) (Int32.of_int 1)
end;
raise Return32 !res;
end
......@@ -1613,7 +1613,7 @@ module N
let limb_zero = Limb.of_int 0 in
let zero = Int32.of_int 0 in
let one = Int32.of_int 1 in
let minus_one = Int32.of_int (-1) in
let minus_one = Int32.(-_) (Int32.of_int 1) in
let msb = Int32.(-) sz one in
let xp = ref (C.incr x msb) in
let rp = ref (C.incr r msb) in
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment