浏览代码

* more dummy declarations for basetypes.

git-svn-id: trunk@24292 -
marco 12 年之前
父节点
当前提交
1df71e5d99
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      rtl/inc/system.fpd

+ 2 - 1
rtl/inc/system.fpd

@@ -17,10 +17,11 @@
 Type 
 Type 
    Byte    = 0..255;
    Byte    = 0..255;
    Longint = -2147483648..2147483647;
    Longint = -2147483648..2147483647;
+   Longword= 0..4294967295;
    Shortint= -128 .. 127;
    Shortint= -128 .. 127;
    Smallint= -32768 .. 32767;
    Smallint= -32768 .. 32767;
    Word    = 0 .. 65535;
    Word    = 0 .. 65535;
-   WideChar= #0..#65535;
+   WideChar= #$0000..#$FFFF;
 Function Addr (X : TAnytype) : Pointer;
 Function Addr (X : TAnytype) : Pointer;
 Procedure Assert(Expr : Boolean); 
 Procedure Assert(Expr : Boolean); 
 Procedure Assert(Expr : Boolean; const Msg : string);
 Procedure Assert(Expr : Boolean; const Msg : string);