paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 02:07:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed wrong code for ansistring

Browse Source
This commit is contained in:
michael 1998-06-12 14:10:37 +00:00
parent c272da34ad
commit 004da8b801
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.inc
View File

@ -470,7 +470,7 @@
case string_typ of
ansistring:
begin
rttilist^.concat(new(pai_const,init_8bit(9)));
rttilist^.concat(new(pai_const,init_8bit(10)));
end;
widestring:
begin
@ -478,7 +478,7 @@
end;
longstring:
begin
rttilist^.concat(new(pai_const,init_8bit(10)));
rttilist^.concat(new(pai_const,init_8bit(9)));
rttilist^.concat(new(pai_const,init_32bit(len)));
end;
shortstring:
@ -2620,7 +2620,10 @@
{
$Log$
Revision 1.8 1998-06-11 10:11:58 peter
Revision 1.9 1998-06-12 14:10:37 michael
* Fixed wrong code for ansistring
Revision 1.8 1998/06/11 10:11:58 peter
* -gb works again
Revision 1.7 1998/06/07 15:30:25 florian