Changeset 254 in dev for trunk/abdev/BasicCompiler_Common/calculation.cpp
- Timestamp:
- Jul 31, 2007, 4:30:31 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abdev/BasicCompiler_Common/calculation.cpp
r206 r254 726 726 //リテラル値 727 727 StrPtr[pnum]=0; 728 type[pnum]=GetLiteralValue(Parms,&i64data,BaseType); 728 type[pnum]=GetLiteralValue(Parms,&i64data,BaseType, enableerror); 729 if( type[pnum] == -1 ) 730 { 731 // エラー 732 return false; 733 } 729 734 if(IsRealNumberType(type[pnum])){ 730 735 //実数型 … … 969 974 #pragma optimize("", off) 970 975 #pragma warning(disable : 4748) 971 DWORD GetLiteralValue(char *value,_int64 *pi64,int BaseType ){976 DWORD GetLiteralValue(char *value,_int64 *pi64,int BaseType, bool isNotifyError ){ 972 977 extern HANDLE hHeap; 973 978 extern int cp; … … 987 992 } 988 993 if(temporary[i]){ 994 if( !isNotifyError ) 995 { 996 return -1; 997 } 989 998 SetError(57,NULL,cp); 990 999 return DEF_BYTE; … … 1009 1018 } 1010 1019 if(temporary[i]){ 1020 if( !isNotifyError ) 1021 { 1022 return -1; 1023 } 1011 1024 SetError(58,NULL,cp); 1012 1025 return DEF_BYTE; … … 1021 1034 } 1022 1035 else{ 1036 if( !isNotifyError ) 1037 { 1038 return -1; 1039 } 1023 1040 SetError(12,"&",cp); 1024 1041 return DEF_BYTE; … … 1070 1087 if(bDebugRun) return DEF_DOUBLE; 1071 1088 1089 if( !isNotifyError ) 1090 { 1091 return -1; 1092 } 1093 1072 1094 SetError(3,value,cp); 1073 1095 return DEF_DOUBLE; … … 1111 1133 if(bDebugRun) return DEF_DOUBLE; 1112 1134 1135 if( !isNotifyError ) 1136 { 1137 return -1; 1138 } 1139 1113 1140 SetError(33,NULL,cp); 1114 1141 return DEF_DOUBLE; … … 1116 1143 #pragma optimize("", on) 1117 1144 1118 int IsStrCalculation(c har *Command){1145 int IsStrCalculation(const char *Command){ 1119 1146 int i,i2,i3,i4,PareNum; 1120 1147 char temporary[VN_SIZE],temp2[8192];
Note:
See TracChangeset
for help on using the changeset viewer.