Changeset 9300


Ignore:
Timestamp:
Apr 27, 2008, 2:10:47 AM (11 years ago)
Author:
rme
Message:

Functions %current-db-link, %no-thread-local-binding-marker.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-misc.lisp

    r9270 r9300  
    691691(defun get-saved-register-values ()
    692692  (values))
     693
     694(defx8632lapfunction %current-db-link ()
     695  (movl (@ (% :rcontext) x8632::tcr.db-link) (% arg_z))
     696  (single-value-return))
     697
     698(defx8632lapfunction %no-thread-local-binding-marker ()
     699  (movl ($ x8632::subtag-no-thread-local-binding) (% arg_z))
     700  (single-value-return))
Note: See TracChangeset for help on using the changeset viewer.