/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.67 1992/01/27 17:04:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.68 1992/02/03 23:02:15 jinx Exp $
Copyright (c) 1987-1992 Massachusetts Institute of Technology
Well, it seems to clobber the string if there are no Xs.
*/
-#if 1
+#if TRUE
position = (strlen (option_gc_file));
if ((position >= 6)
&& ((strncmp ((option_gc_file + (position - 6)), "XXXXXX", 6)) == 0))
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bkpt.c,v 9.25 1991/10/29 22:55:11 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bkpt.c,v 9.26 1992/02/03 23:03:20 jinx Exp $
-Copyright (c) 1987-1991 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
This material was developed by the Scheme project at the Massachusetts
Institute of Technology, Department of Electrical Engineering and
Boolean ignore;
SCHEME_OBJECT *Old_Stack = Stack_Pointer;
- printf ("Pop Return Break: SP = 0x%x\n", Stack_Pointer);
+ printf ("Pop Return Break: SP = 0x%lx\n", Stack_Pointer);
ignore = (Print_One_Continuation_Frame ());
Stack_Pointer = Old_Stack;
return;
SP_List = One_Before.next;
return;
}
-