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

* fixed compilation after previous merge

Browse Source 
git-svn-id: branches/hlcgllvm@30106 -
This commit is contained in:
Jonas Maebe 2015-03-05 22:20:45 +00:00
parent 06dd396a2f
commit ea00e559f8
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/llvm/hlcgllvm.pas
View File

@ -117,7 +117,7 @@ uses
{$endif cpuflags}
{ unimplemented or unnecessary routines }
procedure a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; size: tdef; src, dst: tregister); override;
procedure a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; srcsize, dstsize: tdef; src, dst: tregister); override;
procedure g_stackpointer_alloc(list: TAsmList; size: longint); override;
procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint); override;
procedure g_adjust_self_value(list: TAsmList; procdef: tprocdef; ioffset: aint); override;
@ -1114,7 +1114,7 @@ implementation
var
hreg: tregister;
begin
hreg:=getaddresregister(list,todef);
hreg:=getaddressregister(list,todef);
a_loadaddr_ref_reg(list,fromdef.pointeddef,todef,ref,hreg);
reference_reset_base(ref,todef,hreg,0,ref.alignment);
end;
@ -1373,7 +1373,7 @@ implementation
end;
procedure thlcgllvm.a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; size: tdef; src, dst: tregister);
procedure thlcgllvm.a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; srcsize, dstsize: tdef; src, dst: tregister);
begin
internalerror(2012090201);
end;

3
compiler/llvm/llvmbase.pas
View File

@ -122,7 +122,8 @@ implementation
'avr',
'mipsel',
'unknown',
'unknown'
'unknown',
'aarch64'
);
function llvm_target_name: ansistring;

2
compiler/llvm/nllvmtcon.pas
View File

@ -118,7 +118,7 @@ implementation
{ todo }
if section = sec_user then
internalerror(2014052904);
newasmlist:=tasmlist.create_without_marker;
newasmlist:=tasmlist.create;
{ llvm declaration with as initialisation data all the elements from the
original asmlist }
newasmlist.concat(taillvmdecl.create(sym,def,fasmlist,section,alignment));