paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +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. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$ifdef fpc}
{$mode objfpc}
{$endif}
unit contnrs; unit contnrs;
interface interface
@ -404,7 +406,7 @@ end;
Function TOrderedList.Peek: Pointer; Function TOrderedList.Peek: Pointer;
begin begin
If AtLeast(1) then If AtLeast(1) then
Result:=PeekItem; Result:=PeekItem
else else
Result:=Nil; Result:=Nil;
end; end;
@ -418,7 +420,7 @@ end;
Function TOrderedList.Pop: Pointer; Function TOrderedList.Pop: Pointer;
begin begin
If Atleast(1) then If Atleast(1) then
Result:=PopItem; Result:=PopItem
else else
Result:=Nil; Result:=Nil;
end; end;
@ -430,7 +432,7 @@ begin
begin begin
Result:=Items[Count-1]; Result:=Items[Count-1];
Delete(Count-1); Delete(Count-1);
end; end
else else
Result:=Nil; Result:=Nil;
end; end;
@ -495,7 +497,10 @@ end.
{ {
$Log$ $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) + Implemented stack and queue (untested)
Revision 1.3 2002/07/26 11:26:26 michael Revision 1.3 2002/07/26 11:26:26 michael