mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 19:07:53 +02:00
4cd6f59bc3
hlcgllvm in the uses clause of every unit that calls create_hlcodegen
o prevents dependency cycles that can cause llvm codegen units to init
before the cpu variants, which is bad since the llvm versions have to
override the cpu variants in their init code (+ added checks in the
init code that they are in fact initialised later)
git-svn-id: branches/debug_eh@40410 -
63 lines
1.7 KiB
ObjectPascal
63 lines
1.7 KiB
ObjectPascal
{
|
|
Copyright (c) 1998-2010 by Florian Klaempfl and Jonas Maebe
|
|
Member of the Free Pascal development team
|
|
|
|
This unit contains routines to create a pass-through high-level code
|
|
generator. This is used by most regular code generators.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
****************************************************************************
|
|
}
|
|
|
|
unit hlcgcpu;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
aasmdata,
|
|
symdef,
|
|
hlcg2ll;
|
|
|
|
type
|
|
thlcgcpu = class(thlcg2ll)
|
|
procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
hlcgobj,
|
|
cgcpu;
|
|
|
|
procedure thlcgcpu.g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);
|
|
begin
|
|
//internalerror(2011021324);
|
|
end;
|
|
|
|
|
|
procedure create_hlcodegen_cpu;
|
|
begin
|
|
hlcg:=thlcgcpu.create;
|
|
create_codegen;
|
|
end;
|
|
|
|
begin
|
|
chlcgobj:=thlcgcpu;
|
|
create_hlcodegen:=@create_hlcodegen_cpu;
|
|
end.
|