paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:29:18 +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 BEGIN
TObject.Init; { Initialize object } TObject.Init; { Initialize object }
Found := False; { Preset false } Found := False; { Preset false }
If (Stream<>Nil) Then Begin If (AStream<>Nil) Then Begin
Stream := AStream; { Hold stream } Stream := AStream; { Hold stream }
BasePos := Stream^.GetPos; { Get position } BasePos := Stream^.GetPos; { Get position }
Repeat Repeat
@ -2680,7 +2680,10 @@ END;
END. END.
{ {
$Log$ $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 * made a real fpc only version, no platform.inc
* applied fixes from the mailinglist * applied fixes from the mailinglist
+ included some routines from callspec + included some routines from callspec