/[ascend]/trunk/base/generic/compiler/initialize.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/initialize.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 977 by johnpye, Fri Nov 24 03:58:49 2006 UTC revision 978 by johnpye, Wed Dec 20 10:26:04 2006 UTC
# Line 1  Line 1 
1  /* ex:set ts=8: */  /* ex:set ts=4: */
2  /*  /*
3   *  Initialization Routines   *  Initialization Routines
4   *  by Tom Epperly   *  by Tom Epperly
# Line 773  ExecuteInitAssert(struct procFrame *fm, Line 773  ExecuteInitAssert(struct procFrame *fm,
773          case boolean_value:          case boolean_value:
774              testerr = 0;              testerr = 0;
775              if(BooleanValue(value)){              if(BooleanValue(value)){
776                  ERROR_REPORTER_STAT(ASC_USER_SUCCESS,stat,"Assertion OK");                  WriteStatementError(ASC_USER_SUCCESS,stat,0,"Assertion OK");
777              }else{              }else{
778                  ERROR_REPORTER_STAT(ASC_USER_ERROR,stat,"Assertion failed");                  WriteStatementError(ASC_USER_ERROR,stat,1,"Assertion failed");
779              }              }
780              break;              break;
781          case real_value:          case real_value:

Legend:
Removed from v.977  
changed lines
  Added in v.978

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22