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

* forgot to commit in previous revision

Browse Source 
git-svn-id: trunk@9365 -
This commit is contained in:
Jonas Maebe 2007-12-01 11:53:50 +00:00
parent 18eb495d0f
commit 46e1bec6de
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/rautils.pas
View File

@ -104,7 +104,7 @@ type
Function SetupSelf:boolean;
Function SetupOldEBP:boolean;
Function SetupVar(const s:string;GetOffset : boolean): Boolean;
Procedure CheckOperand; virtual;
Function CheckOperand: boolean; virtual;
Procedure InitRef;
end;
TCOperand = class of TOperand;
@ -118,7 +118,8 @@ type
constructor create(optype : tcoperand);virtual;
destructor destroy;override;
{ converts the instruction to an instruction how it's used by the assembler writer
and concats it to the passed list, the newly created item is returned }
and concats it to the passed list. The newly created item is returned if the
instruction was valid, otherwise nil is returned }
function ConcatInstruction(p:TAsmList) : tai;virtual;
Procedure Swapoperands;
end;
@ -966,12 +967,13 @@ Begin
end;
end;
Procedure TOperand.CheckOperand;
Function TOperand.CheckOperand: boolean;
{*********************************************************************}
{ Description: This routine checks if the operand is of }
{ valid. Does nothing by default. }
{ valid, and returns false if it isn't. Does nothing by default. }
{*********************************************************************}
begin
result:=true;
end;