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

* force stackframes for foreach,firstthat,lastthat

Browse Source 
git-svn-id: trunk@4967 -
This commit is contained in:
peter 2006-10-18 20:31:25 +00:00
parent 1de2f94b28
commit 59e84ac06d
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/objects.pp
View File

@ -1902,6 +1902,12 @@ END;
{--TCollection--------------------------------------------------------------}
{ LastThat -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB }
{---------------------------------------------------------------------------}
{$IFOPT W-}
{$DEFINE STACKFRAME_OFF}
{$W+}
{$ENDIF}
FUNCTION TCollection.LastThat (Test: Pointer): Pointer;
VAR I: LongInt;
@ -1917,6 +1923,7 @@ BEGIN
LastThat := Nil; { None passed test }
END;
{--TCollection--------------------------------------------------------------}
{ FirstThat -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB }
{---------------------------------------------------------------------------}
@ -1933,6 +1940,11 @@ BEGIN
FirstThat := Nil; { None passed test }
END;
{$IFDEF STACKFRAME_OFF}
{$UNDEF STACKFRAME_OFF}
{$W-}
{$ENDIF}
{--TCollection--------------------------------------------------------------}
{ Pack -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB }
{---------------------------------------------------------------------------}
@ -2034,12 +2046,22 @@ END;
{--TCollection--------------------------------------------------------------}
{ ForEach -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB }
{---------------------------------------------------------------------------}
{$IFOPT W-}
{$DEFINE STACKFRAME_OFF}
{$W+}
{$ENDIF}
PROCEDURE TCollection.ForEach (Action: Pointer);
VAR I: LongInt;
BEGIN
For I := 1 To Count Do { Up from first item }
CallPointerLocal(Action,get_caller_frame(get_frame),Items^[I-1]); { Call with each item }
END;
{$IFDEF STACKFRAME_OFF}
{$UNDEF STACKFRAME_OFF}
{$W-}
{$ENDIF}
{--TCollection--------------------------------------------------------------}
{ SetLimit -> Platforms DOS/DPMI/WIN/OS2 - Checked 22May96 LdB }