Changeset 633 in dev for trunk/ab5.0/abdev/compiler_x64
- Timestamp:
- Jun 7, 2008, 9:17:50 AM (16 years ago)
- Location:
- trunk/ab5.0/abdev/compiler_x64
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/abdev/compiler_x64/Compile_ProcOp.cpp
r603 r633 213 213 } 214 214 215 trace_for_sourcecodestep( "★★★ " << pUserProc->GetFullName() << "のコンパイルを開始" );215 trace_for_sourcecodestep( "★★★ " << FormatEscapeSequenceStringToDefaultString( pUserProc->GetFullName() ) << "のコンパイルを開始" ); 216 216 217 217 pUserProc->CompleteCompile(); … … 256 256 if( !pUserProc->IsAutoGeneration() ) 257 257 { 258 cp=pUserProc->Get CodePos();258 cp=pUserProc->GetSourceCodePosition().GetPos(); 259 259 for(;;cp++){ 260 260 if(IsCommandDelimitation(basbuf[cp])) break; -
trunk/ab5.0/abdev/compiler_x64/Compile_Var.cpp
r603 r633 559 559 } 560 560 561 int typeDefIndex = compiler.GetObjectModule().meta.GetTypeDefs().GetIndex(561 const TypeDef *pTypeDef = compiler.GetObjectModule().meta.GetTypeDefs().Find( 562 562 LexicalAnalyzer::FullNameToSymbol( VarName ) 563 563 ); 564 if( typeDefIndex != -1 ){ 564 if( pTypeDef ) 565 { 565 566 // TypeDef後の型名だったとき 566 lstrcpy( VarName, compiler.GetObjectModule().meta.GetTypeDefs()[typeDefIndex].GetBaseName().c_str() );567 lstrcpy( VarName, pTypeDef->GetBaseName().c_str() ); 567 568 } 568 569 -
trunk/ab5.0/abdev/compiler_x64/MakePeHdr.cpp
r627 r633 549 549 550 550 if(!hLib){ 551 compiler.errorMessenger.Output(-106,pDllProc->GetDllFileName().c_str(),pDllProc->Get CodePos());551 compiler.errorMessenger.Output(-106,pDllProc->GetDllFileName().c_str(),pDllProc->GetSourceCodePosition().GetPos()); 552 552 } 553 553 } … … 556 556 if(!GetProcAddress(hLib,pDllProc->GetAlias().c_str())){ 557 557 FreeLibrary(hLib); 558 compiler.errorMessenger.Output(-107,pDllProc->GetAlias(),pDllProc->Get CodePos());558 compiler.errorMessenger.Output(-107,pDllProc->GetAlias(),pDllProc->GetSourceCodePosition().GetPos()); 559 559 } 560 560 FreeLibrary(hLib); -
trunk/ab5.0/abdev/compiler_x64/NumOpe.cpp
r600 r633 1126 1126 isNothing_stack[sp] = true; 1127 1127 1128 type_stack[sp] = DEF_OBJECT;1129 1128 if( baseType.IsObject() ){ 1129 type_stack[sp] = DEF_OBJECT; 1130 1130 index_stack[sp] = baseType.GetIndex(); 1131 1131 } 1132 1132 else{ 1133 index_stack[sp] = (LONG_PTR)compiler.GetObjectModule().meta.GetClasses().GetObjectClassPtr(); 1133 type_stack[sp] = baseType.GetBasicType(); 1134 index_stack[sp] = baseType.GetIndex(); 1134 1135 } 1135 1136
Note:
See TracChangeset
for help on using the changeset viewer.