Explorar o código

* more dummy declarations for basetypes.

git-svn-id: trunk@24292 -
marco %!s(int64=12) %!d(string=hai) anos
pai
achega
1df71e5d99
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      rtl/inc/system.fpd

+ 2 - 1
rtl/inc/system.fpd

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