diff options
| author | bd <bdunahu@operationnull.com> | 2025-01-04 22:43:31 -0700 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-01-04 22:43:31 -0700 |
| commit | 0d69984338399a78a3ba6f3a2493f1ffb34964f8 (patch) | |
| tree | a0ed32f2d0fb5a9ea8d47a4239425a4c87b26e07 /src/modules/generator/generator.scm | |
| parent | 28116b7a9e77df0476f5dc15369637d508c1bfcb (diff) | |
Modify parser to handle unary operators
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) |