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

changed to call printf in test-bi

Browse Source
This commit is contained in:
hyunghwan.chung 2019-08-24 15:45:08 +00:00
parent 018a4790d0
commit c8e22fbd92
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
moo/kernel/test-bi.moo
View File

@ -37,7 +37,7 @@ class MyObject(Object)
method(#class) testBigintDiv2 method(#class) testBigintDiv2
{ {
| ffi i q r divd divr divd_ubound divr_ubound now x | | ffi now |
ffi := FFI new: 'libc.so.6'. ffi := FFI new: 'libc.so.6'.
@ -46,8 +46,10 @@ class MyObject(Object)
ffi call: #srandom signature: 'i>' arguments: ##(now). ffi call: #srandom signature: 'i>' arguments: ##(now).
[ [
| i q r divd divr divd_ubound divr_ubound x |
divr_ubound := 16rFFFFFFFFFFFFFFFFFFFFFFFF. divr_ubound := 16rFFFFFFFFFFFFFFFFFFFFFFFF.
divd_ubound := 16rFFFFFFFFFFFFFFFFFFFFFFFF. divd_ubound := 16rFFFFFFFFFFFFFFFFFFFFFFFF.
i := 0.
while (true) while (true)
{ {
@ -74,12 +76,14 @@ class MyObject(Object)
}. }.
if (divr = 0) { divr := 1 }. if (divr = 0) { divr := 1 }.
i := i + 1.
ffi call: #printf signature: 's|l>l' arguments: ##("%d\r", i).
q := divd div: divr. q := divd div: divr.
r := divd rem: divr. r := divd rem: divr.
if (divd ~= (q * divr + r)) if (divd ~= (q * divr + r))
{ {
// dump numbers if result is wrong // dump numbers if result is wrong
i dump.
divd dump. divd dump.
divr dump. divr dump.
q dump. q dump.