[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Lost] [Patch] Pascal-RTL fix für FileClose

! rtl: FileClose darf c_fclose nicht aufrufen, wenn das Handle -1 ist, da es 
als Pointer gewertet wird

Index: trunk/src/modules/pas/lib/rtl/sysutils.pp
===================================================================
--- trunk.orig/src/modules/pas/lib/rtl/sysutils.pp
+++ trunk/src/modules/pas/lib/rtl/sysutils.pp
@@ -70,6 +70,11 @@ end;
 
 procedure FileClose(Handle: LongInt);
 begin
+    (* Das C-fclose darf nicht -1 als Pointer erhalten *)
+    if Handle = -1 then begin
+        exit();
+    end;
+
     c_fclose(handle);
 end;