diff options
Diffstat (limited to 'src/modules/generator/generator.scm')
| -rw-r--r-- | src/modules/generator/generator.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/modules/generator/generator.scm b/src/modules/generator/generator.scm index 53be252..4a36b92 100644 --- a/src/modules/generator/generator.scm +++ b/src/modules/generator/generator.scm @@ -16,7 +16,7 @@ (define (g-expr e) ;; for now, we assume only 'return'! - (list (make-instruction "movl" (string-append/shared "$" (number->string (expr-int e))) "%eax") + (list (make-instruction "movl" (string-append/shared "$" (number->string (const-int (expr-type e)))) "%eax") (make-instruction "ret" #f #f))) (define (g-id i) |