Changeset 13849


Ignore:
Timestamp:
Jun 16, 2010, 9:47:43 AM (9 years ago)
Author:
gb
Message:

Write barrier comparisons of value/location were all backwards.
_SPstack_cons_rest_arg: get list length (in temp0) right.

File:
1 edited

Legend:

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

    r13845 r13849  
    802802        __(cmp arg_z,arg_y)
    803803        __(_rplaca(arg_y,arg_z))
    804         __(bxhs lr)
     804        __(bxlo lr)
    805805        __(ref_global(temp0,ref_base))
    806806        __(sub imm0,arg_y,temp0)
     
    828828        __(cmp arg_z,arg_y)
    829829        __(_rplacd(arg_y,arg_z))
    830         __(bxhs lr)
     830        __(bxlo lr)
    831831        __(ref_global(temp0,ref_base))
    832832        __(sub imm0,arg_y,temp0)
     
    857857        __(add imm0,arg_y,#misc_data_offset)
    858858        __(str arg_z,[arg_x,imm0])
    859         __(bxhs lr)
     859        __(bxlo lr)               
    860860        __(add imm0,imm0,arg_x)
    861861        __(ref_global(temp0,ref_base))
     
    879879
    880880       
    881 dnl /* This is a special case of storing into a gvector: if we need to memoize  */
    882 dnl /* the store, record the address of the hash-table vector in the refmap,  */
    883 dnl /* as well. */
     881/* This is a special case of storing into a gvector: if we need to memoize  */
     882/* the store, record the address of the hash-table vector in the refmap,  */
     883/* as well. */
    884884        .globl C(egc_set_hash_key)       
    885885_spentry(set_hash_key)
     
    888888        __(add imm0,arg_y,#misc_data_offset)
    889889        __(str arg_z,[arg_x,imm0])
    890         __(bxhs lr)
     890        __(bxlo lr)
    891891        __(add imm0,imm0,arg_x)
    892892        __(ref_global(temp0,ref_base))
     
    961961        __(bne 1b)
    962962        __(cmp arg_z,arg_x)
    963         __(bhi 4f)
     963        __(blo 4f)
    964964
    965965        __(ref_global(imm0,ref_base))
     
    10001000        __(bne 0b)
    10011001        __(cmp arg_z,arg_x)
    1002         __(bhi 4f)
     1002        __(blo 4f)
    10031003        __(ref_global(temp0,ref_base))
    10041004        __(sub imm0,imm2,temp0)
     
    14291429
    14301430_spentry(stack_cons_rest_arg)
    1431         __(sub imm1,nargs,imm0)
    1432         __(cmp imm1,#0)
     1431        __(subs imm1,nargs,imm0)
    14331432        __(mov arg_z,#nil_value)
    14341433        __(ble 2f)  /* always temp-push something.  */
     1434        __(mov temp0,imm1)
    14351435        __(add imm1,imm1,imm1)
    1436         __(mov temp0,imm1)
    14371436        __(add imm1,imm1,#node_size)
    14381437        __(dnode_align(imm0,imm1,node_size))
Note: See TracChangeset for help on using the changeset viewer.