Changeset 9299


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

Version of extract_lisptag that uses full-width registers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lisp-kernel/x86-macros.s

    r9188 r9299  
    581581        __(cmpb $fulltag_nil,$1_b)
    582582])])
    583        
     583
     584ifdef([X8632],[
     585define([extract_lisptag],[
     586        __(movl $1,$2)
     587        __(and [$]tagmask,$2)
     588])],[
    584589define([extract_lisptag],[
    585590        __(movzbl $1_b,$2_l)
    586591        __(andb [$]tagmask,$2_b)
    587 ])
     592])])
    588593
    589594                                                               
Note: See TracChangeset for help on using the changeset viewer.