Changeset 73 in dev for BasicCompiler64/Compile_ProcOp.cpp

Timestamp:

Mar 16, 2007, 11:07:14 PM (18 years ago)

Author:

dai_9181

Message:

Parameterクラスを適用。32bit側は動くようになったので、64bitのほうを調整する。

File:

• BasicCompiler64/Compile_ProcOp.cpp (modified) (13 diffs)

BasicCompiler64/Compile_ProcOp.cpp

@@ -204 +204 @@
     }
 }
-void CompileBufferInProcedure(SUBINFO *psi){
+void CompileBufferInProcedure(SubInfo *psi){
     extern char *basbuf;
     extern HANDLE hHeap;
-    extern SUBINFO **ppSubHash;
+    extern SubInfo **ppSubHash;
     extern BOOL bDebugCompile;
     int i3,i4,VarSize,BufferSize;
@@ -328 +328 @@
         LocalVar=(VARIABLE *)HeapReAlloc(hHeap,0,LocalVar,(MaxLocalVarNum+1)*sizeof(VARIABLE));
 
-        lstrcpy(LocalVar[MaxLocalVarNum].name,psi->pRealParmInfo[i3].name);
+        lstrcpy(LocalVar[MaxLocalVarNum].name,psi->realParams[i3].GetVarName.c_str());
 
         // TODO: パラメータのConst定義の指定が未完成
         LocalVar[MaxLocalVarNum].bConst=false;
 
-        LocalVar[MaxLocalVarNum].bArray=psi->pRealParmInfo[i3].bArray;
-        memcpy(LocalVar[MaxLocalVarNum].SubScripts,psi->pRealParmInfo[i3].SubScripts,MAX_ARRAYDIM*sizeof(int));
-
-        LocalVar[MaxLocalVarNum].type=psi->pRealParmInfo[i3].type;
+        LocalVar[MaxLocalVarNum].bArray=psi->realParams[i3].IsArray()?TRUE:FALSE;
+        memcpy(LocalVar[MaxLocalVarNum].SubScripts,psi->realParams[i3].GetSubScriptsPtr(),MAX_ARRAYDIM*sizeof(int));
+
+        LocalVar[MaxLocalVarNum].type=psi->realParams[i3].GetBasicType();
         if(LocalVar[MaxLocalVarNum].type==DEF_OBJECT
             ||LocalVar[MaxLocalVarNum].type==DEF_STRUCT){
@@ -343 +343 @@
         }
 
-        LocalVar[MaxLocalVarNum].u.index=psi->pRealParmInfo[i3].u.index;
-
-        if(psi->pRealParmInfo[i3].bByVal&&psi->pRealParmInfo[i3].type==DEF_STRUCT){
+        LocalVar[MaxLocalVarNum].u.index=psi->realParams[i3].GetIndex();
+
+        if(psi->realParams[i3].IsRef() == false&&psi->realParams[i3].IsStruct()){
             //構造体のByValパラメータ
             LocalVar[MaxLocalVarNum].fRef=REF_PARAMETER | OBJECT_PARAMETER;
@@ -351 +351 @@
         }
         else{
-            if(psi->pRealParmInfo[i3].bByVal&&psi->pRealParmInfo[i3].bArray==0){
+            if(psi->realParams[i3].IsRef() == false&&psi->realParams[i3].IsArray()){
                 LocalVar[MaxLocalVarNum].fRef=0;
                 VarSize=GetTypeSize(LocalVar[MaxLocalVarNum].type,LocalVar[MaxLocalVarNum].u.index);
@@ -383 +383 @@
 
     //コンパイル中の関数
-    extern SUBINFO *pCompilingSubInfo;
+    extern SubInfo *pCompilingSubInfo;
     pCompilingSubInfo=psi;
 
@@ -396 +396 @@
     for(i3=psi->RealParmNum-1;i3>=0;i3--){
         if(i3==3){
-            if(IsRealNumberType(psi->pRealParmInfo[i3].type)&&psi->pRealParmInfo[i3].bByVal){
+            if(psi->realParams[i3].IsReal()&&psi->realParams[i3].IsRef() == false){
                 //movsd qword ptr[rsp+0x20],xmm3
                 op_movsd_MR(REG_XMM3,REG_RSP,0x20,MOD_BASE_DISP32);
@@ -406 +406 @@
         }
         if(i3==2){
-            if(IsRealNumberType(psi->pRealParmInfo[i3].type)&&psi->pRealParmInfo[i3].bByVal){
+            if(psi->realParams[i3].IsReal()&&psi->realParams[i3].IsRef() == false){
                 //movsd qword ptr[rsp+0x18],xmm2
                 op_movsd_MR(REG_XMM2,REG_RSP,0x18,MOD_BASE_DISP32);
@@ -416 +416 @@
         }
         if(i3==1){
-            if(IsRealNumberType(psi->pRealParmInfo[i3].type)&&psi->pRealParmInfo[i3].bByVal){
+            if(psi->realParams[i3].IsReal()&&psi->realParams[i3].IsRef() == false){
                 //movsd qword ptr[rsp+0x10],xmm1
                 op_movsd_MR(REG_XMM1,REG_RSP,0x10,MOD_BASE_DISP32);
@@ -426 +426 @@
         }
         if(i3==0){
-            if(IsRealNumberType(psi->pRealParmInfo[i3].type)&&psi->pRealParmInfo[i3].bByVal){
+            if(psi->realParams[i3].IsReal()&&psi->realParams[i3].IsRef() == false){
                 //movsd qword ptr[rsp+0x8],xmm0
                 op_movsd_MR(REG_XMM0,REG_RSP,0x8,MOD_BASE_DISP32);
@@ -497 +497 @@
 
         //call _DebugSys_StartProc
-        extern SUBINFO *pSub_DebugSys_StartProc;
+        extern SubInfo *pSub_DebugSys_StartProc;
         op_call(pSub_DebugSys_StartProc);
     }
@@ -720 +720 @@
     if(bDebugCompile&&bDebugSupportProc==0){
         //call _DebugSys_EndProc
-        extern SUBINFO *pSub_DebugSys_EndProc;
+        extern SubInfo *pSub_DebugSys_EndProc;
         op_call(pSub_DebugSys_EndProc);
     }
@@ -819 +819 @@
 }
 void CompileLocal(){
-    extern SUBINFO **ppSubHash;
+    extern SubInfo **ppSubHash;
     int i2;
-    SUBINFO *psi;
+    SubInfo *psi;
 
     extern BOOL bDll;
@@ -835 +835 @@
     //_System_InitStaticLocalVariablesは一番最後にコンパイル
     //※一般関数内の静的変数オブジェクトをすべて収集しなければならない
-    extern SUBINFO *pSub_System_InitStaticLocalVariables;
+    extern SubInfo *pSub_System_InitStaticLocalVariables;
     pSub_System_InitStaticLocalVariables->bCompile=1;
 
     //_System_Call_Destructor_of_GlobalObjectは一番最後にコンパイル
-    extern SUBINFO *pSub_System_Call_Destructor_of_GlobalObject;
+    extern SubInfo *pSub_System_Call_Destructor_of_GlobalObject;
     pSub_System_Call_Destructor_of_GlobalObject->bCompile=1;