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

* Fixed warnings about hiding inherited method.

Browse Source 
git-svn-id: trunk@11449 -
This commit is contained in:
yury 2008-07-23 11:51:19 +00:00
parent bf454fad71
commit a039dd6942
3 changed files with 67 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aopt.pas
View File

@ -35,7 +35,7 @@ Unit aopt;
TAsmOptimizer = class(TAoptObj) TAsmOptimizer = class(TAoptObj)
{ _AsmL is the PAasmOutpout list that has to be optimized } { _AsmL is the PAasmOutpout list that has to be optimized }
Constructor create(_AsmL: TAsmList); virtual; Constructor create(_AsmL: TAsmList); virtual; reintroduce;
{ call the necessary optimizer procedures } { call the necessary optimizer procedures }
Procedure Optimize; Procedure Optimize;

2
compiler/arm/cgcpu.pas
View File

@ -106,7 +106,7 @@ unit cgcpu;
function handle_load_store(list:TAsmList;op: tasmop;oppostfix : toppostfix;reg:tregister;ref: treference):treference; function handle_load_store(list:TAsmList;op: tasmop;oppostfix : toppostfix;reg:tregister;ref: treference):treference;
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_adjust_self_value(list:TAsmList;procdef: tprocdef;ioffset: aint); procedure g_adjust_self_value(list:TAsmList;procdef: tprocdef;ioffset: aint); override;
private private
{ clear out potential overflow bits from 8 or 16 bit operations } { clear out potential overflow bits from 8 or 16 bit operations }
{ the upper 24/16 bits of a register after an operation } { the upper 24/16 bits of a register after an operation }

130
compiler/crefs.pas
View File

@ -1,65 +1,65 @@
{ {
Copyright (c) 2007 by Pierre Muller Copyright (c) 2007 by Pierre Muller
Common reference types Common reference types
This program is free software; you can redistribute it and/or modify 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 it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or the Free Software Foundation; either version 2 of the License, or
(at your option) any later version. (at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details. GNU General Public License for more details.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
**************************************************************************** ****************************************************************************
} }
unit crefs; unit crefs;
{$i fpcdefs.inc} {$i fpcdefs.inc}
interface interface
uses uses
globtype, globtype,
cclasses; cclasses;
type type
TrefItem = class (TLinkedListItem) TrefItem = class (TLinkedListItem)
refinfo : tfileposinfo; refinfo : tfileposinfo;
constructor create(const ARefInfo : tfileposinfo); constructor create(const ARefInfo : tfileposinfo);
Function GetCopy:TLinkedListItem;virtual; Function GetCopy:TLinkedListItem;virtual;reintroduce;
end; end;
TRefLinkedList = class(TLinkedList) TRefLinkedList = class(TLinkedList)
procedure WriteToPPU; procedure WriteToPPU;
end; end;
implementation implementation
constructor TRefItem.Create(const ARefInfo : tfileposinfo); constructor TRefItem.Create(const ARefInfo : tfileposinfo);
begin begin
Inherited Create; Inherited Create;
RefInfo:=ARefInfo; RefInfo:=ARefInfo;
end; end;
Function TRefItem.GetCopy : TLinkedListItem; Function TRefItem.GetCopy : TLinkedListItem;
var var
NR : TRefItem; NR : TRefItem;
begin begin
NR.Create(RefInfo); NR.Create(RefInfo);
GetCopy:=NR; GetCopy:=NR;
end; end;
procedure TRefLinkedList.WriteToPPU; procedure TRefLinkedList.WriteToPPU;
begin begin
end; end;
begin begin
end. end.