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

* problem of const with ansi fixed

Browse Source
This commit is contained in:
pierre 1998-11-06 09:47:29 +00:00
parent 3539ab25da
commit 66ee4baa3d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg68kcon.pas
View File

@ -221,12 +221,13 @@ implementation
else
begin
{ also length and terminating zero }
getmem(pc,p^.length+2);
getmem(pc,p^.length+3);
move(p^.value_str^,pc[1],p^.length+1);
pc[0]:=chr(p^.length);
pc[p^.length+1]:=#0;
{ to overcome this problem we set the length explicitly }
{ with the ending null char }
consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+1)));
consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+2)));
end;
end;
end;
@ -305,7 +306,10 @@ implementation
end.
{
$Log$
Revision 1.3 1998-11-05 12:02:37 peter
Revision 1.4 1998-11-06 09:47:29 pierre
* problem of const with ansi fixed
Revision 1.3 1998/11/05 12:02:37 peter
* released useansistring
* removed -Sv, its now available in fpc modes