paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 13:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* cosmetics

Browse Source 
git-svn-id: trunk@36672 -
This commit is contained in:
florian 2017-07-07 22:18:11 +00:00
parent 568d6d1486
commit bd57ca99a8
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/sparc/cgcpu.pas
View File

@ -28,9 +28,7 @@ interface
uses uses
globtype,parabase, globtype,parabase,
cgbase,cgutils,cgobj, cgbase,cgutils,cgobj,
{$ifndef SPARC64}
cg64f32, cg64f32,
{$endif SPARC64}
aasmbase,aasmtai,aasmdata,aasmcpu, aasmbase,aasmtai,aasmdata,aasmcpu,
cpubase,cpuinfo, cpubase,cpuinfo,
node,symconst,SymType,symdef, node,symconst,SymType,symdef,

2
compiler/sparcgen/hlcgcpu.pas
View File

@ -113,7 +113,7 @@ implementation
begin begin
if (procdef.extnumber=$ffff) then if (procdef.extnumber=$ffff) then
Internalerror(200006139); Internalerror(200006139);
{ load vmt} { load vmt }
reference_reset_base(href,voidpointertype,paraloc^.register,0,sizeof(pint),[]); reference_reset_base(href,voidpointertype,paraloc^.register,0,sizeof(pint),[]);
cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_G1); cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,href,NR_G1);
{ jmp to method } { jmp to method }