[foo-cvs] fooelk/src cont.c,1.4,1.5

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/fooelk/src
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv32755/src

Modified Files:
	cont.c 
Log Message:
equiv to revision level r262 of original elk

Index: cont.c
===================================================================
RCS file: /cvsroot/foo/fooelk/src/cont.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** cont.c	26 Apr 2010 14:38:04 -0000	1.4
--- cont.c	26 Apr 2010 14:54:24 -0000	1.5
***************
*** 114,125 ****
   */
  unsigned int Stack_Size () {
!   char foo;
!   char *pfoo;
  
!   return Stack_Grows_Down ? stkbase-pfoo : pfoo-stkbase;
  }
  
  void Grow_Stack (struct S_Control *cp, Object val) {
!     char buf[100];
  
      /* Prevent the optimizer from optimizing buf away:
--- 114,125 ----
   */
  unsigned int Stack_Size () {
!     volatile char foo;
!     char *pfoo = &foo;
  
!     return Stack_Grows_Down ? stkbase-pfoo : pfoo-stkbase;
  }
  
  void Grow_Stack (struct S_Control *cp, Object val) {
!     volatile char buf[100];
  
      /* Prevent the optimizer from optimizing buf away:
***************
*** 134,138 ****
      static char *from, *to;      /* Must not be allocated on stack */
      static int i;                /* Ditto */
!     char foo;
  
      /* Reinstall the saved stack contents; take stack direction
--- 134,138 ----
      static char *from, *to;      /* Must not be allocated on stack */
      static int i;                /* Ditto */
!     volatile char foo;
  
      /* Reinstall the saved stack contents; take stack direction