Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* 64-bit fix for mci_open_params structure. Mantis #20197

git-svn-id: trunk@19031 -
marco 14 years ago
parent
c9545e24a0
commit
51e61b5df7
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/winunits-base/src/mmsystem.pp

+ 1 - 1
packages/winunits-base/src/mmsystem.pp
View File 

@@ -1786,7 +1786,7 @@ _MIXERCONTROLDETAILS_BOOLEAN = packed Record
 
  TMCI_GENERIC_PARMS  = MCI_GENERIC_PARMS;
 
  TMCI_GENERIC_PARMS  = MCI_GENERIC_PARMS;
 
 
 
  _MCI_OPEN_PARMSA = packed Record
 
  _MCI_OPEN_PARMSA = packed Record
 
-                            dwCallback: DWORD;
 
+                            dwCallback: DWORD_ptr;
 
                             wDeviceID: MCIDEVICEID;
 
                             wDeviceID: MCIDEVICEID;
 
                             lpstrDeviceType: LPCSTR;
 
                             lpstrDeviceType: LPCSTR;
 
                             lpstrElementName: LPCSTR;
 
                             lpstrElementName: LPCSTR;