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