[Ganc-commit] ganc/src parser_stuff.c,1.14,1.15 syntax.y,1.6,1.7 variables.c,1.1,1.2

[<ho...@us...>]

Update of /cvsroot/ganc/ganc/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14156/src

Modified Files:
	parser_stuff.c syntax.y variables.c 
Log Message:
Fixed 2 bugs: setting 'obase' was setting 'ibase' instead. If error when 
setting system variable its value would be corrupted in following expresion.


Index: parser_stuff.c
===================================================================
RCS file: /cvsroot/ganc/ganc/src/parser_stuff.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** parser_stuff.c	4 Feb 2004 00:32:10 -0000	1.14
--- parser_stuff.c	4 Feb 2004 01:06:38 -0000	1.15
***************
*** 343,349 ****
      // update the value of variable 'ans'
      UpdateAnswerVariable ();
-     // update system variables in case they've been changed by user
-     UpdateSystemVariables ();
    }
    return error;
  }
--- 343,350 ----
      // update the value of variable 'ans'
      UpdateAnswerVariable ();
    }
+   // update system variables in case they've been changed by user
+   UpdateSystemVariables ();
+   
    return error;
  }

Index: syntax.y
===================================================================
RCS file: /cvsroot/ganc/ganc/src/syntax.y,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** syntax.y	20 Jan 2004 01:33:40 -0000	1.6
--- syntax.y	4 Feb 2004 01:06:38 -0000	1.7
***************
*** 87,91 ****
  
  format_token:	'_' exp			{ SetResultOutputFormat (OUTPUT_FORMAT_BASE, $2); }
! 	|	'#'			{ SetResultOutputFormat (OUTPUT_FORMAT_PRINTBASE, 1); }
  		;
  
--- 87,91 ----
  
  format_token:	'_' exp			{ SetResultOutputFormat (OUTPUT_FORMAT_BASE, $2); }
! 	|	'_'			{ SetResultOutputFormat (OUTPUT_FORMAT_PRINTBASE, 1); }
  		;
  

Index: variables.c
===================================================================
RCS file: /cvsroot/ganc/ganc/src/variables.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** variables.c	20 Jan 2004 01:33:40 -0000	1.1
--- variables.c	4 Feb 2004 01:06:38 -0000	1.2
***************
*** 287,291 ****
    system_vars.ibase= (int) v->value;
    v= FindVariable ("obase");
!   system_vars.ibase= (int) v->value;
  }
  
--- 287,291 ----
    system_vars.ibase= (int) v->value;
    v= FindVariable ("obase");
!   system_vars.obase= (int) v->value;
  }