* Default intrinsic and some base types added

git-svn-id: trunk@31033 -

rtl/inc/system.fpd

@@ -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