From 6d8da49050d834f08265cfd8ace18b6681f12470 Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Sun, 11 Apr 2010 21:54:22 +0200
Subject: [PATCH] Fixed filestreams, yay!

---
 Units/PascalScript/uPSR_classes.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Units/PascalScript/uPSR_classes.pas b/Units/PascalScript/uPSR_classes.pas
index 7729d49..b565293 100644
--- a/Units/PascalScript/uPSR_classes.pas
+++ b/Units/PascalScript/uPSR_classes.pas
@@ -191,23 +191,23 @@ begin
   end;
 end;
 
-{$IFDEF FPC}
+{{$IFDEF FPC}
 // mh: because FPC doesn't handle pointers to overloaded functions
 function TFileStreamCreate(filename: string; mode: word): TFileStream;
 begin
   result := TFilestream.Create(filename, mode);
 end;
-{$ENDIF}
+{$ENDIF}}
 
 procedure RIRegisterTFILESTREAM(Cl: TPSRuntimeClassImporter);
 begin
   with Cl.Add(TFILESTREAM) do
   begin
-    {$IFDEF FPC}
-    RegisterConstructor(@TFileStreamCreate, 'CREATE');
-    {$ELSE}
+//    {$IFDEF FPC}
+//    RegisterConstructor(@TFileStreamCreate, 'CREATE');
+//    {$ELSE}
     RegisterConstructor(@TFILESTREAM.CREATE, 'CREATE');
-    {$ENDIF}
+//    {$ENDIF}
   end;
 end;