paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 11:40:36 +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); objectlibrary.getdatalabel(l1);
resourcestringlist.concat(tai_const.create_sym(l1)); resourcestringlist.concat(tai_const.create_sym(l1));
consts.concat(tai_align.Create(const_align(sizeof(aint)))); consts.concat(tai_align.Create(const_align(sizeof(aint))));
consts.concat(tai_const.create_32bit(-1)); consts.concat(tai_const.create_aint(-1));
consts.concat(tai_const.create_32bit(len)); consts.concat(tai_const.create_aint(len));
consts.concat(tai_label.create(l1)); consts.concat(tai_label.create(l1));
getmem(s,len+1); getmem(s,len+1);
move(Value^,s^,len); move(Value^,s^,len);
@ -172,8 +172,8 @@ procedure TResourceStrings.CreateResourceStringList;
L:=Length(Name); L:=Length(Name);
resourcestringlist.concat(tai_const.create_sym(l1)); resourcestringlist.concat(tai_const.create_sym(l1));
consts.concat(tai_align.Create(const_align(sizeof(aint)))); consts.concat(tai_align.Create(const_align(sizeof(aint))));
consts.concat(tai_const.create_32bit(-1)); consts.concat(tai_const.create_aint(-1));
consts.concat(tai_const.create_32bit(l)); consts.concat(tai_const.create_aint(l));
consts.concat(tai_label.create(l1)); consts.concat(tai_label.create(l1));
getmem(s,l+1); getmem(s,l+1);
move(Name[1],s^,l); move(Name[1],s^,l);
@ -293,7 +293,10 @@ end;
end. end.
{ {
$Log$ $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 * remove maxlen field from ansistring/widestrings
Revision 1.25 2004/06/20 08:55:29 florian Revision 1.25 2004/06/20 08:55:29 florian