Mercurial > repos > tabletprog
comparison modules/x86.tp @ 199:3b13ced3b562
Remove some debug print expressions
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Tue, 27 Aug 2013 22:53:30 -0700 |
| parents | 3606a7cb3999 |
| children | 56b2100d9fff |
comparison
equal
deleted
inserted
replaced
| 198:3606a7cb3999 | 199:3b13ced3b562 |
|---|---|
| 593 } | 593 } |
| 594 retval | 594 retval |
| 595 } | 595 } |
| 596 needSaveForCall <- { | 596 needSaveForCall <- { |
| 597 retval <- #[] | 597 retval <- #[] |
| 598 print: "Used: " . (hex: _used) . "\n" | |
| 599 foreach: #[(_tempregs) (_argregs)] :_ regs { | 598 foreach: #[(_tempregs) (_argregs)] :_ regs { |
| 600 foreach: regs :_ reg { | 599 foreach: regs :_ reg { |
| 601 print: "Checking bit: " . (hex: (lshift: 1 by: (reg num))) . "\n" | |
| 602 if: (_used and (lshift: 1 by: (reg num))) != 0 { | 600 if: (_used and (lshift: 1 by: (reg num))) != 0 { |
| 603 print: (string: reg) . " needs saving for call\n" | |
| 604 retval append: reg | 601 retval append: reg |
| 605 } | 602 } |
| 606 } | 603 } |
| 607 } | 604 } |
| 608 retval | 605 retval |