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

+ mode directive added plus some types fixed

Browse Source
This commit is contained in:
michael 2002-08-09 09:48:28 +00:00
parent e814c211e8
commit 2d3f7d18b3
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/inc/contnrs.pp
View File

@ -11,7 +11,9 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$ifdef fpc}
{$mode objfpc}
{$endif}
unit contnrs;
interface
@ -404,7 +406,7 @@ end;
Function TOrderedList.Peek: Pointer;
begin
If AtLeast(1) then
Result:=PeekItem;
Result:=PeekItem
else
Result:=Nil;
end;
@ -418,7 +420,7 @@ end;
Function TOrderedList.Pop: Pointer;
begin
If Atleast(1) then
Result:=PopItem;
Result:=PopItem
else
Result:=Nil;
end;
@ -430,7 +432,7 @@ begin
begin
Result:=Items[Count-1];
Delete(Count-1);
end;
end
else
Result:=Nil;
end;
@ -495,7 +497,10 @@ end.
{
$Log$
Revision 1.4 2002-08-09 09:44:33 michael
Revision 1.5 2002-08-09 09:48:28 michael
+ mode directive added plus some types fixed
Revision 1.4 2002/08/09 09:44:33 michael
+ Implemented stack and queue (untested)
Revision 1.3 2002/07/26 11:26:26 michael