paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix array of pchar after last revision

Browse Source 
git-svn-id: trunk@924 -
This commit is contained in:
peter 2005-08-22 21:37:59 +00:00
parent 2a5e6d7b92
commit 5c902e40d1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ptconst.pas
View File

@ -337,12 +337,12 @@ implementation
objectlibrary.getdatalabel(ll); objectlibrary.getdatalabel(ll);
asmlist[cural].concat(Tai_const.Create_sym(ll)); asmlist[cural].concat(Tai_const.Create_sym(ll));
if p.nodetype=stringconstn then if p.nodetype=stringconstn then
varalign:=tstringconstnode(p).len varalign:=size_2_align(tstringconstnode(p).len)
else else
varalign:=0; varalign:=0;
varalign:=const_align(varalign); varalign:=const_align(varalign);
asmlist[al_typedconsts].concat(Tai_align.Create(varalign)); asmlist[al_rodata].concat(Tai_align.Create(varalign));
asmlist[al_typedconsts].concat(Tai_label.Create(ll)); asmlist[al_rodata].concat(Tai_label.Create(ll));
if p.nodetype=stringconstn then if p.nodetype=stringconstn then
begin begin
len:=tstringconstnode(p).len; len:=tstringconstnode(p).len;
@ -352,11 +352,11 @@ implementation
len:=255; len:=255;
getmem(ca,len+2); getmem(ca,len+2);
move(tstringconstnode(p).value_str^,ca^,len+1); move(tstringconstnode(p).value_str^,ca^,len+1);
asmlist[al_typedconsts].concat(Tai_string.Create_length_pchar(ca,len+1)); asmlist[al_rodata].concat(Tai_string.Create_length_pchar(ca,len+1));
end end
else else
if is_constcharnode(p) then if is_constcharnode(p) then
asmlist[al_typedconsts].concat(Tai_string.Create(char(byte(tordconstnode(p).value))+#0)) asmlist[al_rodata].concat(Tai_string.Create(char(byte(tordconstnode(p).value))+#0))
else else
message(parser_e_illegal_expression); message(parser_e_illegal_expression);
end end