From da2a7981f9cc3ce5242f9e0d52de0e382a476877 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 31 Jan 2006 13:58:36 +0000
Subject: [PATCH] Oops.  Fix a couple of typos (missing paren) and reindent
 scavenge_interrupt_context.

---
 lisp/gencgc.c | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/lisp/gencgc.c b/lisp/gencgc.c
index 7c26e45ab..f94197248 100644
--- a/lisp/gencgc.c
+++ b/lisp/gencgc.c
@@ -7,7 +7,7 @@
  *
  * Douglas Crosher, 1996, 1997, 1998, 1999.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.68 2006/01/31 03:16:39 rtoy Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.69 2006/01/31 13:58:36 rtoy Exp $
  *
  */
 
@@ -2277,6 +2277,7 @@ static void
 scavenge_interrupt_context(os_context_t * context)
 {
     int i;
+    unsigned long pc_code_offset;
 
 #ifdef reg_LIP
     unsigned long lip;
@@ -2289,8 +2290,6 @@ scavenge_interrupt_context(os_context_t * context)
 #ifdef reg_CTR    
     unsigned long ctr_code_offset;
 #endif
-    unsigned long pc_code_offset;
-
 #ifdef SC_NPC
     unsigned long npc_code_offset;
 #endif
@@ -2324,8 +2323,10 @@ scavenge_interrupt_context(os_context_t * context)
     }
 #endif /* reg_LIP */
 
-    /* Compute the PC's offset from the start of the CODE */
-    /* register. */
+    /*
+     * Compute the PC's offset from the start of the CODE 
+     * register.
+     */
     pc_code_offset = SC_PC(context) - SC_REG(context, reg_CODE);
 #ifdef SC_NPC
     npc_code_offset = SC_NPC(context) - SC_REG(context, reg_CODE);
@@ -2369,23 +2370,23 @@ scavenge_interrupt_context(os_context_t * context)
 #endif /* reg_LIP */
 
     /* Fix the PC if it was in from space */
-    if (from_space_p(SC_PC(context)))
-	SC_PC(context) = SC_REG(context, reg_CODE) + pc_code_offset;
+    if (from_space_p(SC_PC(context))) {
+        SC_PC(context) = SC_REG(context, reg_CODE) + pc_code_offset;
+    }
 #ifdef SC_NPC
-    if (from_space_p(SC_NPC(context)))
+    if (from_space_p(SC_NPC(context))) {
 	SC_NPC(context) = SC_REG(context, reg_CODE) + npc_code_offset;
+    }
 #endif /* SC_NPC */
 
 #ifdef reg_LR
-    if (from_space_p(SC_REG(context, reg_LR)) {
-        SC_REG(context, reg_LR) = SC_REG(context, reg_CODE)
-                                  + lr_code_offset;
+    if (from_space_p(SC_REG(context, reg_LR))) {
+        SC_REG(context, reg_LR) = SC_REG(context, reg_CODE) + lr_code_offset;
     }
 #endif	
 #ifdef reg_CTR
-    if (from_space_p(SC_REG(context, reg_CTR)) {
-        SC_REG(context, reg_CTR) = SC_REG(context, reg_CODE)
-                                    + ctr_code_offset;
+    if (from_space_p(SC_REG(context, reg_CTR))) {
+      SC_REG(context, reg_CTR) = SC_REG(context, reg_CODE) + ctr_code_offset;
     }
 #endif	
 }
-- 
GitLab