paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix writing of typed const ansistring, the terminating zero was missing

Browse Source 
git-svn-id: trunk@1349 -
This commit is contained in:
peter 2005-10-10 12:06:09 +00:00
parent 411e2359eb
commit c1b002c842
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ptconst.pas
View File

@ -125,9 +125,6 @@ implementation
maybe_new_object_file(asmlist[cural]);
new_section(asmlist[cural],cursectype,lower(sym.mangledname),const_align(l));
if (cs_debuginfo in aktmoduleswitches) then
debuginfo.insertsym(asmlist[cural],sym);
if (sym.owner.symtabletype=globalsymtable) or
maybe_smartlink_symbol or
(assigned(current_procinfo) and
@ -622,7 +619,7 @@ implementation
move(strval^,ca^,strlength);
{ The terminating #0 to be stored in the .data section (JM) }
ca[strlength]:=#0;
asmlist[al_const].concat(Tai_string.Create_pchar(ca,strlength));
asmlist[al_const].concat(Tai_string.Create_pchar(ca,strlength+1));
end;
end;
st_widestring: