paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 05:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* resourcestrings ams list needs unitname prepended

Browse Source
This commit is contained in:
michael 1999-08-23 11:48:23 +00:00
parent d57e16aec2
commit ec590068e2
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cresstr.pas
View File

@ -173,14 +173,15 @@ procedure insertresourcestrings;
if not(assigned(resourcestringlist)) then
resourcestringlist:=new(paasmoutput,init);
resourcestringlist^.insert(new(pai_const,init_32bit(resstrcount)));
resourcestringlist^.insert(new(pai_symbol,initname_global('RESOURCESTRINGLIST',0)));
resourcestringlist^.insert(new(pai_symbol,initname_global(current_module^.modulename^+'_'+'RESOURCESTRINGLIST',0)));
R:=ResourceListRoot;
While R<>Nil do
begin
AppendToAsmResList(R);
R:=R^.Next;
end;
resourcestringlist^.concat(new(pai_symbol_end,initname('RESOURCESTRINGLIST')));
resourcestringlist^.concat(new(pai_symbol_end,initname(current_module^.modulename^+'_'+'RESOURCESTRINGLIST')));
end;
{ ---------------------------------------------------------------------
@ -307,7 +308,10 @@ end;
end.
{
$Log$
Revision 1.10 1999-08-23 11:45:41 michael
Revision 1.11 1999-08-23 11:48:23 michael
* resourcestrings ams list needs unitname prepended
Revision 1.10 1999/08/23 11:45:41 michael
* Hopefully final attempt at resourcestrings
Revision 1.9 1999/08/15 21:57:59 michael