Add ADJUST_CLOSURE_AT_CALL.

diff --git a/v7/src/microcode/cmpintmd/hppa.h b/v7/src/microcode/cmpintmd/hppa.h
index 017420edf134fa7f7033d5f96b0399fe0ee178d6..e285d096c7825b9b78f35fb1731dc611e1c1d0a3 100644 (file)
--- a/v7/src/microcode/cmpintmd/hppa.h
+++ b/v7/src/microcode/cmpintmd/hppa.h
@@ -1,5 +1,7 @@
 /* -*-C-*-
 
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/hppa.h,v 1.12 1990/04/23 02:41:47 jinx Exp $
+
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
@@ -30,7 +32,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/hppa.h,v 1.11 1990/01/22 22:31:26 jinx Exp $
+/*
  *
  * Compiled code interface macros.
  *
@@ -264,6 +266,12 @@ procedures and continuations differ from closures) */
 
  */
 
+/* A NOP on machines where instructions are longword-aligned. */
+
+#define ADJUST_CLOSURE_AT_CALL(entry_point, location)                  \
+do {                                                                   \
+} while (0)
+
 /* Compiled closures */
 
 /* Manifest closure entry block size.

diff --git a/v7/src/microcode/cmpintmd/mips.h b/v7/src/microcode/cmpintmd/mips.h
index 62f863d857c5cb75b89331d32b888add5d814b7f..d7767538f46f7dacd30d7b68435cfdc7f16c018a 100644 (file)
--- a/v7/src/microcode/cmpintmd/mips.h
+++ b/v7/src/microcode/cmpintmd/mips.h
@@ -1,5 +1,7 @@
 /* -*-C-*-
 
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mips.h,v 1.3 1990/04/23 02:43:10 jinx Exp $
+
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
@@ -30,7 +32,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpintmd/mips.h,v 1.2 1990/04/09 14:44:18 jinx Exp $
+/*
  *
  * Compiled code interface macros.
  *
@@ -178,6 +180,12 @@ procedures and continuations differ from closures) */
   LW   MEMTOP,REG_BLOCK
  */
 
+/* A NOP on machines where instructions are longword-aligned. */
+
+#define ADJUST_CLOSURE_AT_CALL(entry_point, location)                  \
+do {                                                                   \
+} while (0)
+
 /* Compiled closures */
 
 /* Manifest closure entry block size.

diff --git a/v8/src/microcode/cmpintmd/hppa.h b/v8/src/microcode/cmpintmd/hppa.h
index 4134904c69fffac6ac9e7c2d8c7304a7ad58fd97..ab4f70c1f1747974f8d68caec3f761d8531dbff0 100644 (file)
--- a/v8/src/microcode/cmpintmd/hppa.h
+++ b/v8/src/microcode/cmpintmd/hppa.h
@@ -1,5 +1,7 @@
 /* -*-C-*-
 
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpintmd/hppa.h,v 1.12 1990/04/23 02:41:47 jinx Exp $
+
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
@@ -30,7 +32,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpintmd/hppa.h,v 1.11 1990/01/22 22:31:26 jinx Exp $
+/*
  *
  * Compiled code interface macros.
  *
@@ -264,6 +266,12 @@ procedures and continuations differ from closures) */
 
  */
 
+/* A NOP on machines where instructions are longword-aligned. */
+
+#define ADJUST_CLOSURE_AT_CALL(entry_point, location)                  \
+do {                                                                   \
+} while (0)
+
 /* Compiled closures */
 
 /* Manifest closure entry block size.