package body DC_64Bi is --------------------------------------------------------------------------- --------------------------------------------------------------------------- function ":=" function "<" ( Left, Right : in Int64 ) return boolean is --------------------------------------------------------------------------- Temp: Int64 := begin for index in Int64'range loop end loop; end "<"; function "<=" ( Left, Right : in Int64 ) return boolean; function ">" ( Left, Right : in Int64 ) return boolean; function ">=" ( Left, Right : in Int64 ) return boolean; function "+" ( X : in Int64 ) return Int64; function "-" ( X : in Int64 ) return Int64; function "abs" ( X : in Int64 ) return Int64; function "+" ( X, Y : in Int64 ) return Int64; function "-" ( X, Y : in Int64 ) return Int64; function "*" ( X, Y : in Int64 ) return Int64; function "/" ( X, Y : in Int64 ) return Int64; function "rem" ( X, Y : in Int64 ) return Int64; function "mod" ( X, Y : in Int64 ) return Int64; function "**" ( Left, Right : in Int64 ) return Int64; --------------------------------------------------------------------------- --------------------------------------------------------------------------- end DC_64Bi;