Changeset 64 in dev for BasicCompiler64/Compile_Statement.cpp

Timestamp:

Mar 8, 2007, 2:49:34 AM (18 years ago)

Author:

dai_9181

Message:

すべてのオブジェクトを参照型に切り替えた。

File:

• BasicCompiler64/Compile_Statement.cpp (modified) (11 diffs)

BasicCompiler64/Compile_Statement.cpp

@@ -99 +99 @@
         /////////////////////
 
-        if(i2==DEF_OBJECT){
+        if(i2==DEF_STRUCT){
             //mov r14,rax
             op_mov_RR(REG_R14,REG_RAX);
@@ -888 +888 @@
     //add rax,offset（Gosubステートメントの最終ポイント）
     int schedule=obp,schedule2;
-    op_add64_value(REG_RAX,0);
+    op_add_RV(REG_RAX,0);
     schedule2=obp-sizeof(long);
 
@@ -951 +951 @@
             else temp=pCompilingSubInfo->name;
 
+            /*
+            TODO: 消す
             if( pCompilingSubInfo->isReturnRef ){
                 //参照型
@@ -956 +958 @@
             }
             else{
-                //値型
+                //値型*/
                 char temporary[VN_SIZE];
                 sprintf(temporary,"%s=%s",temp,Parameter);
                 OpcodeCalc(temporary);
-            }
+            //}
         }
 
@@ -968 +970 @@
 }
 
-void Opcode_Input(char *Parameter){
+void Opcode_Input(const char *Parameter){
     extern int cp;
     int i2,i3,i4,i5,type;
     BOOL bFile;
     char temporary[VN_SIZE],temp2[VN_SIZE],buffer[VN_SIZE];
-
-    KillStringSpaces(Parameter);
 
     if(Parameter[0]=='#'){
@@ -1084 +1084 @@
     Opcode_CallProc(buffer,psi,0,"",0);
 }
-void Opcode_PrintUsing(char *Parameter,char *buffer,BOOL bFile){
+void Opcode_PrintUsing(const char *Parameter,char *buffer,BOOL bFile){
     extern int cp;
     int i2,i3,i4,i5;
@@ -1090 +1090 @@
     BOOL bReturnLine;
 
-    i2=lstrlen(Parameter);
-    if(Parameter[i2-1]==';'){
+    char parms[8192];
+    lstrcpy( parms, Parameter );
+
+    i2=lstrlen(parms);
+    if(parms[i2-1]==';'){
         bReturnLine=0;
-        Parameter[i2-1]=0;
+        parms[i2-1]=0;
     }
     else bReturnLine=1;
@@ -1099 +1102 @@
     i3=lstrlen(buffer);
     for(i2=0;;i2++,i3++){
-        if(Parameter[i2]==';'){
+        if(parms[i2]==';'){
             buffer[i3]=0;
             break;
         }
-        buffer[i3]=Parameter[i2];
-        if(Parameter[i2]=='\0') break;
-    }
-    if(Parameter[i2]==';') i2++;
+        buffer[i3]=parms[i2];
+        if(parms[i2]=='\0') break;
+    }
+    if(parms[i2]==';') i2++;
 
     if(bReturnLine) lstrcat(buffer,"+Ex\"\\r\\n\"");
@@ -1114 +1117 @@
     while(1){
         for(i3=0;;i2++,i3++){
-            if(Parameter[i2]=='\"'){
-                temporary[i3]=Parameter[i2];
+            if(parms[i2]=='\"'){
+                temporary[i3]=parms[i2];
                 for(i2++,i3++;;i2++,i3++){
-                    temporary[i3]=Parameter[i2];
-                    if(Parameter[i2]=='\"') break;
+                    temporary[i3]=parms[i2];
+                    if(parms[i2]=='\"') break;
                 }
                 continue;
             }
-            if(Parameter[i2]=='('){
-                i5=GetStringInPare(temporary+i3,Parameter+i2);
+            if(parms[i2]=='('){
+                i5=GetStringInPare(temporary+i3,parms+i2);
                 i2+=i5-1;
                 i3+=i5-1;
                 continue;
             }
-            if(Parameter[i2]=='['){
-                i5=GetStringInBracket(temporary+i3,Parameter+i2);
+            if(parms[i2]=='['){
+                i5=GetStringInBracket(temporary+i3,parms+i2);
                 i2+=i5-1;
                 i3+=i5-1;
                 continue;
             }
-            if(Parameter[i2]==','){
+            if(parms[i2]==','){
                 temporary[i3]=0;
                 i2++;
                 break;
             }
-            temporary[i3]=Parameter[i2];
-            if(Parameter[i2]=='\0') break;
+            temporary[i3]=parms[i2];
+            if(parms[i2]=='\0') break;
         }
         if(temporary[0]=='\0'){
@@ -1169 +1172 @@
 
         i4++;
-        if(Parameter[i2]=='\0') break;
+        if(parms[i2]=='\0') break;
     }
     sprintf(temp2,"_System_UsingDataType[%d]=-1",i4);
@@ -1183 +1186 @@
     Opcode_CallProc(buffer,psi,0,"",0);
 }
-void Opcode_Print(char *Parameter,BOOL bWrite){
+void Opcode_Print(const char *Parameter,BOOL bWrite){
     int i2,i3,i4,sw;
     char temporary[VN_SIZE],buffer[VN_SIZE];
     BOOL bFile;
-
-    KillStringSpaces(Parameter);
 
     if(Parameter[0]=='#'){