Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/compiler/sparc64/call.lisp
    ... ... @@ -174,8 +174,10 @@
    174 174 
         (trace-table-entry trace-table-function-prologue)
    175 175 
         (emit-label start-lab)
    176 176 
         ;; Allocate function header.
    177 
    +    (inst word 0)
    177 178 
         (inst function-header-word)
    178 179 
         (dotimes (i (1- vm:function-code-offset))
    180 
    +      (inst word 0)
    179 181 
           (inst word 0))
    180 182 
         ;; The start of the actual code.
    181 183 
         ;; Fix CODE, cause the function object was passed in.

  • src/compiler/sparc64/macros.lisp
    ... ... @@ -144,6 +144,7 @@
    144 144 
       `(progn
    145 145 
          (align lowtag-bits)
    146 146 
          (emit-label ,label)
    147 
    +     (inst word 0)
    147 148 
          (inst lra-header-word)))
    148 149
    149 150

    • —
    View it on GitLab.
    You're receiving this email because of your account on gitlab.common-lisp.net. If you'd like to receive fewer emails, you can adjust your notification settings.