Changeset 10449


Ignore:
Timestamp:
Aug 12, 2008, 7:02:20 PM (11 years ago)
Author:
rme
Message:

%SAFE-GET-PTR for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-misc.lisp

    r10407 r10449  
    672672  (single-value-return))
    673673
     674(defx8632lapfunction %safe-get-ptr ((src arg_y) (dest arg_z))
     675  (check-nargs 2)
     676  (save-simple-frame)
     677  (macptr-ptr src imm0)
     678  (leal (@ (:^ done) (% fn)) (% ra0))
     679  (movl (% imm0) (@ (% :rcontext) x8632::tcr.safe-ref-address))
     680  (movl (@ (% imm0)) (% imm0))
     681  (jmp done)
     682  (:tra done)
     683  (recover-fn)
     684  (movl ($ 0) (@ (% :rcontext) x8632::tcr.safe-ref-address))
     685  (movl (% imm0) (@ x8632::macptr.address (% dest)))
     686  (restore-simple-frame)
     687  (single-value-return))
     688
    674689(defx8632lapfunction %%tcr-interrupt ((target arg_z))
    675690  (check-nargs 1)
Note: See TracChangeset for help on using the changeset viewer.