Ticket #742: warning-from-jw-possibly-broken-savemstack.diff

runtime.c

@@ -1792 +1792 @@
 
 void C_fcall C_callback_adjust_stack(C_word *a, int size)
 {
-  if(!chicken_is_running && !C_in_stackp((C_word)a)) {
+  if(!chicken_is_running && !C_i_in_stackp((C_word)a)) {
     if(debug_mode)
       C_dbg(C_text("debug"), 
             C_text("callback invoked in lower stack region - adjusting limits:\n"
@@ -1966 +1966 @@
 
   key = hash_string(len, str, stable->size);
 
-  if(C_truep(s = lookup(key, len, str, stable))) {
-    if(C_in_stackp(s)) C_mutate(slot, s);
-    
-    return s;
-  }
+  if(C_truep(s = lookup(key, len, str, stable)))
+    return C_mutate(slot, s);
 
   s = C_static_string(C_heaptop, len, str);
   return add_symbol(C_heaptop, key, s, stable);
@@ -2109 +2106 @@
 }
 
 
-C_regparm int C_in_stackp(C_word x)
+C_inline C_regparm int C_i_in_stackp(C_word x)
 {
   C_word *ptr = (C_word *)(C_uword)x;
 
@@ -2120 +2117 @@
 #endif
 }
 
+C_regparm int C_in_stackp(C_word x)
+{
+  return C_i_in_stackp(x);
+}
 
 C_regparm int C_fcall C_in_heapp(C_word x)
 {
@@ -2539 +2540 @@
 {
   unsigned int mssize, newmssize, bytes;
 
-  if(!C_immediatep(val)) {
+  if(!C_immediatep(val) && C_i_in_stackp(val)) {
 #ifdef C_GC_HOOKS
     if(C_gc_mutation_hook != NULL && C_gc_mutation_hook(slot, val)) return val;
 #endif
@@ -3362 +3363 @@
         if(is_fptr(h))          /* forwarded? update l-table entry */
           loc = locative_table[ i ] = fptr_to_ptr(h);
         /* otherwise it must have been GC'd (since this is a minor one) */
-        else if(C_in_stackp(loc)) {
+        else if(C_i_in_stackp(loc)) {
           locative_table[ i ] = C_SCHEME_UNDEFINED;
           C_set_block_item(loc, 0, 0);
           ++invalidated;
@@ -3379 +3380 @@
           C_set_block_item(loc, 0, (C_uword)fptr_to_ptr(h) + offset);
           hi = i + 1;
         }
-        else if(C_in_stackp(obj)) { /* pointed-at object GC'd, locative is invalid */
+        else if(C_i_in_stackp(obj)) { /* pointed-at object GC'd, locative is invalid */
           locative_table[ i ] = C_SCHEME_UNDEFINED;
           C_set_block_item(loc, 0, 0);
         }
@@ -7985 +7986 @@
   flist->next = finalizer_list;
   finalizer_list = flist;
 
-  if(C_in_stackp(x)) C_mutate(&flist->item, x);
+  if(C_i_in_stackp(x)) C_mutate(&flist->item, x);
   else flist->item = x;
 
-  if(C_in_stackp(proc)) C_mutate(&flist->finalizer, proc);
+  if(C_i_in_stackp(proc)) C_mutate(&flist->finalizer, proc);
   else flist->finalizer = proc;
 
   ++live_finalizer_count;