Changeset 46 in dev
- Timestamp:
- Feb 6, 2007, 1:19:17 AM (18 years ago)
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
BasicCompiler32/CParameter.cpp
r45 r46 141 141 return 1; 142 142 } 143 SUBINFO *CParameter::OverloadSolutionWithReturnType(c har *name,SUBINFO **ppsi,int num){143 SUBINFO *CParameter::OverloadSolutionWithReturnType(const char *name,SUBINFO **ppsi,int num){ 144 144 int i,sw=0; 145 145 SUBINFO *psi; … … 211 211 } 212 212 213 SUBINFO *CParameter::OverloadSolution(c har *name,SUBINFO **ppsi,int num){213 SUBINFO *CParameter::OverloadSolution(const char *name,SUBINFO **ppsi,int num){ 214 214 int i,sw=0; 215 215 SUBINFO *psi; … … 285 285 } 286 286 287 BOOL CParameter::ErrorCheck(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){287 BOOL CParameter::ErrorCheck(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){ 288 288 if(ParmsNum>pi_num){ 289 289 if(ppi[pi_num-1].type!=DEF_ELLIPSE){ … … 332 332 } 333 333 334 void CParameter::NewTempParameters( c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ){334 void CParameter::NewTempParameters( const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ){ 335 335 /////////////////////////////////////////////////////// 336 336 // 一時オブジェクトをあらかじめスタックに積んでおく … … 544 544 } 545 545 546 int CParameter::SetParameter(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){546 int CParameter::SetParameter(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){ 547 547 /////////////////////////////////////////////////////////// 548 548 // パラメータをレジスタ及びスタックフレームにセット … … 564 564 565 565 //戻り値用の変数名を取得 566 char *lpszVarNameToReturn; 567 if(FuncName[0]==1&&FuncName[1]==ESC_OPERATOR) lpszVarNameToReturn="_System_ReturnValue"; 568 else lpszVarNameToReturn=FuncName; 566 const char *lpszVarNameToReturn = (FuncName[0]==1&&FuncName[1]==ESC_OPERATOR)?"_System_ReturnValue":FuncName; 569 567 570 568 //パラメータをレジスタとスタックに格納 -
BasicCompiler32/Compile_Calc.cpp
r40 r46 658 658 if( VarType == DEF_OBJECT && VarRelativeVar.dwKind == VAR_REFLOCAL ){ 659 659 // 参照型オブジェクトへの代入(初期化)はポインタ変数と同様の処理に値する 660 VarType =PTR_LEVEL_UP( VarType );660 PTR_LEVEL_UP( VarType ); 661 661 662 662 VarRelativeVar.dwKind = VAR_LOCAL; … … 664 664 if( CalcType == DEF_OBJECT ){ 665 665 //右辺値が実体オブジェクトのときは、参照をコピー 666 CalcType = PTR_LEVEL_UP( DEF_OBJECT);666 PTR_LEVEL_UP( CalcType ); 667 667 } 668 668 } -
BasicCompiler32/Compile_CallProc.cpp
r45 r46 89 89 FuncId=(int)(_int64)pInfo; 90 90 91 ret_type=Opcode_CallFunc(Parameter,FuncId); 91 TYPEINFO ReturnTypeInfo = { DEF_LONG, NULL }; 92 Opcode_CallFunc( Parameter, FuncId, ReturnTypeInfo ); 93 if( plpRetIndex ){ 94 *plpRetIndex = ReturnTypeInfo.u.lpIndex; 95 } 96 return ReturnTypeInfo.type; 92 97 } 93 98 else if(idProc==PROC_PTR){ -
BasicCompiler32/Compile_Func.cpp
r28 r46 44 44 } 45 45 46 void Opcode_Func_Fix(c har *Parameter){46 void Opcode_Func_Fix(const char *Parameter){ 47 47 int i; 48 48 … … 161 161 } 162 162 163 void Opcode_Func_CUDbl(c har *Parameter){163 void Opcode_Func_CUDbl(const char *Parameter){ 164 164 int i; 165 165 … … 185 185 op_add_esp(8); 186 186 } 187 void Opcode_Func_Len(c har *Parameter){187 void Opcode_Func_Len(const char *Parameter){ 188 188 int type,TypeSize; 189 189 LONG_PTR lpIndex; … … 192 192 type=GetVarType(Parameter,&lpIndex,0); 193 193 194 c har *tempParm=Parameter;194 const char *tempParm=Parameter; 195 195 char temporary[VN_SIZE]; 196 196 char temp2[32]; … … 241 241 obp+=sizeof(long); 242 242 } 243 void Opcode_Func_AddressOf(c har *name){243 void Opcode_Func_AddressOf(const char *name){ 244 244 extern int cp; 245 245 SUBINFO *psi; … … 353 353 psi->bUse=1; 354 354 } 355 void Opcode_Func_SizeOf(c har *Parameter){355 void Opcode_Func_SizeOf(const char *Parameter){ 356 356 int type,size; 357 357 LONG_PTR lpIndex; … … 370 370 obp+=sizeof(long); 371 371 } 372 void Opcode_Func_VarPtr(char *Parameter){ 373 int type; 372 void Opcode_Func_VarPtr( const char *Parameter, TYPEINFO &ReturnTypeInfo ){ 374 373 RELATIVE_VAR RelativeVar; 375 374 376 375 //変数のアドレスを取得 377 if(!GetVarOffsetReadOnly(Parameter,&type,&RelativeVar,0)) return; 376 if(!GetVarOffsetReadOnly( Parameter, &ReturnTypeInfo.type, &RelativeVar, &ReturnTypeInfo.u.lpIndex )) return; 377 378 PTR_LEVEL_UP( ReturnTypeInfo.type ); 378 379 379 380 SetVarPtrToEax(&RelativeVar); 380 381 } 381 void Opcode_Func_GetPtrData(c har *Parameter,int type){382 void Opcode_Func_GetPtrData(const char *Parameter,const int type){ 382 383 int i2; 383 384 … … 438 439 } 439 440 440 int Opcode_CallFunc(char *Parameter,int FuncNum){441 void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ){ 441 442 switch(FuncNum){ 442 443 case FUNC_FIX: 443 444 Opcode_Func_Fix(Parameter); 444 return DEF_LONG; 445 ReturnTypeInfo.type = DEF_LONG; 446 break; 445 447 case FUNC_CUDBL: 446 448 Opcode_Func_CUDbl(Parameter); 447 return DEF_DOUBLE; 449 ReturnTypeInfo.type = DEF_DOUBLE; 450 break; 448 451 case FUNC_LEN: 449 452 Opcode_Func_Len(Parameter); 450 return DEF_LONG; 453 ReturnTypeInfo.type = DEF_LONG; 454 break; 451 455 case FUNC_ADDRESSOF: 452 456 Opcode_Func_AddressOf(Parameter); 453 return DEF_PTR_VOID; 457 ReturnTypeInfo.type = DEF_PTR_VOID; 458 break; 454 459 case FUNC_SIZEOF: 455 460 Opcode_Func_SizeOf(Parameter); 456 return DEF_LONG; 461 ReturnTypeInfo.type = DEF_LONG; 462 break; 457 463 case FUNC_VARPTR: 458 Opcode_Func_VarPtr( Parameter);459 return DEF_PTR_VOID;464 Opcode_Func_VarPtr( Parameter, ReturnTypeInfo ); 465 break; 460 466 461 467 case FUNC_GETDOUBLE: 462 468 Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE); 463 return DEF_DOUBLE; 469 ReturnTypeInfo.type = DEF_DOUBLE; 470 break; 464 471 case FUNC_GETSINGLE: 465 472 Opcode_Func_GetPtrData(Parameter,DEF_SINGLE); 466 return DEF_SINGLE; 473 ReturnTypeInfo.type = DEF_SINGLE; 474 break; 467 475 case FUNC_GETQWORD: 468 476 Opcode_Func_GetPtrData(Parameter,DEF_QWORD); 469 return DEF_QWORD; 477 ReturnTypeInfo.type = DEF_QWORD; 478 break; 470 479 case FUNC_GETDWORD: 471 480 Opcode_Func_GetPtrData(Parameter,DEF_DWORD); 472 return DEF_DWORD; 481 ReturnTypeInfo.type = DEF_DWORD; 482 break; 473 483 case FUNC_GETWORD: 474 484 Opcode_Func_GetPtrData(Parameter,DEF_WORD); 475 return DEF_WORD; 485 ReturnTypeInfo.type = DEF_WORD; 486 break; 476 487 case FUNC_GETBYTE: 477 488 Opcode_Func_GetPtrData(Parameter,DEF_BYTE); 478 returnDEF_BYTE;479 }480 return 0;481 } 489 ReturnTypeInfo.type = DEF_BYTE; 490 break; 491 } 492 } -
BasicCompiler32/Opcode.h
r40 r46 207 207 private: 208 208 BOOL _overload_check(PARAMETER_INFO *ppi,int pi_num,TYPEINFO *pReturnTypeInfo,int overload_level); 209 SUBINFO *OverloadSolutionWithReturnType(c har *name,SUBINFO **ppsi,int num);209 SUBINFO *OverloadSolutionWithReturnType(const char *name,SUBINFO **ppsi,int num); 210 210 public: 211 SUBINFO *OverloadSolution(c har *name,SUBINFO **ppsi,int num);212 213 BOOL ErrorCheck(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);211 SUBINFO *OverloadSolution(const char *name,SUBINFO **ppsi,int num); 212 213 BOOL ErrorCheck(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum); 214 214 void MacroParameterSupport(PARAMETER_INFO *ppi); 215 215 void SetObjectParameter(CClass *pobj_Class,LPSTR Parameter); 216 int SetParameter(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);216 int SetParameter(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum); 217 217 218 218 //一時オブジェクトパラメータの生成と破棄 219 void NewTempParameters( c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum );219 void NewTempParameters( const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ); 220 220 void DeleteTempParameters(); 221 221 }; … … 236 236 int GetFunctionType(int FuncNum); 237 237 int GetFunctionFromName(char *FuncName); 238 int Opcode_CallFunc(char *Parameter,int FuncNum);238 void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ); 239 239 240 240 //OperatorProc.cpp -
BasicCompiler64/CParameter.cpp
r45 r46 140 140 return 1; 141 141 } 142 SUBINFO *CParameter::OverloadSolutionWithReturnType(c har *name,SUBINFO **ppsi,int num){142 SUBINFO *CParameter::OverloadSolutionWithReturnType(const char *name,SUBINFO **ppsi,int num){ 143 143 int i,sw=0; 144 144 SUBINFO *psi; … … 210 210 } 211 211 212 SUBINFO *CParameter::OverloadSolution(c har *name,SUBINFO **ppsi,int num){212 SUBINFO *CParameter::OverloadSolution(const char *name,SUBINFO **ppsi,int num){ 213 213 int i,sw=0; 214 214 SUBINFO *psi; … … 283 283 } 284 284 285 BOOL CParameter::ErrorCheck(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){285 BOOL CParameter::ErrorCheck(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){ 286 286 if(ParmsNum>pi_num){ 287 287 if(ppi[pi_num-1].type!=DEF_ELLIPSE){ … … 330 330 } 331 331 332 void CParameter::NewTempParameters( c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ){332 void CParameter::NewTempParameters( const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ){ 333 333 /////////////////////////////////////////////////////// 334 334 // 一時オブジェクトをあらかじめスタックに積んでおく … … 539 539 } 540 540 541 void CParameter::SetParameter(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){541 void CParameter::SetParameter(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum){ 542 542 /////////////////////////////////////////////////////////// 543 543 // パラメータをレジスタ及びスタックフレームにセット … … 559 559 560 560 //戻り値用の変数名を取得 561 char *lpszVarNameToReturn; 562 if(FuncName[0]==1&&FuncName[1]==ESC_OPERATOR) lpszVarNameToReturn="_System_ReturnValue"; 563 else lpszVarNameToReturn=FuncName; 561 const char *lpszVarNameToReturn = (FuncName[0]==1&&FuncName[1]==ESC_OPERATOR)?"_System_ReturnValue":FuncName; 564 562 565 563 //パラメータをレジスタとスタックに格納 -
BasicCompiler64/Compile_Calc.cpp
r40 r46 285 285 if( VarType == DEF_OBJECT && VarRelativeVar.dwKind == VAR_REFLOCAL ){ 286 286 // 参照型オブジェクトへの代入(初期化)はポインタ変数と同様の処理に値する 287 VarType =PTR_LEVEL_UP( VarType );287 PTR_LEVEL_UP( VarType ); 288 288 289 289 VarRelativeVar.dwKind = VAR_LOCAL; … … 291 291 if( CalcType == DEF_OBJECT ){ 292 292 //右辺値が実体オブジェクトのときは、参照をコピー 293 CalcType = PTR_LEVEL_UP( DEF_OBJECT);293 PTR_LEVEL_UP( CalcType ); 294 294 } 295 295 } -
BasicCompiler64/Compile_CallProc.cpp
r45 r46 90 90 FuncId=(int)(_int64)pInfo; 91 91 92 ret_type=Opcode_CallFunc(Parameter,FuncId); 92 TYPEINFO ReturnTypeInfo = { DEF_LONG, NULL }; 93 Opcode_CallFunc( Parameter, FuncId, ReturnTypeInfo ); 94 if( plpRetIndex ){ 95 *plpRetIndex = ReturnTypeInfo.u.lpIndex; 96 } 97 return ReturnTypeInfo.type; 93 98 } 94 99 else if(idProc==PROC_PTR){ -
BasicCompiler64/Compile_Func.cpp
r28 r46 39 39 return 0; 40 40 } 41 void Opcode_Func_Len( char *Parameter){41 void Opcode_Func_Len( const char *Parameter ){ 42 42 int type,TypeSize; 43 43 LONG_PTR lpIndex; … … 46 46 type=GetVarType(Parameter,&lpIndex,0); 47 47 48 c har *tempParm=Parameter;48 const char *tempParm=Parameter; 49 49 char temporary[VN_SIZE]; 50 50 char temp2[32]; … … 93 93 return; 94 94 } 95 void Opcode_Func_AddressOf( char *name){95 void Opcode_Func_AddressOf( const char *name ){ 96 96 extern int cp; 97 97 SUBINFO *psi; … … 103 103 SUBINFO **ppsi; 104 104 int num; 105 ppsi=GetOverloadSubHash( name,&num);105 ppsi=GetOverloadSubHash( name, &num ); 106 106 if(!num){ 107 107 HeapDefaultFree(ppsi); … … 202 202 psi->bUse=1; 203 203 } 204 void Opcode_Func_SizeOf( char *Parameter){204 void Opcode_Func_SizeOf( const char *Parameter ){ 205 205 int type,size; 206 206 LONG_PTR lpIndex; … … 212 212 op_mov_RV(sizeof(_int64),REG_RAX,size); 213 213 } 214 void Opcode_Func_VarPtr(char *Parameter){ 215 int type; 214 void Opcode_Func_VarPtr( const char *Parameter, TYPEINFO &ReturnTypeInfo ){ 216 215 RELATIVE_VAR RelativeVar; 217 216 218 217 //変数のアドレスを取得 219 if(!GetVarOffsetReadOnly(Parameter,&type,&RelativeVar,0)) return; 218 if(!GetVarOffsetReadOnly( Parameter, &ReturnTypeInfo.type, &RelativeVar, &ReturnTypeInfo.u.lpIndex )) return; 219 220 PTR_LEVEL_UP( ReturnTypeInfo.type ); 220 221 221 222 SetVarPtrToReg(REG_RAX,&RelativeVar); 222 223 } 223 void Opcode_Func_GetPtrData( char *Parameter,int type){224 void Opcode_Func_GetPtrData( const char *Parameter, const int type ){ 224 225 int i2; 225 226 … … 246 247 } 247 248 248 int Opcode_CallFunc(char *Parameter,int FuncNum){249 void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ){ 249 250 switch(FuncNum){ 250 251 case FUNC_LEN: 251 252 Opcode_Func_Len(Parameter); 252 return DEF_LONG; 253 ReturnTypeInfo.type = DEF_LONG; 254 break; 253 255 case FUNC_ADDRESSOF: 254 256 Opcode_Func_AddressOf(Parameter); 255 return DEF_PTR_VOID; 257 ReturnTypeInfo.type = DEF_PTR_VOID; 258 break; 256 259 case FUNC_SIZEOF: 257 260 Opcode_Func_SizeOf(Parameter); 258 return DEF_LONG; 261 ReturnTypeInfo.type = DEF_LONG; 262 break; 259 263 case FUNC_VARPTR: 260 Opcode_Func_VarPtr( Parameter);261 return DEF_PTR_VOID;264 Opcode_Func_VarPtr( Parameter, ReturnTypeInfo ); 265 break; 262 266 263 267 case FUNC_GETDOUBLE: 264 268 Opcode_Func_GetPtrData(Parameter,DEF_DOUBLE); 265 return DEF_DOUBLE; 269 ReturnTypeInfo.type = DEF_DOUBLE; 270 break; 266 271 case FUNC_GETSINGLE: 267 272 Opcode_Func_GetPtrData(Parameter,DEF_SINGLE); 268 return DEF_SINGLE; 273 ReturnTypeInfo.type = DEF_SINGLE; 274 break; 269 275 case FUNC_GETQWORD: 270 276 Opcode_Func_GetPtrData(Parameter,DEF_QWORD); 271 return DEF_QWORD; 277 ReturnTypeInfo.type = DEF_QWORD; 278 break; 272 279 case FUNC_GETDWORD: 273 280 Opcode_Func_GetPtrData(Parameter,DEF_DWORD); 274 return DEF_DWORD; 281 ReturnTypeInfo.type = DEF_DWORD; 282 break; 275 283 case FUNC_GETWORD: 276 284 Opcode_Func_GetPtrData(Parameter,DEF_WORD); 277 return DEF_WORD; 285 ReturnTypeInfo.type = DEF_WORD; 286 break; 278 287 case FUNC_GETBYTE: 279 288 Opcode_Func_GetPtrData(Parameter,DEF_BYTE); 280 returnDEF_BYTE;281 }282 return 0;283 } 289 ReturnTypeInfo.type = DEF_BYTE; 290 break; 291 } 292 } -
BasicCompiler64/Opcode.h
r40 r46 345 345 private: 346 346 BOOL _overload_check(PARAMETER_INFO *ppi,int pi_num,TYPEINFO *pReturnTypeInfo,int overload_level); 347 SUBINFO *OverloadSolutionWithReturnType(c har *name,SUBINFO **ppsi,int num);347 SUBINFO *OverloadSolutionWithReturnType(const char *name,SUBINFO **ppsi,int num); 348 348 public: 349 SUBINFO *OverloadSolution(c har *name,SUBINFO **ppsi,int num);350 351 BOOL ErrorCheck(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);349 SUBINFO *OverloadSolution(const char *name,SUBINFO **ppsi,int num); 350 351 BOOL ErrorCheck(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum); 352 352 void MacroParameterSupport(PARAMETER_INFO *ppi); 353 353 void SetObjectParameter(int reg,CClass *pobj_Class,LPSTR Parameter); 354 354 355 355 //一時オブジェクトパラメータの生成と破棄 356 void NewTempParameters( c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum );356 void NewTempParameters( const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum ); 357 357 void DeleteTempParameters(); 358 358 359 void SetParameter(c har *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum);359 void SetParameter(const char *FuncName,PARAMETER_INFO *ppi,int pi_num,int SecondParmNum); 360 360 361 361 void BackupParameter(int pi_num); … … 390 390 int GetFunctionType(int FuncNum); 391 391 int GetFunctionFromName(char *FuncName); 392 int Opcode_CallFunc(char *Parameter,int FuncNum);392 void Opcode_CallFunc( const char *Parameter, const int FuncNum, TYPEINFO &ReturnTypeInfo ); 393 393 394 394 //OperatorProc.cpp -
BasicCompiler_Common/BasicFixed.h
r41 r46 54 54 #define NATURAL_TYPE(t) ((t)&MASK_NATURAL) 55 55 #define MAKE_PTR_TYPE(t,p) ((t)|((p)<<8)) 56 #define PTR_LEVEL_UP(t) MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1)57 #define PTR_LEVEL_DOWN(t) MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)-1)56 #define PTR_LEVEL_UP(t) t = MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)+1) 57 #define PTR_LEVEL_DOWN(t) t = MAKE_PTR_TYPE(NATURAL_TYPE(t),PTR_LEVEL(t)-1) 58 58 59 59 #define DEF_PTR_BYTE MAKE_PTR_TYPE(DEF_BYTE,1) -
BasicCompiler_Common/Class.cpp
r40 r46 181 181 182 182 183 CClass::CClass(c har *name){183 CClass::CClass(const char *name){ 184 184 memset(this,0,sizeof(CClass)); 185 185 … … 316 316 iStaticMethodNum++; 317 317 } 318 BOOL CClass::DupliCheckAll(c har *name){318 BOOL CClass::DupliCheckAll(const char *name){ 319 319 //重複チェック 320 320 … … 333 333 return 0; 334 334 } 335 BOOL CClass::DupliCheckMember(c har *name){335 BOOL CClass::DupliCheckMember(const char *name){ 336 336 //重複チェック 337 337 … … 374 374 return ppobj_StaticMethod[i]; 375 375 } 376 bool CClass::IsExistMethod( c har *name ){376 bool CClass::IsExistMethod( const char *name ){ 377 377 for( int i=0; i<iMethodNum; i++ ){ 378 378 if( lstrcmp( ppobj_Method[i]->psi->name, name ) == 0 ) return true; … … 380 380 return false; 381 381 } 382 bool CClass::IsExistStaticMethod( c har *name ){382 bool CClass::IsExistStaticMethod( const char *name ){ 383 383 for( int i=0; i<iStaticMethodNum; i++ ){ 384 384 if( lstrcmp( ppobj_StaticMethod[i]->psi->name, name ) == 0 ) return true; … … 538 538 539 539 540 int CDBClass::hash(c har *name){540 int CDBClass::hash(const char *name){ 541 541 int key; 542 542 … … 584 584 } 585 585 586 CClass *CDBClass::check(c har *name){586 CClass *CDBClass::check(const char *name){ 587 587 int key; 588 588 key=hash(name); … … 604 604 } 605 605 606 CClass *CDBClass::AddClass(c har *name,int NowLine){606 CClass *CDBClass::AddClass(const char *name,int NowLine){ 607 607 ////////////////////////////////////////////////////////////////////////// 608 608 // クラスを追加 … … 849 849 } 850 850 851 void CDBClass::GetClass_recur(c har *lpszInheritsClass){851 void CDBClass::GetClass_recur(const char *lpszInheritsClass){ 852 852 extern char *basbuf; 853 853 int i,i2,i3,sub_address,top_pos; -
BasicCompiler_Common/Class.h
r40 r46 95 95 96 96 public: 97 CClass(c har *name);97 CClass(const char *name); 98 98 ~CClass(); 99 99 … … 106 106 void AddStaticMethod(SUBINFO *psi,DWORD dwAccess); 107 107 108 BOOL DupliCheckAll(c har *name);109 BOOL DupliCheckMember(c har *name);108 BOOL DupliCheckAll(const char *name); 109 BOOL DupliCheckMember(const char *name); 110 110 111 111 //メソッド取得 … … 114 114 115 115 //メソッドの存在を確認 116 bool IsExistMethod( c har *name );117 bool IsExistStaticMethod( c har *name );116 bool IsExistMethod( const char *name ); 117 bool IsExistStaticMethod( const char *name ); 118 118 119 119 … … 162 162 #define MAX_CLASS_HASH 65535 163 163 class CDBClass{ 164 int hash(c har *name);164 int hash(const char *name); 165 165 void DestroyClass(CClass *pobj_c); 166 166 public: … … 170 170 ~CDBClass(); 171 171 172 CClass *check(c har *name);173 174 CClass *AddClass(c har *name,int NowLine);172 CClass *check(const char *name); 173 174 CClass *AddClass(const char *name,int NowLine); 175 175 176 176 void ActionVtblSchedule(LONG_PTR ImageBase, LONG_PTR MemPos_CodeSection); … … 182 182 public: 183 183 void InitNames(void); 184 void GetClass_recur(c har *lpszInheritsClass);184 void GetClass_recur(const char *lpszInheritsClass); 185 185 void GetObjectClassInfo(void); 186 186 -
BasicCompiler_Common/Overload.cpp
r36 r46 46 46 } 47 47 48 SUBINFO *OverloadSolution(c har *name,SUBINFO **ppsi,int num,PARAMETER_INFO *ppi,int ParmNum,TYPEINFO *pReturnTypeInfo){48 SUBINFO *OverloadSolution(const char *name,SUBINFO **ppsi,int num,PARAMETER_INFO *ppi,int ParmNum,TYPEINFO *pReturnTypeInfo){ 49 49 // オーバーロードの解決 50 50 -
BasicCompiler_Common/Subroutine.cpp
r40 r46 64 64 } 65 65 66 void SplitObjectName(c har *name,char *ObjectName,int *pRefType){66 void SplitObjectName(const char *name,char *ObjectName,int *pRefType){ 67 67 int i4; 68 68 for(i4=lstrlen(name)-1;i4>=0;i4--){ -
BasicCompiler_Common/TypeDef.cpp
r4 r46 5 5 6 6 7 CTypeDef::CTypeDef(c har *name,char *base){7 CTypeDef::CTypeDef(const char *name,char *base){ 8 8 lpszName=(char *)malloc(lstrlen(name)+1); 9 9 lstrcpy(lpszName,name); … … 32 32 iNum=0; 33 33 } 34 void CDBTypeDef::add(c har *name,char *base){34 void CDBTypeDef::add(const char *name,char *base){ 35 35 ppobj_TypeDef=(CTypeDef **)realloc(ppobj_TypeDef,(iNum+1)*sizeof(CTypeDef *)); 36 36 ppobj_TypeDef[iNum]=new CTypeDef(name,base); … … 65 65 } 66 66 } 67 int CDBTypeDef::check(c har *name){67 int CDBTypeDef::check(const char *name){ 68 68 int i; 69 69 for(i=0;i<iNum;i++){ -
BasicCompiler_Common/TypeDef.h
r4 r46 4 4 char *lpszName; 5 5 char *lpszBaseName; 6 CTypeDef(c har *name,char *base);6 CTypeDef(const char *name,char *base); 7 7 ~CTypeDef(); 8 8 }; … … 17 17 void init(); 18 18 19 void add(c har *name,char *base);20 int check(c har *name);19 void add(const char *name,char *base); 20 int check(const char *name); 21 21 }; 22 22 extern CDBTypeDef *pobj_DBTypeDef; -
BasicCompiler_Common/Variable.cpp
r40 r46 160 160 return MAKE_PTR_TYPE(NATURAL_TYPE(type),PTR_LEVEL(type)+1); 161 161 } 162 int GetTypeFixed(c har *TypeName,LONG_PTR *lpNum){162 int GetTypeFixed(const char *TypeName,LONG_PTR *lpNum){ 163 163 int type; 164 164 -
BasicCompiler_Common/Variable.h
r40 r46 13 13 int GetTypeSize(int type,LONG_PTR lpIndex); 14 14 int GetPtrType(int type,LONG_PTR lpIndex); 15 int GetTypeFixed(c har *TypeName,LONG_PTR *lpNum);15 int GetTypeFixed(const char *TypeName,LONG_PTR *lpNum); 16 16 void GetOriginalTypeName(char *buffer); 17 17 BOOL GetTypeName(int type,LONG_PTR lpIndex,char *name); -
BasicCompiler_Common/common.h
r45 r46 415 415 CONSTINFO *GetConstHash(char *name); 416 416 DECLAREINFO *GetDeclareHash(char *name); 417 SUBINFO *GetSubHash(c har *name,BOOL bError=0);417 SUBINFO *GetSubHash(const char *name,BOOL bError=0); 418 418 SUBINFO *GetMethodHash(char *ObjectName,char *MethodName,char *Parameter,BOOL bError=0); 419 419 SUBINFO **GetOverloadObjectSubHash(char *name,CClass *pobj_c, int *pNum); 420 SUBINFO **GetOverloadSubHash(c har *name,int *pNum);420 SUBINFO **GetOverloadSubHash(const char *name,int *pNum); 421 421 422 422 //Object.cpp … … 428 428 //Overload.sbp 429 429 SUBINFO *OverloadSolutionWithStrParam(char *name,SUBINFO **ppsi,int num,char *Parameter,char *ObjectName,TYPEINFO *pReturnTypeInfo); 430 SUBINFO *OverloadSolution(c har *name,SUBINFO **ppsi,int num,PARAMETER_INFO *ppi,int ParmNum,TYPEINFO *pReturnTypeInfo);430 SUBINFO *OverloadSolution(const char *name,SUBINFO **ppsi,int num,PARAMETER_INFO *ppi,int ParmNum,TYPEINFO *pReturnTypeInfo); 431 431 432 432 //Debug.cpp … … 548 548 int GetCallProcName(char *buffer,char *name); 549 549 int GetProc(char *name,void **ppInfo); 550 void SplitObjectName(c har *name,char *ObjectName,int *pRefType);550 void SplitObjectName(const char *name,char *ObjectName,int *pRefType); 551 551 bool SplitMemberName( const char *desc, char *object, char *member ); 552 552 int GetReturnTypeOfProc(int idProc,void *pInfo,char *name,char *Parameter,LONG_PTR *plpRetIndex); … … 578 578 void SetError(int ErrorNum,const char *KeyWord,int pos); 579 579 void CompileMessage(char *buffer); 580 bool CheckDifferentType( int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum);580 bool CheckDifferentType(const int VarType,const LONG_PTR lpVarIndex,const int CalcType,const LONG_PTR lpCalcIndex,const char *pszFuncName,const int ParmNum); 581 581 582 582 //Compile.cpp -
BasicCompiler_Common/error.cpp
r45 r46 364 364 365 365 #define STRING_SYSTEM_DECLAREHANDLE "*_System_DeclareHandle_" 366 void DifferentTypeError( int VarType,LONG_PTR VarIndex,int CalcType,LONG_PTR CalcIndex,int iWarning,char *pszFuncName,int ParmNum){366 void DifferentTypeError(const int VarType,LONG_PTR VarIndex,const int CalcType,LONG_PTR CalcIndex,const int iWarning,const char *pszFuncName,const int ParmNum){ 367 367 ////////////////////////// 368 368 // キャストに関する警告 … … 396 396 } 397 397 398 bool CheckDifferentType( int VarType,LONG_PTR lpVarIndex,int CalcType,LONG_PTR lpCalcIndex,char *pszFuncName,int ParmNum){398 bool CheckDifferentType(const int VarType,const LONG_PTR lpVarIndex,int CalcType,const LONG_PTR lpCalcIndex,const char *pszFuncName,const int ParmNum){ 399 399 400 400 if(VarType==DEF_OBJECT||CalcType==DEF_OBJECT){ -
BasicCompiler_Common/hash.cpp
r31 r46 77 77 } 78 78 79 SUBINFO **GetOverloadSubHash( char *lpszName,int *pNum){79 SUBINFO **GetOverloadSubHash( const char *lpszName, int *pNum ){ 80 80 extern SUBINFO *pSubInfo; 81 81 extern int SubInfoNum; … … 225 225 226 226 //オーバーロードされていない関数を取得(昔のコンパイラソースコードとの互換性保持) 227 SUBINFO *GetSubHash(c har *lpszName,BOOL bError){227 SUBINFO *GetSubHash(const char *lpszName,BOOL bError){ 228 228 int num; 229 229 SUBINFO **ppsi,*psi;
Note:
See TracChangeset
for help on using the changeset viewer.