Changeset 214 for Include/basic

Timestamp:

Apr 15, 2007, 1:55:46 AM (18 years ago)

Author:

dai

Message:

GCでのメモリ回収処理を、実行時型情報を元に行うようにした。

Location:

Include/basic

Files:

• command.sbp (modified) (1 diff)
• function.sbp (modified) (1 diff)

Include/basic/command.sbp

@@ -266 +266 @@
 
 Dim _System_UsingDblData[_System_MAX_PARMSNUM] As Double
-Dim _System_UsingStrData[_System_MAX_PARMSNUM] As String
+Dim _System_UsingStrData[_System_MAX_PARMSNUM] As *Char     'TODO: 暫定対応（動作未確認）
 Dim _System_UsingDataType[_System_MAX_PARMSNUM] As DWord
 Function _System_GetUsingFormat(UsingStr As String) As String

Include/basic/function.sbp

@@ -779 +779 @@
             i64data=1
             While i>=2
-                Val += i64data * TempPtr[i]
+                Val += ( i64data * TempPtr[i] ) As Double
 
                 i64data *= &O10