paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 15:49:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed string[4]='.library'

Browse Source
This commit is contained in:
peter 1998-09-01 09:05:36 +00:00
parent 6b807957b1
commit fdc07d7e67
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ptconst.pas
View File

@ -275,10 +275,16 @@ unit ptconst;
generate_pascii(datasegment,p^.values,strlength); generate_pascii(datasegment,p^.values,strlength);
{$else UseAnsiString} {$else UseAnsiString}
if length(p^.values^)>=def^.size then if length(p^.values^)>=def^.size then
strlength:=def^.size-1 begin
strlength:=def^.size-1;
generate_ascii(char(strlength)+copy(p^.values^,1,strlength));
end
else else
strlength:=length(p^.values^); begin
generate_ascii(char(strlength)+p^.values^); strlength:=length(p^.values^);
generate_ascii(char(strlength)+p^.values^);
end;
{$endif UseAnsiString} {$endif UseAnsiString}
end end
else if is_constcharnode(p) then else if is_constcharnode(p) then
@ -506,7 +512,10 @@ unit ptconst;
end. end.
{ {
$Log$ $Log$
Revision 1.12 1998-08-31 12:26:32 peter Revision 1.13 1998-09-01 09:05:36 peter
* fixed string[4]='.library'
Revision 1.12 1998/08/31 12:26:32 peter
* m68k and palmos updates from surebugfixes * m68k and palmos updates from surebugfixes
Revision 1.11 1998/08/10 14:50:20 peter Revision 1.11 1998/08/10 14:50:20 peter