Changeset 13785


Ignore:
Timestamp:
Jun 5, 2010, 11:20:03 PM (9 years ago)
Author:
gb
Message:

Get t_offset, nrs stuff in the right place.
Definitions for .SPdebind.

Location:
branches/arm/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-constants.s

    r13754 r13785  
    172172/* set in the result. */
    173173
    174 t_offset = ((dnode_size-fulltag_nil)+fulltag_misc)
     174t_offset = (dnode_size+(dnode_size-fulltag_nil)+fulltag_misc)
    175175t_value = nil_value+t_offset
    176176
     
    395395       
    396396        _struct(nrs,0)
    397          _struct_pad(dnode_size-fulltag_nil)
     397         _struct_pad(dnode_size+dnode_size-fulltag_nil)
    398398
    399399         _struct_pad(fulltag_misc)
     
    664664/* registers, as used in destrucuring-bind/macro-bind */
    665665
    666 define(`whole_reg',`temp1')
    667 define(`arg_reg',`temp0')
     666define(`arg_reg',`arg_z')
    668667define(`keyvect_reg',`temp2')
    669 define(`mask_req_start',`24')
    670 define(`mask_req_width',`8')
    671 define(`mask_opt_start',`16')
    672 define(`mask_opt_width',`8')
    673 define(`mask_key_start',`8')
    674 define(`mask_key_width',`8')
    675 define(`mask_initopt',`7')
    676 define(`mask_keyp',`6') /*  note that keyp can be true even when 0 keys. */
    677 define(`mask_aok',`5')
    678 define(`mask_restp',`4')
     668define(`mask_keyp',`(1<<24)') /*  note that keyp can be true even when 0 keys. */
     669define(`mask_aok',`(1<<25)')
     670define(`mask_restp',`(1<<26)')
     671define(`mask_aok_seen',`(1<<27)')
     672define(`mask_unknown_keyword_seen',`(1<<28)')               
     673define(`mask_initopt',`(1<<29)')
    679674
    680675define(`STACK_ALIGN',8)
  • branches/arm/lisp-kernel/lisp_globals.h

    r13730 r13785  
    112112#ifdef ARM
    113113#define lisp_global(g) (((LispObj *) (0x10000000))[(g)])
    114 #define nrs_symbol(s) (((lispsymbol *) (0x10000008))[(s)])
     114#define nrs_symbol(s) (((lispsymbol *) (0x10000010))[(s)])
    115115#endif
    116116
Note: See TracChangeset for help on using the changeset viewer.