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

* Fixed small bug: next field in resourcelist was not initialized

Browse Source
This commit is contained in:
michael 1999-08-27 15:55:36 +00:00
parent 52f60d3a7e
commit 76f28920e9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cresstr.pas
View File

@ -98,6 +98,7 @@ begin
New(ResourceListCurrent);
ResourceListRoot:=ResourceListCurrent;
end;
ResourceListCurrent^.Next:=Nil;
{ name is lower case... }
ResourceListCurrent^.Name:=Name;
ResourceListCurrent^.Len:=Len;
@ -301,12 +302,16 @@ begin
end;
ResStrCount:=0;
ResourceListCurrent:=Nil;
ResourceListRoot:=Nil;
end;
end.
{
$Log$
Revision 1.13 1999-08-26 20:24:39 michael
Revision 1.14 1999-08-27 15:55:36 michael
* Fixed small bug: next field in resourcelist was not initialized
Revision 1.13 1999/08/26 20:24:39 michael
+ Hopefuly last fixes for resourcestrings
Revision 1.12 1999/08/25 16:41:07 peter