1 {
2     Copyright (c) 1998-2010 by Florian Klaempfl and Jonas Maebe
3     Member of the Free Pascal development team
4 
5     This unit contains routines to create a pass-through high-level code
6     generator. This is used by most regular code generators.
7 
8     This program is free software; you can redistribute it and/or modify
9     it under the terms of the GNU General Public License as published by
10     the Free Software Foundation; either version 2 of the License, or
11     (at your option) any later version.
12 
13     This program is distributed in the hope that it will be useful,
14     but WITHOUT ANY WARRANTY; without even the implied warranty of
15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16     GNU General Public License for more details.
17 
18     You should have received a copy of the GNU General Public License
19     along with this program; if not, write to the Free Software
20     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21 
22  ****************************************************************************
23 }
24 
25 unit hlcgcpu;
26 
27 {$i fpcdefs.inc}
28 
29 interface
30 
31   uses
32     aasmdata,
33     symdef,
34     hlcg2ll;
35 
36   type
37     thlcgcpu = class(thlcg2ll)
38       procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override;
39     end;
40 
41   procedure create_hlcodegen;
42 
43 implementation
44 
45   uses
46     hlcgobj,
47     cgcpu;
48 
49   procedure thlcgcpu.g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);
50     begin
51       //internalerror(2011021324);
52     end;
53 
54 
55   procedure create_hlcodegen;
56     begin
57       hlcg:=thlcgcpu.create;
58       create_codegen;
59     end;
60 
61 begin
62   chlcgobj:=thlcgcpu;
63 end.
64