From 53d94646c010f29929daa5313933b98fb6a364be Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 14 Jan 1992 19:32:40 +0000 Subject: [PATCH] Fix parsing problems in the stub section. --- v7/src/microcode/cmpint.c | 8 ++++---- v8/src/microcode/cmpint.c | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c index e2d9e103f..06efc7514 100644 --- a/v7/src/microcode/cmpint.c +++ b/v7/src/microcode/cmpint.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.39 1992/01/14 19:24:18 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpint.c,v 1.40 1992/01/14 19:32:40 jinx Exp $ Copyright (c) 1989-1992 Massachusetts Institute of Technology @@ -2861,7 +2861,7 @@ extern long EXFUN (compiled_entry_closure_p, (SCHEME_OBJECT entry)), EXFUN (compiled_entry_to_block_offset, (SCHEME_OBJECT entry)), EXFUN (coerce_to_compiled, - (SCHEME_OBJECT object, SCHEME_OBJECT *location, long arity)); + (SCHEME_OBJECT object, long arity, SCHEME_OBJECT *location)); extern SCHEME_OBJECT EXFUN (extract_uuo_link, (SCHEME_OBJECT block, long offset)), @@ -2875,7 +2875,7 @@ extern SCHEME_OBJECT extern void EXFUN (compiler_reset, (SCHEME_OBJECT new_block)), - EXFUN (compiler_initialize, (long fasl_p)) + EXFUN (compiler_initialize, (long fasl_p)), EXFUN (store_variable_cache, (SCHEME_OBJECT extension, SCHEME_OBJECT block, long offset)), EXFUN (compiled_entry_type, @@ -3004,7 +3004,7 @@ DEFUN (compiled_entry_to_block_offset, /*NOTREACHED*/ } -C_UTILITY SCHEME_OBJECT +SCHEME_OBJECT DEFUN (compiled_entry_to_block, (entry), SCHEME_OBJECT entry) diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c index 177cef4b3..56cf32bbe 100644 --- a/v8/src/microcode/cmpint.c +++ b/v8/src/microcode/cmpint.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.39 1992/01/14 19:24:18 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpint.c,v 1.40 1992/01/14 19:32:40 jinx Exp $ Copyright (c) 1989-1992 Massachusetts Institute of Technology @@ -2861,7 +2861,7 @@ extern long EXFUN (compiled_entry_closure_p, (SCHEME_OBJECT entry)), EXFUN (compiled_entry_to_block_offset, (SCHEME_OBJECT entry)), EXFUN (coerce_to_compiled, - (SCHEME_OBJECT object, SCHEME_OBJECT *location, long arity)); + (SCHEME_OBJECT object, long arity, SCHEME_OBJECT *location)); extern SCHEME_OBJECT EXFUN (extract_uuo_link, (SCHEME_OBJECT block, long offset)), @@ -2875,7 +2875,7 @@ extern SCHEME_OBJECT extern void EXFUN (compiler_reset, (SCHEME_OBJECT new_block)), - EXFUN (compiler_initialize, (long fasl_p)) + EXFUN (compiler_initialize, (long fasl_p)), EXFUN (store_variable_cache, (SCHEME_OBJECT extension, SCHEME_OBJECT block, long offset)), EXFUN (compiled_entry_type, @@ -3004,7 +3004,7 @@ DEFUN (compiled_entry_to_block_offset, /*NOTREACHED*/ } -C_UTILITY SCHEME_OBJECT +SCHEME_OBJECT DEFUN (compiled_entry_to_block, (entry), SCHEME_OBJECT entry) -- 2.25.1