Changeset 431 in dev for trunk/abdev/BasicCompiler_Common
- Timestamp:
- Mar 11, 2008, 4:02:38 PM (17 years ago)
- Location:
- trunk/abdev/BasicCompiler_Common
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abdev/BasicCompiler_Common/common.h
r424 r431 11 11 #include "../BasicCompiler64/resource.h" 12 12 #include "../BasicCompiler64/CommandValue.h" 13 #include "../BasicCompiler64/FunctionValue.h"14 13 #define OPCODE_H_PATH "../BasicCompiler64/opcode.h" 15 14 #else 16 15 #include "../BasicCompiler32/resource.h" 17 16 #include "../BasicCompiler32/CommandValue.h" 18 #include "../BasicCompiler32/FunctionValue.h"19 17 #define OPCODE_H_PATH "../BasicCompiler32/opcode.h" 20 18 #endif -
trunk/abdev/BasicCompiler_Common/src/Class.cpp
r417 r431 1326 1326 1327 1327 char temporary[8192]; 1328 sprintf(temporary, "%c%ctempType=Nothing%c%c TypeBaseImpl"1328 sprintf(temporary, "%c%ctempType=Nothing%c%c_System_TypeForClass" 1329 1329 , HIBYTE( COM_DIM ) 1330 1330 , LOBYTE( COM_DIM ) … … 1347 1347 if( objClass.HasSuperClass() || objClass.GetDynamicMembers().size() ){ 1348 1348 sprintf( temporary 1349 , "tempType=Search(\"%s\") "1349 , "tempType=Search(\"%s\") As ActiveBasic.Core._System_TypeForClass" 1350 1350 , objClass.GetFullName().c_str() 1351 ); 1352 1353 // コンパイル 1354 MakeMiddleCode( temporary ); 1355 ChangeOpcode( temporary ); 1356 1357 sprintf( temporary 1358 , "tempType.SetClassInfo(%d,_System_GetComVtbl(%s),_System_GetVtblList(%s),_System_GetDefaultConstructor(%s),_System_GetDestructor(%s))" 1359 , objClass.GetSize() 1360 , objClass.GetFullName().c_str() 1361 , objClass.GetFullName().c_str() 1362 , objClass.GetFullName().c_str() 1363 , objClass.GetFullName().c_str() 1364 , objClass.GetName().c_str() 1351 1365 ); 1352 1366
Note:
See TracChangeset
for help on using the changeset viewer.