hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added more bigint code

Browse Source
This commit is contained in:
hyung-hwan
2014-02-23 16:57:31 +00:00
parent a9bd93d6f4
commit 1b24692695
3 changed files with 195 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
h2/lib/h2-scheme.adb
View File

@ -2659,8 +2659,10 @@ Push_Top (Interp, B'Unchecked_Access);
--A := Bigint.Add (Interp.Self, A, B);
--end loop;
A := Make_Bigint (Interp.Self, Value => 16#FFFF_00000001#);
B := Make_Bigint (Interp.Self, Value => 16#0000_0000000F#);
A := Bigint.Subtract (Interp.Self, A, B);
B := Make_Bigint (Interp.Self, Value => 16#FFFF_0000000F#);
--A := Bigint.Subtract (Interp.Self, integer_to_pointer(16), B);
A := Bigint.Subtract (Interp.Self, B, integer_to_pointer(16));
print (interp, A);
Pop_tops (Interp, 2);
end;
Ada.Text_IO.Put_LINE ("=== BYE ===");