summaryrefslogtreecommitdiff
path: root/module/language/assembly.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-02-14 22:54:19 +0100
committerAndy Wingo <wingo@pobox.com>2009-02-14 22:55:26 +0100
commit1005628ab59e3761fb3216f147cf4eec65adc3a0 (patch)
tree43cab65f897858da2df5a1ddcf42f4df7415acc7 /module/language/assembly.scm
parentb96dac4d0ed1cea031b84966c2563c768180fd74 (diff)
downloadguile-1005628ab59e3761fb3216f147cf4eec65adc3a0.tar.gz
better alignment
* module/language/assembly.scm (align-program): Whoops, align programs properly. * module/language/glil/compile-assembly.scm (compile-assembly): Start with addr=-1, for the unserialized load-program byte. (glil->assembly): Align programs in all cases.
Diffstat (limited to 'module/language/assembly.scm')
-rw-r--r--module/language/assembly.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/assembly.scm b/module/language/assembly.scm
index fbe3a7153..42fd5f0e1 100644
--- a/module/language/assembly.scm
+++ b/module/language/assembly.scm
@@ -66,7 +66,8 @@
(define (align-program prog addr)
`(,@(make-list (modulo (- *program-alignment*
- (modulo addr *program-alignment*))
+ (modulo (1+ addr) *program-alignment*))
+ ;; plus the one for the load-program inst itself
*program-alignment*)
'(nop))
,prog))