paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 13:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed condition around declaration of 'cgpara' to be the same as around its usage.

Browse Source 
- Removed one of $ifdef's.

git-svn-id: trunk@26595 -
This commit is contained in:
sergei 2014-01-27 01:41:51 +00:00
parent 1faf138667
commit ff3fe06af9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgcal.pas
View File

@ -760,7 +760,7 @@ implementation
{$ifdef vtentry}
sym : tasmsymbol;
{$endif vtentry}
{$if defined(x86) or defined(arm) or defined(sparc)}
{$ifdef SUPPORT_SAFECALL}
cgpara : tcgpara;
{$endif}
begin
@ -890,11 +890,10 @@ implementation
if (not assigned(current_procinfo) or
wpoinfomanager.symbol_live(current_procinfo.procdef.mangledname)) then
tobjectdef(tprocdef(procdefinition).struct).register_vmt_call(tprocdef(procdefinition).extnumber);
{$ifndef x86}
pvreg:=cg.getintregister(current_asmdata.CurrAsmList,proc_addr_size);
{$endif not x86}
reference_reset_base(href,vmtreg,vmtoffset,procdefinition.address_size);
{$ifndef x86}
pvreg:=cg.getintregister(current_asmdata.CurrAsmList,proc_addr_size);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,proc_addr_size,proc_addr_size,href,pvreg);
{$endif not x86}