Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits: 7a34dbd6 by Raymond Toy at 2017-01-01T16:47:34-08:00 Generate correct function header and lra header.
Need to add extra words in xep-allocate-frame to make sure we have sapce to hold the 64-bit fields of the function header. Same for lra-header too.
- - - - -
2 changed files:
- src/compiler/sparc64/call.lisp - src/compiler/sparc64/macros.lisp
Changes:
===================================== src/compiler/sparc64/call.lisp ===================================== --- a/src/compiler/sparc64/call.lisp +++ b/src/compiler/sparc64/call.lisp @@ -174,8 +174,10 @@ (trace-table-entry trace-table-function-prologue) (emit-label start-lab) ;; Allocate function header. + (inst word 0) (inst function-header-word) (dotimes (i (1- vm:function-code-offset)) + (inst word 0) (inst word 0)) ;; The start of the actual code. ;; Fix CODE, cause the function object was passed in.
===================================== src/compiler/sparc64/macros.lisp ===================================== --- a/src/compiler/sparc64/macros.lisp +++ b/src/compiler/sparc64/macros.lisp @@ -144,6 +144,7 @@ `(progn (align lowtag-bits) (emit-label ,label) + (inst word 0) (inst lra-header-word)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/7a34dbd65fd90df5879e83d7a4...