Changeset 8476


Ignore:
Timestamp:
Feb 13, 2008, 3:35:34 AM (12 years ago)
Author:
gb
Message:

SPgvector: account for nargs being off by one.

Location:
trunk/source/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/ppc-spentry.s

    r7624 r8476  
    947947/* because nargs < 32K.  */
    948948_spentry(gvector)
     949        __(subi nargs,nargs,node_size)
    949950        __(ldrx(arg_z,vsp,nargs))
    950951        __(unbox_fixnum(imm0,arg_z))
  • trunk/source/lisp-kernel/x86-spentry64.s

    r8469 r8476  
    20762076/* objects.   */
    20772077_spentry(gvector)
     2078        __(subl $node_size,%nargs)
    20782079        __(movq (%rsp,%nargs_q),%imm0)  /* boxed subtype   */
    20792080        __(sarq $fixnumshift,%imm0)
Note: See TracChangeset for help on using the changeset viewer.