Changeset 303 for trunk/Include/basic.sbp

Timestamp:

Aug 24, 2007, 11:14:46 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

フルコンパイルでのミスあぶり出し。註：修正は全て@300や@301以前に行われた。

File:

• trunk/Include/basic.sbp (modified) (8 diffs)

trunk/Include/basic.sbp

@@ -1 +1 @@
 'basic.sbp
-
-#_core
 
 ' Unicodeが不安定な間の暫定対応
@@ -9 +7 @@
 #ifndef _INC_BASIC
 #define _INC_BASIC
-
 
 Sub _System_InitDllGlobalVariables()    'dummy
@@ -54 +51 @@
 TypeDef Int16 = Integer
 TypeDef Int8 = SByte
-
-TypeDef BOOL = Long
 
 ' Boolena型の定数
@@ -122 +117 @@
 ' Specify elements number
 '--------------------------
-Const ELM(n) = (n - 1)
+Const ELM(n) = ((n) - 1)
 
-#include <windows.sbp>
-#include <crt.sbp>
-#include <objbase.sbp>
+#require <windows.sbp>
+#require <crt.sbp>
 
 
@@ -138 +132 @@
 Sub _System_StartupProgram()
     'Unsafe
+
         'この関数はアプリケーションの起動時にシステムからコールバックされます
 
@@ -150 +145 @@
         ActiveBasic.Core._System_TypeBase.Initialize()
 
-        ' Initialize static variables
+        'Initialize static variables
         _System_InitStaticLocalVariables()
 
@@ -168 +163 @@
         ' GC管理オブジェクトを破棄
         _System_pGC->Finish()
-        _System_free( _System_pGC )
+'       _System_free( _System_pGC )
 
         DeleteCriticalSection(_System_CriticalSection)
@@ -178 +173 @@
 
 
-#include <system\interface.ab>
-#include <system\built_in.ab>
-#include <system\string.sbp>
-#include <system\debug.sbp>
-#include <system\gc.sbp>
-#include <system\enum.sbp>
-#include <system\exception.ab>
 
-#include <Classes\index.ab>
+#require <system\string.sbp>
+#require <system\debug.sbp>
+#require <system\gc.sbp>
+#require <system\enum.sbp>
+#require <system\exception.ab>
+
+#require <Classes\index.ab>
 
 
-#include <basic\function.sbp>
-#include <basic\command.sbp>
+#require <basic\function.sbp>
+#require <basic\command.sbp>