Changeset 15836


Ignore:
Timestamp:
Jun 13, 2013, 8:26:35 PM (6 years ago)
Author:
gb
Message:

pc_luser_xp(): get write barrier ea calculation right on ARM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gb-egc/lisp-kernel/arm-exceptions.c

    r15832 r15836  
    16001600      }
    16011601      root = xpGPR(xp,arg_x);
    1602       ea = (LispObj *) (root+xpGPR(xp,arg_y)+misc_data_offset);
     1602      ea = (LispObj *) (root+unbox_fixnum(xpGPR(xp,temp2)));
    16031603      need_memoize_root = true;
    16041604    } else if (program_counter >= &egc_store_node_conditional) {
     
    16181618      root = xpGPR(xp,arg_x);
    16191619      val = xpGPR(xp,arg_z);
    1620       ea = (LispObj *) (root+unbox_fixnum(xpGPR(xp,temp2)));
     1620      ea = (LispObj *) (root+xpGPR(xp,arg_y)+misc_data_offset);
    16211621      need_memoize_root = true;
    16221622    } else if (program_counter >= &egc_gvset) {
Note: See TracChangeset for help on using the changeset viewer.