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

* fixed typecasting in firstthat

Browse Source
This commit is contained in:
peter 1999-02-22 15:04:45 +00:00
parent 8d234de1d1
commit 755df28476
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objects.pp
View File

@ -1760,7 +1760,7 @@ FUNCTION TCollection.FirstThat (Test: Pointer): Pointer;
VAR I: LongInt; VAR I: LongInt;
BEGIN BEGIN
For I := 1 To Count Do Begin { Up from first item } For I := 1 To Count Do Begin { Up from first item }
IF Boolean(Longint(CallPointerLocal(Test,PreviousFramePointer,Items^[I-1]))) THEN IF Boolean(Byte(Longint(CallPointerLocal(Test,PreviousFramePointer,Items^[I-1])))) THEN
Begin { Test each item } Begin { Test each item }
FirstThat := Items^[I-1]; { Return item } FirstThat := Items^[I-1]; { Return item }
Exit; { Now exit } Exit; { Now exit }
@ -2744,7 +2744,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.26 1999-02-21 23:13:01 florian Revision 1.27 1999-02-22 15:04:45 peter
* fixed typecasting in firstthat
Revision 1.26 1999/02/21 23:13:01 florian
* tpcompatible flags for tstream introduced, thanks to Matthias Koeppe * tpcompatible flags for tstream introduced, thanks to Matthias Koeppe
Revision 1.25 1999/01/22 10:21:55 peter Revision 1.25 1999/01/22 10:21:55 peter