paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +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); procedure TGNUAssembler.WriteTree(p:TAAsmoutput);
const const
allocstr : array[boolean] of string[10]=(' released',' allocated'); 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 var
ch : char; ch : char;
hp : tai; hp : tai;
@ -313,7 +309,6 @@ var
d : double; d : double;
e : extended; e : extended;
do_line : boolean; do_line : boolean;
sep : char;
{$ifdef delphi} {$ifdef delphi}
_64bitarray : t64bitarray; _64bitarray : t64bitarray;
{$endif} {$endif}
@ -819,7 +814,10 @@ var
end. end.
{ {
$Log$ $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 * long symbol name fix merged
Revision 1.16 2002/11/17 16:31:55 carl Revision 1.16 2002/11/17 16:31:55 carl