Changeset 8904


Ignore:
Timestamp:
Mar 27, 2008, 9:30:24 PM (11 years ago)
Author:
rme
Message:

.SPconslist

File:
1 edited

Legend:

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

    r8899 r8904  
    13801380
    13811381_spentry(conslist)
    1382         __(int $3)
     1382        __(movl %nargs,%imm0)
     1383        __(movl %temp0,%temp1)  /* have to use temp0 for consing */
     1384        __(movl $nil_value,%arg_z)
     1385        __(test %imm0,%imm0)
     1386        __(jmp 2f)
     13871:      __(pop %arg_y)
     1388        __(Cons(%arg_y,%arg_z,%arg_z))
     1389        __(subl $node_size,%imm0)
     13902:      __(jnz 1b)
     1391        __(jmp *%temp1)
    13831392_endsubp(conslist)
    13841393
Note: See TracChangeset for help on using the changeset viewer.