paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* resource ansistrings now use aint for len and ref. count as well

Browse Source
This commit is contained in:
florian 2004-11-01 20:22:04 +00:00
parent 4af2c9385a
commit 636f2ea7c9
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cresstr.pas
View File

@ -155,8 +155,8 @@ procedure TResourceStrings.CreateResourceStringList;
objectlibrary.getdatalabel(l1);
resourcestringlist.concat(tai_const.create_sym(l1));
consts.concat(tai_align.Create(const_align(sizeof(aint))));
consts.concat(tai_const.create_32bit(-1));
consts.concat(tai_const.create_32bit(len));
consts.concat(tai_const.create_aint(-1));
consts.concat(tai_const.create_aint(len));
consts.concat(tai_label.create(l1));
getmem(s,len+1);
move(Value^,s^,len);
@ -172,8 +172,8 @@ procedure TResourceStrings.CreateResourceStringList;
L:=Length(Name);
resourcestringlist.concat(tai_const.create_sym(l1));
consts.concat(tai_align.Create(const_align(sizeof(aint))));
consts.concat(tai_const.create_32bit(-1));
consts.concat(tai_const.create_32bit(l));
consts.concat(tai_const.create_aint(-1));
consts.concat(tai_const.create_aint(l));
consts.concat(tai_label.create(l1));
getmem(s,l+1);
move(Name[1],s^,l);
@ -293,7 +293,10 @@ end;
end.
{
$Log$
Revision 1.26 2004-07-12 17:58:19 peter
Revision 1.27 2004-11-01 20:22:04 florian
* resource ansistrings now use aint for len and ref. count as well
Revision 1.26 2004/07/12 17:58:19 peter
* remove maxlen field from ansistring/widestrings
Revision 1.25 2004/06/20 08:55:29 florian