Mercurial > emacs
comparison lisp/international/ccl.el @ 56029:f2f5948989a5
(ccl-dump-call): Fix printing the subroutine name.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 11 Jun 2004 05:58:29 +0000 |
| parents | 74d57e5bfed4 |
| children | 322d95d05b23 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 56028:32381d1c4eab | 56029:f2f5948989a5 |
|---|---|
| 1118 | 1118 |
| 1119 (defun ccl-dump-write-register (rrr cc) | 1119 (defun ccl-dump-write-register (rrr cc) |
| 1120 (insert (format "write r%d (%d remaining)\n" rrr cc))) | 1120 (insert (format "write r%d (%d remaining)\n" rrr cc))) |
| 1121 | 1121 |
| 1122 (defun ccl-dump-call (ignore cc) | 1122 (defun ccl-dump-call (ignore cc) |
| 1123 (insert (format "call subroutine #%d\n" cc))) | 1123 (let ((subroutine (car (ccl-get-next-code)))) |
| 1124 (insert (format "call subroutine `%s'\n" subroutine)))) | |
| 1124 | 1125 |
| 1125 (defun ccl-dump-write-const-string (rrr cc) | 1126 (defun ccl-dump-write-const-string (rrr cc) |
| 1126 (if (= rrr 0) | 1127 (if (= rrr 0) |
| 1127 (progn | 1128 (progn |
| 1128 (insert "write char") | 1129 (insert "write char") |