debugging bigint division

This commit is contained in:
hyunghwan.chung
2019-04-03 19:28:14 +00:00
parent 98e5deca4f
commit 3d4e0396ca
2 changed files with 4 additions and 4 deletions

View File

@ -132,7 +132,7 @@ extend MyObject
q := divd div: divr.
r := divd rem: divr.
ifnot (divd = (q * divr + r)) { divd dump. divr dump. q dump. r dump. ^false. }.
ifnot (divd = (q * divr + r)) { i dump. divd dump. divr dump. q dump. r dump. ^false. }.
i := i + 1.
}.