Ignore:
Timestamp:
Feb 26, 2009, 4:37:13 AM (11 years ago)
Author:
gb
Message:

Need to be careful about pc-lusring in .SPstore-node-conditional too;
need a new label to restart reliably.

File:
1 edited

Legend:

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

    r11793 r11794  
    22622262  egc_set_hash_key_conditional, egc_set_hash_key_conditional_success_test,
    22632263  egc_set_hash_key_conditional_retry,
    2264   egc_store_node_conditional_success_end,
     2264  egc_store_node_conditional_success_end, egc_store_node_conditional_retry,
    22652265  egc_store_node_conditional_success_test,egc_store_node_conditional,
    22662266  egc_set_hash_key, egc_gvset, egc_rplacd;
     
    25702570      xpGPR(xp,Iarg_z) = t_value;
    25712571    } else if (program_counter >= &egc_store_node_conditional) {
     2572      if (program_counter <= &egc_store_node_conditional_retry) {
     2573        return;
     2574      }
    25722575      if ((program_counter < &egc_store_node_conditional_success_test) ||
    25732576          ((program_counter == &egc_store_node_conditional_success_test) &&
    25742577           !(eflags_register(xp) & (1 << X86_ZERO_FLAG_BIT)))) {
    25752578        /* Back up the PC, try again */
    2576         xpPC(xp) = (LispObj) &egc_store_node_conditional;
     2579        xpPC(xp) = (LispObj) &egc_store_node_conditional_retry;
    25772580        return;
    25782581      }
Note: See TracChangeset for help on using the changeset viewer.