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

* Added TArray generic

Browse Source 
git-svn-id: trunk@31462 -
This commit is contained in:
michael 2015-08-31 12:03:55 +00:00
parent d3350b18ba
commit a4502a50d5
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/objpas.pp
View File

@ -19,11 +19,11 @@
{$endif}
unit objpas;
interface
interface
{ first, in object pascal, the integer type must be redefined }
{ first, in object pascal, the integer type must be redefined }
{$ifdef CPU16}
const
const
MaxInt = MaxSmallint;
type
Integer = smallint;
@ -57,7 +57,15 @@ unit objpas;
TBoundArray = array of integer;
{$if FPC_FULLVERSION >= 20701}
{ Generic array type.
Slightly Less useful in FPC, since dyn array compatibility is at the element level.
But still useful for generic methods and of course Delphi compatibility}
Generic TArray<T> = Array of T;
{ Generic support for enumerator interfaces. These are added here, because
mode (Obj)FPC does currently not allow the overloading of types with
generic types (this will need a modeswitch...) }