paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 12:10:39 +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} {$endif}
unit objpas; 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} {$ifdef CPU16}
const const
MaxInt = MaxSmallint; MaxInt = MaxSmallint;
type type
Integer = smallint; Integer = smallint;
@ -57,7 +57,15 @@ unit objpas;
TBoundArray = array of integer; TBoundArray = array of integer;
{$if FPC_FULLVERSION >= 20701} {$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 { Generic support for enumerator interfaces. These are added here, because
mode (Obj)FPC does currently not allow the overloading of types with mode (Obj)FPC does currently not allow the overloading of types with
generic types (this will need a modeswitch...) } generic types (this will need a modeswitch...) }