|
@@ -47,7 +47,6 @@ UNIT Objects;
|
|
|
|
|
|
|
|
{==== Compiler directives ===========================================}
|
|
{==== Compiler directives ===========================================}
|
|
|
{$H-} { No ansistrings }
|
|
{$H-} { No ansistrings }
|
|
|
-{$E+} { Emulation is on }
|
|
|
|
|
{$X+} { Extended syntax is ok }
|
|
{$X+} { Extended syntax is ok }
|
|
|
{$R-} { Disable range checking }
|
|
{$R-} { Disable range checking }
|
|
|
{$ifndef Unix}
|
|
{$ifndef Unix}
|
|
@@ -1907,7 +1906,7 @@ END;
|
|
|
{$DEFINE STACKFRAME_OFF}
|
|
{$DEFINE STACKFRAME_OFF}
|
|
|
{$W+}
|
|
{$W+}
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
FUNCTION TCollection.LastThat (Test: Pointer): Pointer;
|
|
FUNCTION TCollection.LastThat (Test: Pointer): Pointer;
|
|
|
VAR I: LongInt;
|
|
VAR I: LongInt;
|
|
|
|
|
|
yury