projects
/
mes.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7670d6b
)
mescc: Put char's ASCII code into register, not char.
author
Danny Milosavljevic
<dannym@scratchpost.org>
Thu, 30 May 2019 20:11:37 +0000
(22:11 +0200)
committer
Jan Nieuwenhuizen
<janneke@gnu.org>
Thu, 30 May 2019 20:11:37 +0000
(22:11 +0200)
* module/mescc/compile.scm (expr-register): Put char's ASCII code into
register, not char.
module/mescc/compile.scm
patch
|
blob
|
history
diff --git
a/module/mescc/compile.scm
b/module/mescc/compile.scm
index 39b352c09b97bba9a0222141aa4a7815a5a0bddf..ba6900a851d567ab7ce2b468774d9e37a1a66dba 100644
(file)
--- a/
module/mescc/compile.scm
+++ b/
module/mescc/compile.scm
@@
-942,7
+942,7
@@
(,char (guard (char? char))
(let ((info (allocate-register info)))
- (append-text info (wrap-as (as info 'value->r
char
)))))
+ (append-text info (wrap-as (as info 'value->r
(char->integer char)
)))))
((p-expr (ident ,name))
(let ((info (allocate-register info)))