Re: Having a problem building with win32ada

[tmoran@acm.org]

> 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?