Ignore:
Timestamp:
May 25, 2013, 8:59:28 AM (7 years ago)
Author:
gb
Message:

Bother to maintain refidx in _SPstore_node_conditional.
Preserve temp2 in _SPstore_node_conditional, _SPset_hash_key conditional;
Use unboxed temp2 to determine ea in pc_luser_xp for those subprims.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/arm-exceptions.c

    r15819 r15822  
    16441644        return;
    16451645      }
    1646       ea = (LispObj*)(xpGPR(xp,arg_x) + xpGPR(xp,imm0));
     1646      ea = (LispObj*)(xpGPR(xp,arg_x) + unbox_fixnum(xpGPR(xp,temp2)));
    16471647      xpGPR(xp,arg_z) = t_value;
    16481648    } else if (program_counter >= &egc_set_hash_key) {
     
    16521652      root = xpGPR(xp,arg_x);
    16531653      val = xpGPR(xp,arg_z);
    1654       ea = (LispObj *) (root+xpGPR(xp,arg_y)+misc_data_offset);
     1654      ea = (LispObj *) (root+unbox_fixnum(xpGPR(xp,temp2)));
    16551655      need_memoize_root = true;
    16561656    } else if (program_counter >= &egc_gvset) {
Note: See TracChangeset for help on using the changeset viewer.