paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 07:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Default intrinsic and some base types added

Browse Source 
git-svn-id: trunk@31033 -
This commit is contained in:
michael 2015-06-13 16:16:14 +00:00
parent 353682db67
commit ebf465a42b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/system.fpd
View File

@ -25,6 +25,9 @@ Type
Smallint= -32768 .. 32767;
Word = 0 .. 65535;
WideChar= #$0000..#$FFFF;
UnicodeString = UnicodeString;
WideString = WideString;
Function Addr (X : TAnytype) : Pointer;
Procedure Assert(Expr : Boolean);
Procedure Assert(Expr : Boolean; const Msg : string);
@ -75,6 +78,7 @@ Procedure ReadStr(Const S : String; Args : Arguments);
Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
Function Default(Const T : AnyType) : AnyType;
{$IFNDEF GO32V2}
Var