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

* Fix string type stab generation. String constant still unsupported.

Browse Source
This commit is contained in:
daniel 2004-01-27 10:29:32 +00:00
parent 3dfde8c397
commit 3a3f65a364
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.pas
View File

@ -1458,7 +1458,7 @@ implementation
stabstring:=stabstr_evaluate('n$1;$2',[charst,tostr(len)]); stabstring:=stabstr_evaluate('n$1;$2',[charst,tostr(len)]);
{$else} {$else}
bytest := typeglobalnumber('byte'); bytest := typeglobalnumber('byte');
stabstring:=stabstr_evaluate('s$1;length:$2,0,8;st:ar$2;1;$3;$4,8,$5;;', stabstring:=stabstr_evaluate('s$1length:$2,0,8;st:ar$2;1;$3;$4,8,$5;;',
[tostr(len+1),bytest,tostr(len),charst,tostr(len*8)]); [tostr(len+1),bytest,tostr(len),charst,tostr(len*8)]);
{$EndIf} {$EndIf}
end; end;
@ -1472,7 +1472,7 @@ implementation
{$else} {$else}
bytest := typeglobalnumber('byte'); bytest := typeglobalnumber('byte');
longst := typeglobalnumber('longint'); longst := typeglobalnumber('longint');
stabstring:=stabstr_evaluate('s$1;length:$2,0,32;dummy:$6,32,8;st:ar$2;1;$3;$4,40,$5;;', stabstring:=stabstr_evaluate('s$1length:$2,0,32;dummy:$6,32,8;st:ar$2;1;$3;$4,40,$5;;',
[tostr(len+5),longst,tostr(len),charst,tostr(len*8),bytest]); [tostr(len+5),longst,tostr(len),charst,tostr(len*8),bytest]);
{$EndIf} {$EndIf}
end; end;
@ -6185,7 +6185,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.209 2004-01-26 19:54:42 daniel Revision 1.210 2004-01-27 10:29:32 daniel
* Fix string type stab generation. String constant still unsupported.
Revision 1.209 2004/01/26 19:54:42 daniel
* Typo * Typo
Revision 1.208 2004/01/26 19:43:49 daniel Revision 1.208 2004/01/26 19:43:49 daniel