paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove some duplicates and unused vars

Browse Source
This commit is contained in:
carl 2002-12-07 14:03:25 +00:00
parent effb0aae89
commit d23ef9fb9a
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aggas.pas
View File

@ -295,10 +295,6 @@ var
procedure TGNUAssembler.WriteTree(p:TAAsmoutput);
const
allocstr : array[boolean] of string[10]=(' released',' allocated');
type
t80bitarray = array[0..9] of byte;
t64bitarray = array[0..7] of byte;
t32bitarray = array[0..3] of byte;
var
ch : char;
hp : tai;
@ -313,7 +309,6 @@ var
d : double;
e : extended;
do_line : boolean;
sep : char;
{$ifdef delphi}
_64bitarray : t64bitarray;
{$endif}
@ -819,7 +814,10 @@ var
end.
{
$Log$
Revision 1.17 2002-12-06 17:50:39 peter
Revision 1.18 2002-12-07 14:03:25 carl
- remove some duplicates and unused vars
Revision 1.17 2002/12/06 17:50:39 peter
* long symbol name fix merged
Revision 1.16 2002/11/17 16:31:55 carl