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

Cleanup for readability. timplementedinterfaces.searchintf() simplified, dummy-var renamed to mark it as such in tstoreddef.is_integrable

Browse Source 
git-svn-id: trunk@4351 -
This commit is contained in:
chrivers 2006-08-05 20:04:55 +00:00
parent c185650955
commit aa783c2876
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/symdef.pas
View File

@ -1149,7 +1149,7 @@ implementation
function tstoreddef.is_intregable : boolean;
var
recsize,recsizep2: longint;
recsize,temp: longint;
begin
is_intregable:=false;
case deftype of
@ -1168,7 +1168,7 @@ implementation
begin
recsize:=size;
is_intregable:=
ispowerof2(recsize,recsizep2) and
ispowerof2(recsize,temp) and
(recsize <= sizeof(aint));
end;
end;
@ -5191,15 +5191,11 @@ implementation
end;
function timplementedinterfaces.searchintf(def: tdef): longint;
var
i: longint;
begin
i:=1;
while (i<=count) and (tdef(interfaces(i))<>def) do inc(i);
if i<=count then
searchintf:=i
else
searchintf:=-1;
for result := 1 to count do
if tdef(interfaces(result)) = def then
exit;
result := -1;
end;