PageRenderTime 26ms CodeModel.GetById 25ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/compiler/m68k/aoptcpu.pas

https://github.com/slibre/freepascal
Pascal | 41 lines | 11 code | 7 blank | 23 comment | 0 complexity | 3cc761a5a8c9d06c180e53f0fd90d2c9 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1{
 2    Copyright (c) 1998-2004 by Jonas Maebe
 3
 4    This unit calls the optimization procedures to optimize the assembler
 5    code for sparc
 6
 7    This program is free software; you can redistribute it and/or modify
 8    it under the terms of the GNU General Public License as published by
 9    the Free Software Foundation; either version 2 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program; if not, write to the Free Software
19    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20
21 ****************************************************************************
22}
23
24unit aoptcpu;
25
26{$i fpcdefs.inc}
27
28  Interface
29
30    uses
31      cpubase, aoptobj, aoptcpub, aopt;
32
33    Type
34      TCpuAsmOptimizer = class(TAsmOptimizer)
35      End;
36
37  Implementation
38
39begin
40  casmoptimizer:=TCpuAsmOptimizer;
41end.