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

[Antoine Kaufmann <toni@xxxxxxxxxxxxxxxx>]

Am Montag, 23. Juni 2008 22.36:12 schrieb Antoine Kaufmann:
> ! rtl: FileClose darf c_fclose nicht aufrufen, wenn das Handle -1 ist, da
> es als Pointer gewertet wird

Jetzt noch mit RTE

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
+        RunError(102);
+    end;
+
     c_fclose(handle);
 end;