Changeset 129 in dev for BasicCompiler64

Timestamp:

Jun 2, 2007, 12:09:08 AM (17 years ago)

Author:

dai_9181

Message:

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

Location:

BasicCompiler64

Files:

• Compile_Calc.cpp (modified) (1 diff)
• Compile_ProcOp.cpp (modified) (1 diff)
• Compile_Statement.cpp (modified) (1 diff)
• Compile_Var.cpp (modified) (1 diff)
• MakePeHdr.cpp (modified) (2 diffs)
• NumOpe.cpp (modified) (1 diff)
• Opcode.h (modified) (3 diffs)
• increment.cpp (modified) (1 diff)

BasicCompiler64/Compile_Calc.cpp

@@ -25 +25 @@
     }
 }
-void OpcodeCalc(char *Command){
+void OpcodeCalc(const char *Command){
     int i,i2,i3;
     char variable[VN_SIZE];

BasicCompiler64/Compile_ProcOp.cpp

@@ -43 +43 @@
         //GC用の変数を定義
         InitGCVariables();
+
+        //_System_StartupProgramの呼び出し
+        extern UserProc *pSub_System_StartupProgram;
+        op_call(pSub_System_StartupProgram);
 
         //クラスに属する静的メンバを定義

BasicCompiler64/Compile_Statement.cpp

@@ -2 +2 @@
 #include "Opcode.h"
 
-void OpcodeOthers(char *Command){
+void OpcodeOthers(const char *Command){
     int i,i2;
     UserProc *pUserProc;

BasicCompiler64/Compile_Var.cpp

@@ -1051 +1051 @@
         /////////////////////////
 
+        //OpcodeOthers( ( (string)"OutputDebugString(Ex\"" + VarName + "\r\n\")" ).c_str() );
         AddGlobalVariable(VarName,SubScripts,type,InitBuf,ConstractParameter,dwFlags);
     }

BasicCompiler64/MakePeHdr.cpp

@@ -485 +485 @@
                 continue;
             }
-
+/*
             //エラーチェック
             HINSTANCE hLib;
@@ -510 +510 @@
                 FreeLibrary(hLib);
             }
-
+*/
             pDllProc=pDllProc->pNextData;
         }

BasicCompiler64/NumOpe.cpp

@@ -717 +717 @@
                     //型名
                     if( Type::StringToType( term, resultType ) ){
-
-                        if( resultType.IsObject() ){
-                            if( resultType.GetClass().IsBlittableType() ){
-                                // Blittable型のときは基本型として扱う
-                                // ※ただし、コンパイル中のメソッドがBlittable型クラスに属していないこと
-                                if( UserProc::IsLocalAreaCompiling()
-                                    && UserProc::CompilingUserProc().HasParentClass()
-                                    && UserProc::CompilingUserProc().GetParentClass().IsBlittableType() )
-                                {
-                                    // コンパイル中のメソッドがBlittable型クラスに属している
-                                }
-                                else{
-                                    resultType = resultType.GetClass().GetBlittableType();
-                                }
-                            }
-                        }
-
                         resultType.SetBasicType( resultType.GetBasicType() | FLAG_CAST );
                     }

BasicCompiler64/Opcode.h

@@ -248 +248 @@
 //Compile_Calc.cpp
 void SetVariableFromRax(int VarType,int CalcType,RELATIVE_VAR *pRelativeVar);
-void OpcodeCalc(char *Command);
+void OpcodeCalc(const char *Command);
 
 //NumOpe.cpp
@@ -305 +305 @@
 
 //increment.cpp
-void IncDec(int idCalc, char *lpszLeft, char *lpszRight);
+void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight);
 
 //Compile_Calc_PushVar.cpp
@@ -401 +401 @@
 
 //Compile_Statement.cpp
-void OpcodeOthers(char *Command);
+void OpcodeOthers(const char *Command);
 void OpcodeIf(char *Parameter);
 void OpcodeGoto(char *Parameter);

BasicCompiler64/increment.cpp

@@ -2 +2 @@
 #include "Opcode.h"
 
-void IncDec(int idCalc, char *lpszLeft, char *lpszRight){
+void IncDec(int idCalc, const char *lpszLeft, const char *lpszRight){
 
     ///////////////////////////