moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 14:50:18 -05:00
Code Issues Releases Wiki Activity

Fixed filestreams, yay!

Browse Source
This commit is contained in:
Raymond 2010-04-11 21:54:22 +02:00
parent 2759ad3a03
commit 6d8da49050
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Units/PascalScript/uPSR_classes.pas
View File

@ -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;