[Git][cmucl/cmucl][sparc64-dev] Generate correct function header and lra header.

[Raymond Toy]

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/7a34dbd65fd90df5879e83d7a4daced75cdc286c
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170102/aeb9e2b9/attachment.html>