Parcourir la source

* more dummy declarations for basetypes.

git-svn-id: trunk@24292 -
marco il y a 12 ans
Parent
commit
1df71e5d99
1 fichiers modifiés avec 2 ajouts et 1 suppressions
  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);