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

+ display 'variable' for open array size

Browse Source
This commit is contained in:
pierre 2000-07-05 10:19:07 +00:00
parent ebc536ef52
commit 3a161c28e1
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpsymbol.pas
View File

@ -951,7 +951,10 @@ begin
S:=IntToStrL(Size,7);
S:=S+' byte';
if Size>1 then S:=S+'s';
SizeStr:=S;
if Size=-1 then
SizeStr:='variable'
else
SizeStr:=S;
end;
function AddrStr(Addr: longint): string;
{ Warning this is endian specific code !! (PM) }
@ -1692,7 +1695,10 @@ end;
END.
{
$Log$
Revision 1.29 2000-06-22 09:07:12 pierre
Revision 1.30 2000-07-05 10:19:07 pierre
+ display 'variable' for open array size
Revision 1.29 2000/06/22 09:07:12 pierre
* Gabor changes: see fixes.txt
Revision 1.28 2000/06/16 08:50:42 pierre