Ignore:
Timestamp:
Mar 4, 2008, 5:15:34 AM (12 years ago)
Author:
gb
Message:

Use (:rcontext tcr-field) syntax to reference TCR fields.
Don't use SAVE3 (was used for debugging of heap-walking code; might
be used in %%APPLY-IN-FRAME-PROTO if caller sets it.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-0/X86/x86-def.lisp

    r8356 r8649  
    216216(defx86lapfunction %current-tsp ()
    217217  (check-nargs 0)
    218   (movq (@ (% :rcontext) x8664::tcr.save-tsp) (% arg_z))
     218  (movq (:rcontext x8664::tcr.save-tsp) (% arg_z))
    219219  (single-value-return))
    220220
     
    279279  (check-nargs 1)
    280280  (movl ($ x8664::nil-value) (%l arg_y))
    281   (movq (@ (% :rcontext) x8664::tcr.catch-top) (% arg_z))
     281  (movq (:rcontext x8664::tcr.catch-top) (% arg_z))
    282282  (testb (%b arg_z) (%b arg_z))
    283283  (cmoveq (% arg_y) (% arg_z))
     
    301301
    302302(defx86lapfunction %save-standard-binding-list ((bindings arg_z))
    303   (movq (@ (% :rcontext) x8664::tcr.vs-area) (% imm0))
     303  (movq (:rcontext x8664::tcr.vs-area) (% imm0))
    304304  (movq (@ x8664::area.high (% imm0)) (% imm1))
    305305  (subq ($ x8664::node-size) (% imm1))
     
    308308
    309309(defx86lapfunction %saved-bindings-address ()
    310   (movq (@ (% :rcontext) x8664::tcr.vs-area) (% imm0))
     310  (movq (:rcontext x8664::tcr.vs-area) (% imm0))
    311311  (movq (@ x8664::area.high (% imm0)) (% imm1))
    312312  (lea (@ (- x8664::node-size) (% imm1)) (% arg_z))
     
    561561  (movq (@ 56 (% temp0)) (% fp7))
    562562  (call-subprim .SPffcall)
    563   (movq (@ (% :rcontext) x8664::tcr.foreign-sp) (% mm5))
     563  (movq (:rcontext x8664::tcr.foreign-sp) (% mm5))
    564564  (movq (% mm5) (@ (% frame)))
    565   (movq (% frame) (@ (% :rcontext) x8664::tcr.foreign-sp))
     565  (movq (% frame) (:rcontext x8664::tcr.foreign-sp))
    566566  (movq (% rax) (@ 8 (% frame)))
    567567  (movq (% fp0) (@ 16 (% frame)))
Note: See TracChangeset for help on using the changeset viewer.