Changeset 208 for Include/basic

Timestamp:

Apr 7, 2007, 10:20:40 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

[207]参照型変数のNothing初期化に対応する修正

Location:

Include/basic

Files:

• function.sbp (modified) (1 diff)
• prompt.sbp (modified) (2 diffs)

Include/basic/function.sbp

@@ -528 +528 @@
 
 Function Space$(length As Long) As String
-    Space$.ReSize(length, &H20 As StrChar)
+    Return New String(&h20 As StrChar, length)
 End Function
 

Include/basic/prompt.sbp

@@ -509 +509 @@
 
     '強制的に終了する
-    ExitProcess(0)
+    End 'ExitProcess(0)
 
     EnterCriticalSection(_PromptSys_SectionOfBufferAccess)
@@ -522 +522 @@
     DeleteCriticalSection(_PromptSys_SectionOfBufferAccess)
 
-    ExitProcess(0)
+    End 'ExitProcess(0)
 End Function