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-Thread: a07f3367d7,a632877f80f5be5d
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!feeder.news-service.com!tudelft.nl!txtfeed1.tudelft.nl!zen.net.uk!dedekind.zen.co.uk!aioe.org!not-for-mail
From: tmoran@acm.org
Newsgroups: comp.lang.ada
Subject: Re: Having a problem building with win32ada
Date: Wed, 10 Mar 2010 02:32:30 +0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <hn70bu$k0g$1@speranza.aioe.org>
References: <vafdp5lur3vgd7i8eh0r7575dfqv319pmd@4ax.com>
NNTP-Posting-Host: J4HSNf9Eqj44wTz1J3b8lQ.user.speranza.aioe.org
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
X-Newsreader: Tom's custom newsreader
Xref: g2news1.google.com comp.lang.ada:9504
Date: 2010-03-10T02:32:30+00:00
List-Id: <comp.lang.ada>

> One thing I noticed though is that in mmsystem.h (in the
> i686-pc-mingw32 folder) the declaration of MIDIINCAPS (well,
> MIDIINCAPSA as it's non-Unicode) is:
>
>    typedef struct tagMIDIINCAPSA {
>        WORD wMid;
>        WORD wPid;
>        MMVERSION vDriverVersion;
>        CHAR szPname[MAXPNAMELEN];
>        DWORD dwSupport;
>    } MIDIINCAPSA,*PMIDIINCAPSA,*LPMIDIINCAPSA;
>
> However in win32-mmsystem.ads, the corresponding definition is:
>
>    type MIDIINCAPSA is                          --  mmsystem.h:835
>       record
>          wMid : Win32.WORD;                     --  mmsystem.h:836
>          wPid : Win32.WORD;                     --  mmsystem.h:837
>          vDriverVersion : MMVERSION;            --  mmsystem.h:838
>          szPname : Win32.CHAR_Array (0 .. 31);  --  mmsystem.h:839
>       end record;

> I've done some more searching, and it looks to me like basically the
> Win32Ada binding that AdaCore are allowing people to download are a
> minimum of 11 years old. Apparently the last intermetrics version
> (3.0) was released in 1999. The win32-mmsystem.ads has an Intermetrics
> copyright date of 1995.

Looking at an mmsystem.h dated 8/21/96 I see

typedef struct tagMIDIINCAPSA {
    WORD        wMid;                   /* manufacturer ID */
    WORD        wPid;                   /* product ID */
    MMVERSION   vDriverVersion;         /* version of the driver */
    CHAR        szPname[MAXPNAMELEN];   /* product name (NULL terminated string) */
#if (WINVER >= 0x0400)
    DWORD   dwSupport;             /* functionality supported by driver */
#endif
   } MIDIINCAPSA,*PMIDIINCAPSA,*LPMIDIINCAPSA;

Do you need to access dwSupport?  If not, do you need to allocate space for
a record of this type, or do you just use pointers to a record allocated
by mmsystem?