paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 10:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* shortstring truncated after 255 chars

Browse Source
This commit is contained in:
peter 1999-01-19 14:21:59 +00:00
parent abd2a106b0
commit 8740d63a3a
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/cg386con.pas
View File

@ -142,6 +142,7 @@ implementation
lastlabel : plabel; lastlabel : plabel;
pc : pchar; pc : pchar;
same_string : boolean; same_string : boolean;
l,
i,mylength : longint; i,mylength : longint;
begin begin
lastlabel:=nil; lastlabel:=nil;
@ -237,14 +238,19 @@ implementation
consts^.concat(new(pai_const,init_16bit(0))) consts^.concat(new(pai_const,init_16bit(0)))
else else
begin begin
{ truncate strings larger than 255 chars }
if p^.length>255 then
l:=255
else
l:=p^.length;
{ also length and terminating zero } { also length and terminating zero }
getmem(pc,p^.length+3); getmem(pc,l+3);
move(p^.value_str^,pc[1],p^.length+1); move(p^.value_str^,pc[1],l+1);
pc[0]:=chr(p^.length); pc[0]:=chr(l);
{ to overcome this problem we set the length explicitly } { to overcome this problem we set the length explicitly }
{ with the ending null char } { with the ending null char }
pc[p^.length+1]:=#0; pc[l+1]:=#0;
consts^.concat(new(pai_string,init_length_pchar(pc,p^.length+2))); consts^.concat(new(pai_string,init_length_pchar(pc,l+2)));
end; end;
end; end;
end; end;
@ -373,7 +379,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.26 1998-12-11 00:02:49 peter Revision 1.27 1999-01-19 14:21:59 peter
* shortstring truncated after 255 chars
Revision 1.26 1998/12/11 00:02:49 peter
+ globtype,tokens,version unit splitted from globals + globtype,tokens,version unit splitted from globals
Revision 1.25 1998/12/10 14:39:30 florian Revision 1.25 1998/12/10 14:39:30 florian