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

* Added function result for unimplemented methods to prevent warnings.

Browse Source 
git-svn-id: trunk@11448 -
This commit is contained in:
yury 2008-07-23 11:47:03 +00:00
parent 72aa4f8cdd
commit bf454fad71
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aoptobj.pas
View File

@ -351,6 +351,7 @@ Unit AoptObj;
Function TUsedRegs.IsUsed(Reg: TRegister): Boolean;
Begin
//!!!!!!!!!!! IsUsed := Reg in UsedRegs
Result:=False; { unimplemented }
End;
Function TUsedRegs.GetUsedRegs: TRegSet;
@ -385,6 +386,7 @@ Unit AoptObj;
TmpResult: Boolean;
}
begin
Result:=False; { unimplemented }
(*!!!!!!!!!!1
RegsChecked := [];
content := regs[which];
@ -458,6 +460,7 @@ Unit AoptObj;
Function ArrayRefsEq(const r1, r2: TReference): Boolean;
Begin
Result:=False; { unimplemented }
(*!!!!!!!!!!
ArrayRefsEq := (R1.Offset+R1.OffsetFixup = R2.Offset+R2.OffsetFixup) And
{$ifdef refsHaveSegmentReg}
@ -658,16 +661,19 @@ Unit AoptObj;
Function TPaiProp.GetWState(Reg: TRegister): TStateInt; {$ifdef inl} inline;{$endif inl}
Begin
Result:=0; { unimplemented }
//!!!! GetWState := Regs[Reg].WState
End;
Function TPaiProp.GetRState(Reg: TRegister): TStateInt; {$ifdef inl} inline;{$endif inl}
Begin
Result:=0; { unimplemented }
//!!!! GetRState := Regs[Reg].RState
End;
Function TPaiProp.GetRegContentType(Reg: TRegister): Byte; {$ifdef inl} inline;{$endif inl}
Begin
Result:=0; { unimplemented }
//!!!! GetRegContentType := Regs[Reg].typ
End;

3
compiler/arm/aasmcpu.pas
View File

@ -1034,6 +1034,7 @@ implementation
function taicpu.CheckIfValid:boolean;
begin
Result:=False; { unimplemented }
end;
@ -1122,6 +1123,7 @@ implementation
function taicpu.InsEnd:longint;
begin
Result:=0; { unimplemented }
end;
@ -1440,6 +1442,7 @@ implementation
function taicpu.NeedAddrPrefix(opidx:byte):boolean;
begin
Result:=False; { unimplemented }
end;