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

* changed parameters of references_equal from value to const to

Browse Source 
avoid copying

git-svn-id: trunk@2693 -
This commit is contained in:
Jonas Maebe 2006-02-26 15:02:06 +00:00
parent d8ed0a8722
commit a9dbc0c8ab
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aoptobj.pas
View File

@ -56,7 +56,7 @@ Unit AoptObj;
{ ************************************************************************* }
{ ************************* Some general type definitions ***************** }
{ ************************************************************************* }
TRefCompare = Function(r1, r2: TReference): Boolean;
TRefCompare = Function(const r1, r2: TReference): Boolean;
//!!! FIXME
TRegArray = Array[byte] of tsuperregister;
TRegSet = Set of byte;

4
compiler/cgutils.pas
View File

@ -105,7 +105,7 @@ unit cgutils;
{ This routine verifies if two references are the same, and
if so, returns TRUE, otherwise returns false.
}
function references_equal(sref : treference;dref : treference) : boolean;
function references_equal(const sref,dref : treference) : boolean;
{ tlocation handling }
@ -144,7 +144,7 @@ implementation
end;
function references_equal(sref : treference;dref : treference):boolean;
function references_equal(const sref,dref : treference):boolean;
begin
references_equal:=CompareByte(sref,dref,sizeof(treference))=0;
end;