hedgewars/pas2cSystem.pas
changeset 6520 6fecdc5d182f
parent 6516 addaeb1b9539
child 6552 91adc9ee7b8c
equal deleted inserted replaced
6519:b0dc69bb1f54 6520:6fecdc5d182f
     3 type 
     3 type 
     4     LongInt = integer;
     4     LongInt = integer;
     5     LongWord = integer;
     5     LongWord = integer;
     6     Cardinal = integer;
     6     Cardinal = integer;
     7     PtrInt = integer;
     7     PtrInt = integer;
       
     8     Word = integer;
       
     9     Integer = integer;
       
    10     Byte = integer;
       
    11     SmallInt = integer;
       
    12     ShortInt = integer;
     8 
    13 
     9     pointer = pointer;
    14     pointer = pointer;
    10     PChar = pointer;
    15     PChar = pointer;
    11 
    16 
    12     double = float;
    17     double = float;
    19     string = string;
    24     string = string;
    20     shortstring = string;
    25     shortstring = string;
    21     ansistring = string;
    26     ansistring = string;
    22 
    27 
    23     char = char;
    28     char = char;
       
    29     
       
    30     PByte = ^Byte;
       
    31     PLongInt = ^LongInt;
       
    32     PLongWord = ^LongWord;
       
    33     PInteger = ^Integer;
    24 var 
    34 var 
    25     false, true: boolean;
    35     false, true: boolean;
    26     write, writeln, read, readln: procedure;
    36     write, writeLn, read, readLn, inc, dec: procedure;
    27     strlen : function : integer;
    37     StrLen, ord, Succ, Pred : function : integer;
       
    38     Low, High : function : integer;
       
    39     Now : function : integer;
       
    40     SysUtils.StrPas, FormatDateTime : function : shortstring;
       
    41     exit : procedure;