moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00: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;
end; end;
{$IFDEF FPC} {{$IFDEF FPC}
// mh: because FPC doesn't handle pointers to overloaded functions // mh: because FPC doesn't handle pointers to overloaded functions
function TFileStreamCreate(filename: string; mode: word): TFileStream; function TFileStreamCreate(filename: string; mode: word): TFileStream;
begin begin
result := TFilestream.Create(filename, mode); result := TFilestream.Create(filename, mode);
end; end;
{$ENDIF} {$ENDIF}}
procedure RIRegisterTFILESTREAM(Cl: TPSRuntimeClassImporter); procedure RIRegisterTFILESTREAM(Cl: TPSRuntimeClassImporter);
begin begin
with Cl.Add(TFILESTREAM) do with Cl.Add(TFILESTREAM) do
begin begin
{$IFDEF FPC} // {$IFDEF FPC}
RegisterConstructor(@TFileStreamCreate, 'CREATE'); // RegisterConstructor(@TFileStreamCreate, 'CREATE');
{$ELSE} // {$ELSE}
RegisterConstructor(@TFILESTREAM.CREATE, 'CREATE'); RegisterConstructor(@TFILESTREAM.CREATE, 'CREATE');
{$ENDIF} // {$ENDIF}
end; end;
end; end;