Changeset 47 in dev for BasicCompiler_Common/Enum.cpp

Timestamp:

Feb 10, 2007, 3:12:04 AM (18 years ago)

Author:

dai_9181

Message:

列挙子の比較演算が正常に行えないバグを修正。
クラス名と同名のグローバル関数を定義できないバグを修正

File:

• BasicCompiler_Common/Enum.cpp (modified) (2 diffs)

BasicCompiler_Common/Enum.cpp

@@ -161 +161 @@
         lstrcpy(buffer+length,"\tEnd Sub\n");
         length+=lstrlen(buffer+length);
+        sprintf(buffer+length,"\tSub %s(ByRef e As %s)\n",parent->TypeName,parent->TypeName);
+        length+=lstrlen(buffer+length);
+        lstrcpy(buffer+length,"\t\tEnumBase(e.m_Value)\n");
+        length+=lstrlen(buffer+length);
+        lstrcpy(buffer+length,"\tEnd Sub\n");
+        length+=lstrlen(buffer+length);
         sprintf(buffer+length,"\tSub %s(value As Long)\n",parent->TypeName);
         length+=lstrlen(buffer+length);
@@ -233 +239 @@
         length+=lstrlen(buffer+length);
 
+        sprintf(buffer+length,"\tFunction Operator== (ByRef e As %s) As Boolean\n",parent->TypeName);
+        length+=lstrlen(buffer+length);
+        lstrcpy(buffer+length,"\t\tReturn ( e.m_Value = m_Value )\n");
+        length+=lstrlen(buffer+length);
+        lstrcpy(buffer+length,"\tEnd Function\n");
+        length+=lstrlen(buffer+length);
+
         lstrcpy(buffer+length,"End Class\n");
         length+=lstrlen(buffer+length);