Changeset 388 for trunk/Include/Classes/System/Environment.ab

Timestamp:

Nov 25, 2007, 4:31:35 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Stringなどで例外を投げるようにした。
#147の解決。
CType ASCII文字判定関数群の追加。

File:

• trunk/Include/Classes/System/Environment.ab (modified) (4 diffs)

trunk/Include/Classes/System/Environment.ab

@@ -31 +31 @@
     Static Function CurrentDirectory() As String
         Dim size = GetCurrentDirectory(0, 0)
-        Dim p = _System_malloc(SizeOf (TCHAR) * size) As PCTSTR
+        Dim p = GC_malloc_atomic(SizeOf (TCHAR) * size) As PCTSTR
         Dim len = GetCurrentDirectory(size, p)
         If len < size Then
             CurrentDirectory = New String(p, size As Long)
-            _System_free(p)
         End If
     End Function
@@ -92 +91 @@
         If Object.ReferenceEquals(sysDir, Nothing) Then
             Dim size = GetSystemDirectory(0, 0)
-            Dim p = _System_malloc(SizeOf (TCHAR) * size) As PTSTR
+            Dim p = GC_malloc_atomic(SizeOf (TCHAR) * size) As PTSTR
             Dim len = GetSystemDirectory(p, size)
             sysDir = New String(p, len As Long)
-            _System_free(p)
         End If
         Return sysDir
@@ -145 +143 @@
         Dim src = ToTCStr(s)
         Dim size = ExpandEnvironmentStrings(src, 0, 0)
-        Dim dst = _System_malloc(SizeOf (TCHAR) * size) As PTSTR
+        Dim dst = GC_malloc_atomic(SizeOf (TCHAR) * size) As PTSTR
         ExpandEnvironmentStrings(src, dst, size)
         ExpandEnvironmentVariables = New String(dst, size - 1)
-        _System_free(dst)
     End Function
 
@@ -160 +157 @@
         Dim tcsVariable = ToTCStr(variable)
         Dim size = _System_GetEnvironmentVariable(tcsVariable, 0, 0)
-        Dim p = _System_malloc(SizeOf (TCHAR) * size) As PTSTR
+        Dim p = GC_malloc_atomic(SizeOf (TCHAR) * size) As PTSTR
         Dim len = _System_GetEnvironmentVariable(tcsVariable, p, size)
         GetEnvironmentVariable = New String(p, len As Long)
-        _System_free(p)
     End Function