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

Override abstract method to abvoid warning at compilation time and suppress warning about macos_direct_globals constant

Browse Source 
git-svn-id: trunk@19581 -
This commit is contained in:
pierre 2011-11-03 10:10:11 +00:00
parent 695556fe23
commit 8319972722
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ppcgen/cgppc.pas
View File

@ -22,7 +22,6 @@
unit cgppc; unit cgppc;
{$i fpcdefs.inc} {$i fpcdefs.inc}
interface interface
uses uses
@ -62,6 +61,9 @@ unit cgppc;
procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override; procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override;
procedure g_maybe_got_init(list: TAsmList); override; procedure g_maybe_got_init(list: TAsmList); override;
{ Transform unsupported methods into Internal errors }
procedure a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; size: TCGSize; src, dst: TRegister); override;
procedure g_stackpointer_alloc(list : TAsmList;localsize : longint);override;
protected protected
function get_darwin_call_stub(const s: string; weak: boolean): tasmsymbol; function get_darwin_call_stub(const s: string; weak: boolean): tasmsymbol;
procedure a_load_subsetref_regs_noindex(list: TAsmList; subsetsize: tcgsize; loadbitsize: byte; const sref: tsubsetreference; valuereg, extra_value_reg: tregister); override; procedure a_load_subsetref_regs_noindex(list: TAsmList; subsetsize: tcgsize; loadbitsize: byte; const sref: tsubsetreference; valuereg, extra_value_reg: tregister); override;
@ -109,6 +111,11 @@ unit cgppc;
symconst,symsym,fmodule, symconst,symsym,fmodule,
rgobj,tgobj,cpupi,procinfo,paramgr; rgobj,tgobj,cpupi,procinfo,paramgr;
{ We know that macos_direct_globals is a const boolean
but we don't care about this warning }
{$NOTE Is macos_direct_globals still useful?}
{$WARN 6018 OFF}
{$ifdef extdebug} {$ifdef extdebug}
function ref2string(const ref : treference) : string; function ref2string(const ref : treference) : string;
begin begin
@ -524,6 +531,16 @@ unit cgppc;
end; end;
procedure tcgppcgen.g_stackpointer_alloc(list : TAsmList;localsize : longint);
begin
Comment(V_Error,'tcgppcgen.g_stackpointer_alloc method not implemented');
end;
procedure tcgppcgen.a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; size: TCGSize; src, dst: TRegister);
begin
Comment(V_Error,'tcgppcgen.a_bit_scan_reg_reg method not implemented');
end;
procedure tcgppcgen.a_load_subsetref_regs_noindex(list: TAsmList; subsetsize: tcgsize; loadbitsize: byte; const sref: tsubsetreference; valuereg, extra_value_reg: tregister); procedure tcgppcgen.a_load_subsetref_regs_noindex(list: TAsmList; subsetsize: tcgsize; loadbitsize: byte; const sref: tsubsetreference; valuereg, extra_value_reg: tregister);
var var
fromsreg, tosreg: tsubsetregister; fromsreg, tosreg: tsubsetregister;