Add CC_BLOCK_ENTRY_DISTANCE for the C back end.
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Fri, 20 Nov 1992 03:11:14 +0000 (03:11 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Fri, 20 Nov 1992 03:11:14 +0000 (03:11 +0000)
v7/src/microcode/cmpint.c
v8/src/microcode/cmpint.c

index b528fa7bb62727d3451ec784cf58be7f8a930795..f96651e03e088b1cd6a22f7bc5eb737621cc3bc8 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.55 1992/11/18 05:18:24 gjr Exp $
+$Id: cmpint.c,v 1.56 1992/11/20 03:11:14 gjr Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -2140,6 +2140,13 @@ DEFUN (compiled_entry_to_block,
 \f
 /* Returns the offset from the block to the entry point. */
 
+#ifndef CC_BLOCK_DISTANCE
+
+#define CC_BLOCK_DISTANCE(block,entry)                                 \
+  (((char *) (entry)) - ((char *) (block)))
+
+#endif /* CC_BLOCK_DISTANCE */
+
 C_UTILITY long
 DEFUN (compiled_entry_to_block_offset,
        (entry),
@@ -2149,7 +2156,7 @@ DEFUN (compiled_entry_to_block_offset,
 
   entry_address = (OBJECT_ADDRESS (entry));
   Get_Compiled_Block (block_address, entry_address);
-  return (((char *) entry_address) - ((char *) block_address));
+  return (CC_BLOCK_DISTANCE (block_address, entry_address));
 }
 
 /*
index b528fa7bb62727d3451ec784cf58be7f8a930795..f96651e03e088b1cd6a22f7bc5eb737621cc3bc8 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.55 1992/11/18 05:18:24 gjr Exp $
+$Id: cmpint.c,v 1.56 1992/11/20 03:11:14 gjr Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -2140,6 +2140,13 @@ DEFUN (compiled_entry_to_block,
 \f
 /* Returns the offset from the block to the entry point. */
 
+#ifndef CC_BLOCK_DISTANCE
+
+#define CC_BLOCK_DISTANCE(block,entry)                                 \
+  (((char *) (entry)) - ((char *) (block)))
+
+#endif /* CC_BLOCK_DISTANCE */
+
 C_UTILITY long
 DEFUN (compiled_entry_to_block_offset,
        (entry),
@@ -2149,7 +2156,7 @@ DEFUN (compiled_entry_to_block_offset,
 
   entry_address = (OBJECT_ADDRESS (entry));
   Get_Compiled_Block (block_address, entry_address);
-  return (((char *) entry_address) - ((char *) block_address));
+  return (CC_BLOCK_DISTANCE (block_address, entry_address));
 }
 
 /*