paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed TREsourcefile.init

Browse Source
This commit is contained in:
michael 1998-11-26 14:41:22 +00:00
parent df89c828e5
commit 5d9dc4f800
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objects.pp
View File

@ -2261,7 +2261,7 @@ VAR Found, Stop: Boolean; Header: THeader;
BEGIN
TObject.Init; { Initialize object }
Found := False; { Preset false }
If (Stream<>Nil) Then Begin
If (AStream<>Nil) Then Begin
Stream := AStream; { Hold stream }
BasePos := Stream^.GetPos; { Get position }
Repeat
@ -2680,7 +2680,10 @@ END;
END.
{
$Log$
Revision 1.14 1998-11-24 17:11:22 peter
Revision 1.15 1998-11-26 14:41:22 michael
+ Fixed TREsourcefile.init
Revision 1.14 1998/11/24 17:11:22 peter
* made a real fpc only version, no platform.inc
* applied fixes from the mailinglist
+ included some routines from callspec