Changeset 431 in dev for trunk/abdev/BasicCompiler_Common


Ignore:
Timestamp:
Mar 11, 2008, 4:02:38 PM (17 years ago)
Author:
dai_9181
Message:

_System_Newに対応(32bit版のみ)。

Location:
trunk/abdev/BasicCompiler_Common
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abdev/BasicCompiler_Common/common.h

    r424 r431  
    1111#include "../BasicCompiler64/resource.h"
    1212#include "../BasicCompiler64/CommandValue.h"
    13 #include "../BasicCompiler64/FunctionValue.h"
    1413#define OPCODE_H_PATH "../BasicCompiler64/opcode.h"
    1514#else
    1615#include "../BasicCompiler32/resource.h"
    1716#include "../BasicCompiler32/CommandValue.h"
    18 #include "../BasicCompiler32/FunctionValue.h"
    1917#define OPCODE_H_PATH "../BasicCompiler32/opcode.h"
    2018#endif
  • trunk/abdev/BasicCompiler_Common/src/Class.cpp

    r417 r431  
    13261326
    13271327    char temporary[8192];
    1328     sprintf(temporary, "%c%ctempType=Nothing%c%cTypeBaseImpl"
     1328    sprintf(temporary, "%c%ctempType=Nothing%c%c_System_TypeForClass"
    13291329        , HIBYTE( COM_DIM )
    13301330        , LOBYTE( COM_DIM )
     
    13471347        if( objClass.HasSuperClass() || objClass.GetDynamicMembers().size() ){
    13481348            sprintf( temporary
    1349                 , "tempType=Search(\"%s\")"
     1349                , "tempType=Search(\"%s\") As ActiveBasic.Core._System_TypeForClass"
    13501350                , 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()
    13511365            );
    13521366
Note: See TracChangeset for help on using the changeset viewer.