Changeset 129 in dev


Ignore:
Timestamp:
Jun 2, 2007, 12:09:08 AM (17 years ago)
Author:
dai_9181
Message:

_System_StartupProgramの呼び出し順序を変更。

Files:
15 edited

Legend:

Unmodified
Added
Removed

  • BasicCompiler32/Compile_Calc.cpp

    r128 r129  
    412412}
    413413
    414 void OpcodeCalc(char *Command){
     414void OpcodeCalc( const char *Command ){
    415415    int i,i2,i3;
    416416    char variable[VN_SIZE];

  • BasicCompiler32/Compile_ProcOp.cpp

    r108 r129  
    4242        //GC用の変数を定義
    4343        InitGCVariables();
     44
     45        //_System_StartupProgramの呼び出し
     46        extern UserProc *pSub_System_StartupProgram;
     47        op_call(pSub_System_StartupProgram);
    4448
    4549        //クラスに属する静的メンバを定義

  • BasicCompiler32/Compile_Statement.cpp

    r128 r129  
    22#include "Opcode.h"
    33
    4 void OpcodeOthers(char *Command){
     4void OpcodeOthers( const char *Command ){
    55    int i,i2;
    66    UserProc *pUserProc;

  • BasicCompiler32/Opcode.h

    r128 r129  
    9898void ChangeTypeToByte(int OldType);
    9999void SetVariableFromEax(int VarType,int CalcType,RELATIVE_VAR *pRelativeVar);
    100 void OpcodeCalc(char *Command);
     100void OpcodeCalc( const char *Command );
    101101
    102102//NumOpe.cpp
    … …  
    170170
    171171//increment.cpp
    172 void IncDec(int idCalc, char *lpszLeft, char *lpszRight);
     172void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight);
    173173
    174174//calc2.cpp
    … …  
    269269
    270270//Compile_Statement.cpp
    271 void OpcodeOthers(char *Command);
     271void OpcodeOthers( const char *Command );
    272272void OpcodeIf(char *Parameter);
    273273void OpcodeGoto(char *Parameter);

  • BasicCompiler32/increment.cpp

    r75 r129  
    22#include "Opcode.h"
    33
    4 void IncDec(int idCalc, char *lpszLeft, char *lpszRight){
     4void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight){
    55
    66    ///////////////////////////

  • BasicCompiler64/Compile_Calc.cpp

    r128 r129  
    2525    }
    2626}
    27 void OpcodeCalc(char *Command){
     27void OpcodeCalc(const char *Command){
    2828    int i,i2,i3;
    2929    char variable[VN_SIZE];

  • BasicCompiler64/Compile_ProcOp.cpp

    r108 r129  
    4343        //GC用の変数を定義
    4444        InitGCVariables();
     45
     46        //_System_StartupProgramの呼び出し
     47        extern UserProc *pSub_System_StartupProgram;
     48        op_call(pSub_System_StartupProgram);
    4549
    4650        //クラスに属する静的メンバを定義

  • BasicCompiler64/Compile_Statement.cpp

    r128 r129  
    22#include "Opcode.h"
    33
    4 void OpcodeOthers(char *Command){
     4void OpcodeOthers(const char *Command){
    55    int i,i2;
    66    UserProc *pUserProc;

  • BasicCompiler64/Compile_Var.cpp

    r120 r129  
    10511051        /////////////////////////
    10521052
     1053        //OpcodeOthers( ( (string)"OutputDebugString(Ex\"" + VarName + "\r\n\")" ).c_str() );
    10531054        AddGlobalVariable(VarName,SubScripts,type,InitBuf,ConstractParameter,dwFlags);
    10541055    }

  • BasicCompiler64/MakePeHdr.cpp

    r105 r129  
    485485                continue;
    486486            }
    487 
     487/*
    488488            //エラーチェック
    489489            HINSTANCE hLib;
    … …  
    510510                FreeLibrary(hLib);
    511511            }
    512 
     512*/
    513513            pDllProc=pDllProc->pNextData;
    514514        }

  • BasicCompiler64/NumOpe.cpp

    r128 r129  
    717717                    //型名
    718718                    if( Type::StringToType( term, resultType ) ){
    719 
    720                         if( resultType.IsObject() ){
    721                             if( resultType.GetClass().IsBlittableType() ){
    722                                 // Blittable型のときは基本型として扱う
    723                                 // ※ただし、コンパイル中のメソッドがBlittable型クラスに属していないこと
    724                                 if( UserProc::IsLocalAreaCompiling()
    725                                     && UserProc::CompilingUserProc().HasParentClass()
    726                                     && UserProc::CompilingUserProc().GetParentClass().IsBlittableType() )
    727                                 {
    728                                     // コンパイル中のメソッドがBlittable型クラスに属している
    729                                 }
    730                                 else{
    731                                     resultType = resultType.GetClass().GetBlittableType();
    732                                 }
    733                             }
    734                         }
    735 
    736719                        resultType.SetBasicType( resultType.GetBasicType() | FLAG_CAST );
    737720                    }

  • BasicCompiler64/Opcode.h

    r128 r129  
    248248//Compile_Calc.cpp
    249249void SetVariableFromRax(int VarType,int CalcType,RELATIVE_VAR *pRelativeVar);
    250 void OpcodeCalc(char *Command);
     250void OpcodeCalc(const char *Command);
    251251
    252252//NumOpe.cpp
    … …  
    305305
    306306//increment.cpp
    307 void IncDec(int idCalc, char *lpszLeft, char *lpszRight);
     307void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight);
    308308
    309309//Compile_Calc_PushVar.cpp
    … …  
    401401
    402402//Compile_Statement.cpp
    403 void OpcodeOthers(char *Command);
     403void OpcodeOthers(const char *Command);
    404404void OpcodeIf(char *Parameter);
    405405void OpcodeGoto(char *Parameter);

  • BasicCompiler64/increment.cpp

    r75 r129  
    22#include "Opcode.h"
    33
    4 void IncDec(int idCalc, char *lpszLeft, char *lpszRight){
     4void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight){
    55
    66    ///////////////////////////

  • BasicCompiler_Common/Class.cpp

    r128 r129  
    1717CMember::CMember( CClass *pobj_c, DWORD access, bool isConst, bool isRef, char *buffer, int nowLine ){
    1818    extern int cp;
     19
     20                        if( strstr(buffer,"environVarName")){
     21                            int test=0;
     22                        }
    1923
    2024    //構文を解析

  • BasicCompiler_Common/NumOpe_GetType.cpp

    r128 r129  
    603603                    )){
    604604                        // ダウンキャストを許可する
     605                }
     606                else if( idCalc == CALC_AS ){
     607                    // NumOpe_GetTypeではすべてのキャストを許可する
    605608                }
    606609                else{
Note: See TracChangeset for help on using the changeset viewer.