Ignore:
Timestamp:
May 26, 2013, 7:49:59 PM (7 years ago)
Author:
gb
Message:

Revert to r15810.

File:
1 edited

Legend:

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

    r15822 r15826  
    16441644        return;
    16451645      }
    1646       ea = (LispObj*)(xpGPR(xp,arg_x) + unbox_fixnum(xpGPR(xp,temp2)));
     1646      ea = (LispObj*)(xpGPR(xp,arg_x) + xpGPR(xp,imm0));
    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+unbox_fixnum(xpGPR(xp,temp2)));
     1654      ea = (LispObj *) (root+xpGPR(xp,arg_y)+misc_data_offset);
    16551655      need_memoize_root = true;
    16561656    } else if (program_counter >= &egc_gvset) {
     
    16781678          ((LispObj)ea < val)) {
    16791679        atomic_set_bit(refbits, bitnumber);
    1680         atomic_set_bit(global_refidx, bitnumber>>8);
    16811680        if (need_memoize_root) {
    16821681          bitnumber = area_dnode(root, lisp_global(REF_BASE));
    16831682          atomic_set_bit(refbits, bitnumber);
    1684           atomic_set_bit(global_refidx,bitnumber>>8);
    16851683        }
    16861684      }
Note: See TracChangeset for help on using the changeset viewer.