paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 14:40:25 +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); New(ResourceListCurrent);
ResourceListRoot:=ResourceListCurrent; ResourceListRoot:=ResourceListCurrent;
end; end;
ResourceListCurrent^.Next:=Nil;
{ name is lower case... } { name is lower case... }
ResourceListCurrent^.Name:=Name; ResourceListCurrent^.Name:=Name;
ResourceListCurrent^.Len:=Len; ResourceListCurrent^.Len:=Len;
@ -301,12 +302,16 @@ begin
end; end;
ResStrCount:=0; ResStrCount:=0;
ResourceListCurrent:=Nil; ResourceListCurrent:=Nil;
ResourceListRoot:=Nil;
end; end;
end. end.
{ {
$Log$ $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 + Hopefuly last fixes for resourcestrings
Revision 1.12 1999/08/25 16:41:07 peter Revision 1.12 1999/08/25 16:41:07 peter