paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ resource string tables are now aligned

Browse Source
This commit is contained in:
carl 2002-11-09 15:39:03 +00:00
parent fd24f60a1c
commit bd7af8b12f
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cresstr.pas
View File

@ -62,7 +62,8 @@ implementation
uses uses
cutils,globals, cutils,globals,
verbose,fmodule, verbose,fmodule,
aasmbase,aasmtai; aasmbase,aasmtai,
aasmcpu,cpuinfo;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -156,6 +157,7 @@ procedure TResourceStrings.CreateResourceStringList;
begin begin
objectlibrary.getdatalabel(l1); objectlibrary.getdatalabel(l1);
resourcestringlist.concat(tai_const_symbol.create(l1)); resourcestringlist.concat(tai_const_symbol.create(l1));
consts.concat(tai_align.Create(const_align(pointer_size)));
consts.concat(tai_const.create_32bit(len)); consts.concat(tai_const.create_32bit(len));
consts.concat(tai_const.create_32bit(len)); consts.concat(tai_const.create_32bit(len));
consts.concat(tai_const.create_32bit(-1)); consts.concat(tai_const.create_32bit(-1));
@ -173,6 +175,7 @@ procedure TResourceStrings.CreateResourceStringList;
objectlibrary.getdatalabel(l1); objectlibrary.getdatalabel(l1);
L:=Length(Name); L:=Length(Name);
resourcestringlist.concat(tai_const_symbol.create(l1)); resourcestringlist.concat(tai_const_symbol.create(l1));
consts.concat(tai_align.Create(const_align(pointer_size)));
consts.concat(tai_const.create_32bit(l)); consts.concat(tai_const.create_32bit(l));
consts.concat(tai_const.create_32bit(l)); consts.concat(tai_const.create_32bit(l));
consts.concat(tai_const.create_32bit(-1)); consts.concat(tai_const.create_32bit(-1));
@ -192,6 +195,7 @@ begin
resourcestringlist:=taasmoutput.create; resourcestringlist:=taasmoutput.create;
resourcestringlist.insert(tai_const.create_32bit(resstrcount)); resourcestringlist.insert(tai_const.create_32bit(resstrcount));
resourcestringlist.insert(tai_symbol.createdataname_global(current_module.modulename^+'_'+'RESOURCESTRINGLIST',0)); resourcestringlist.insert(tai_symbol.createdataname_global(current_module.modulename^+'_'+'RESOURCESTRINGLIST',0));
resourcestringlist.insert(tai_align.Create(const_align(pointer_size)));
R:=TResourceStringItem(List.First); R:=TResourceStringItem(List.First);
While assigned(R) do While assigned(R) do
begin begin
@ -294,7 +298,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.16 2002-08-11 14:32:26 peter Revision 1.17 2002-11-09 15:39:03 carl
+ resource string tables are now aligned
Revision 1.16 2002/08/11 14:32:26 peter
* renamed current_library to objectlibrary * renamed current_library to objectlibrary
Revision 1.15 2002/08/11 13:24:11 peter Revision 1.15 2002/08/11 13:24:11 peter