From 3ec000378a7b9e5057681668fcb5ca239b63d77c Mon Sep 17 00:00:00 2001
From: rslopes <rslopes@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 19 Jul 2005 17:12:18 +0000
Subject: [PATCH] fix for older compilers that do not support declaration of
 vars in the middle of the function code.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1347 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/c_interface.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/C/c_interface.c b/C/c_interface.c
index 450c529b3..0df428f53 100644
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -10,8 +10,11 @@
 * File:		c_interface.c						 *
 * comments:	c_interface primitives definition 			 *
 *									 *
-* Last rev:	$Date: 2005-05-31 00:23:47 $,$Author: ricroc $						 *
+* Last rev:	$Date: 2005-07-19 17:12:18 $,$Author: rslopes $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.68  2005/05/31 00:23:47  ricroc
+* remove abort_yapor function
+*
 * Revision 1.67  2005/04/10 04:35:19  vsc
 * AllocMemoryFromYap should now handle large requests the right way.
 *
@@ -1126,7 +1129,8 @@ YAP_Init(YAP_init_args *yap_init)
 	      yap_init->DelayedReleaseLoad
 	      );
   Yap_InitExStacks (Trail, Stack);
-  BACKUP_MACHINE_REGS();
+
+{ BACKUP_MACHINE_REGS();
   Yap_InitYaamRegs();
 
 #if HAVE_MPI
@@ -1152,6 +1156,7 @@ YAP_Init(YAP_init_args *yap_init)
     if (restore_result == FAIL_RESTORE) {
       yap_init->ErrorNo = Yap_Error_TYPE;
       yap_init->ErrorCause = Yap_ErrorMessage;
+      /* shouldn't RECOVER_MACHINE_REGS();  be here ??? */
       return YAP_BOOT_FROM_SAVED_ERROR;
     }
 #endif
@@ -1183,7 +1188,7 @@ YAP_Init(YAP_init_args *yap_init)
 #endif /* YAPOR */
 #endif /* YAPOR || TABLING */
   RECOVER_MACHINE_REGS();
-
+}
   if (yap_init->YapPrologRCFile != NULL) {
     Yap_PutValue(Yap_FullLookupAtom("$consult_on_boot"), MkAtomTerm(Yap_LookupAtom(yap_init->YapPrologRCFile)));
     /*