uniform and is able to take advantage of things like sockets, pipes,
ptys, etc. All I/O buffering is moved into the runtime system for
better performance with Scheme compiler code. Strong knowledge of
POSIX.1 should make porting to VMS easy once VMS supports POSIX.1.
* Change operating system conditionalizations to standard form
suggested by POSIX.1.
* Add FSF macros to support ANSI declarations.
* Add dynamic-stack package and obstacks.
* Provide higher-level utilities for parsing command line options.
* Instead of `Back_To_Eval', there is now a procedure
`abort_to_interpreter' which knows about everything that needs to be
cleaned up.
* Change names of some macros:
Pop STACK_POP
Push STACK_PUSH
Push_From STACK_LOCATIVE_PUSH
Pop_Into STACK_LOCATIVE_POP (similar)
Stack_Ref STACK_REF
Top_Of_Stack() STACK_REF(0)
Simulate_Popping STACK_LOC
Simulate_Pushing STACK_LOC (similar)
Stack_Distance STACK_LOCATIVE_DIFFERENCE (similar)
Pop_Primitive_Frame POP_PRIMITIVE_FRAME
Metering_Apply_Primitive PRIMITIVE_APPLY
Export_Regs_Before_Primitive EXPORT_REGS_BEFORE_PRIMITIVE
Import_Regs_After_Primitive IMPORT_REGS_AFTER_PRIMITIVE
* Sun assembler can't handle a constant used in "cmpaux-mc68k.m4", so
provide an option to rewrite that instruction as two instructions.
* Some compilers won't cast a function to an integer, so kludge around
it by mis-declaring the external function as an integer, taking it the
integer's address, and casting THAT to an integer.
* Move critical section code and termination code to their own files.
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.50 1990/06/20 17:38:05 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchdmp.c,v 9.51 1990/06/20 21:13:26 cph Exp $
Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
#include "scheme.h"
#include "prims.h"
+#include "osio.h"
#include "osfile.h"
#include "trap.h"
#include "lookup.h" /* UNCOMPILED_VARIABLE */
}
else
{
- unsigned char * filename = (STRING_LOC ((ARG_REF (2)), 0));
+ CONST char * filename = ((CONST char *) (STRING_LOC ((ARG_REF (2)), 0)));
dump_channel = (OS_open_dump_file (filename));
if (dump_channel == NO_CHANNEL)
error_bad_range_arg (2);
/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.54 1990/06/20 17:38:18 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.55 1990/06/20 21:13:44 cph Exp $
Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
int gc_file;
static long current_disk_position;
-static char *gc_file_name;
+static CONST char * gc_file_name;
static char gc_default_file_name[FILE_NAME_LENGTH] = GC_DEFAULT_FILE_NAME;
void