paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed unused vars.

Browse Source 
git-svn-id: trunk@35534 -
This commit is contained in:
yury 2017-03-07 08:24:10 +00:00
parent 2a01a603d8
commit 29986a1616
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/utils/ppuutils/ppudump.pp
View File

@ -1975,7 +1975,6 @@ var
proctypeoption : tproctypeoption; proctypeoption : tproctypeoption;
i : longint; i : longint;
first : boolean; first : boolean;
tempbuf : array[0..255] of byte;
begin begin
write([space,' Return type : ']); write([space,' Return type : ']);
readderef('', ProcDef.ReturnType); readderef('', ProcDef.ReturnType);
@ -2429,7 +2428,6 @@ var
doublevalue : double; doublevalue : double;
singlevalue : single; singlevalue : single;
extended : TSplit80bitReal; extended : TSplit80bitReal;
tempbuf : array[0..127] of char;
pw : pcompilerwidestring; pw : pcompilerwidestring;
varoptions : tvaroptions; varoptions : tvaroptions;
propoptions : tpropertyoptions; propoptions : tpropertyoptions;