From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8b0d028e57f221d4
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-11-06 02:40:38 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!news-FFM2.ecrc.net!news.iks-jena.de!not-for-mail
From: Lutz Donnerhacke <lutz@iks-jena.de>
Newsgroups: comp.lang.ada
Subject: Re: Trying to import a C function
Date: Thu, 6 Nov 2003 10:40:38 +0000 (UTC)
Organization: IKS GmbH Jena
Message-ID: <slrnbqk996.o7.lutz@taranis.iks-jena.de>
References: 
 <slrnbqk7aq.q3.randhol+valid_for_reply_from_news@kiuk0156.chembio.ntnu.no>
NNTP-Posting-Host: taranis.iks-jena.de
X-Trace: branwen.iks-jena.de 1068115238 13312 217.17.192.37 (6 Nov 2003
 10:40:38 GMT)
X-Complaints-To: usenet@iks-jena.de
NNTP-Posting-Date: Thu, 6 Nov 2003 10:40:38 +0000 (UTC)
User-Agent: slrn/0.9.7.4 (Linux)
Xref: archiver1.google.com comp.lang.ada:2133
Date: 2003-11-06T10:40:38+00:00
List-Id: <comp.lang.ada>

* Preben Randhol wrote:
> Now what is the equivalent of unsigned long long int in Ada?

type ulonglong is mod 2**64;

> System: Debian GNU/Linux on i686

   type dev_t is new ushort;
   type nlink_t is new ushort;
   type stat_t is record
      st_dev     : dev_t;
      st_ino     : inode_t;
      st_mode    : mode_t;
      st_nlink   : nlink_t;
      st_uid     : uid_t;
      st_gid     : gid_t;
      st_rdev    : dev_t;
      st_size    : off_t;
      st_blksize : ulong;
      st_blocks  : ulong;
      st_atime   : time_t;
      st_mtime   : time_t;
      st_ctime   : time_t;
   end record;
   for stat_t use record
      st_dev     at 0 range 0 .. ushort'Size - 1;
      st_ino     at 2 * short'Size / 8 range 0 .. ulong'Size  - 1;
      st_mode    at (2*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_nlink   at (3*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_uid     at (4*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_gid     at (5*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_rdev    at (6*short'Size +  1*long'Size)/8 range 0 .. ushort'Size - 1;
      st_size    at (8*short'Size +  1*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_blksize at (8*short'Size +  2*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_blocks  at (8*short'Size +  3*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_atime   at (8*short'Size +  4*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_mtime   at (8*short'Size +  6*long'Size)/8 range 0 .. ulong'Size  - 1;
      st_ctime   at (8*short'Size +  8*long'Size)/8 range 0 .. ulong'Size  - 1;
   end record;
   for stat_t'Size use 8 * short'Size + 12 * long'Size;
   type stat_p is access all stat_t; for stat_p'Size use long'Size;