garbage collection fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1139 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

H/Regs.h

@@ -10,7 +10,7 @@
 * File:		Regs.h							 *
 * mods:									 *
 * comments:	YAP abstract machine registers				 *
-* version:      $Id: Regs.h,v 1.29 2004-06-05 03:37:00 vsc Exp $	 *
+* version:      $Id: Regs.h,v 1.30 2004-09-16 17:29:08 vsc Exp $	 *
 *************************************************************************/
 
 
@@ -722,6 +722,7 @@ static inline UInt
 CalculateStackGap(void)
 {
   UInt gmin = (LCL0-H0)>>3;
-  UInt min_gap = MinStackGap;
-  return(gmin < min_gap ? min_gap : gmin );
+
+  if (gmin < MinStackGap) gmin = MinStackGap; 
+  return gmin;
 }