Made the midi-stuff FPC (for windows) compatible.

Now (in windows) FPC contains all functionalities of the delphi build.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@872 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 10 insertions, 17 deletions

diff --git a/Game/Code/lib/midi/DELPHMCB.PAS b/Game/Code/lib/midi/DELPHMCB.PAS
index 23ce0e1a..e8b732fa 100644
--- a/Game/Code/lib/midi/DELPHMCB.PAS
+++ b/Game/Code/lib/midi/DELPHMCB.PAS
@@ -9,30 +9,25 @@ unit Delphmcb;
 

 interface

 

-uses WinProcs, WinTypes, MMsystem, Circbuf, MidiDefs, MidiCons;

+uses

+  Windows,

+  MMsystem,

+  Circbuf,

+  MidiDefs,

+  MidiCons;

 

-{$IFDEF WIN32}

 procedure midiHandler(

 		  hMidiIn: HMidiIn;

 		  wMsg: UINT;

 		  dwInstance: DWORD;

 		  dwParam1: DWORD;

-		  dwParam2: DWORD); stdcall export;

-function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; stdcall; export;          

-{$ELSE}

-procedure midiHandler(

-		  hMidiIn: HMidiIn;

-		  wMsg: Word;

-		  dwInstance: DWORD;

-		  dwParam1: DWORD;

-		  dwParam2: DWORD); export;

-function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; export;

-{$ENDIF}

+		  dwParam2: DWORD); stdcall; export;

+function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; stdcall; export;

 

 implementation

 

 { Add an event to the circular input buffer. }

-function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean;

+function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; stdcall;

 begin

 	If (PBuffer^.EventCount < PBuffer^.Capacity) Then

 		begin

@@ -66,13 +61,11 @@ procedure midiHandler(
 		  wMsg: UINT;

 		  dwInstance: DWORD;

 		  dwParam1: DWORD;

-		  dwParam2: DWORD);

-

+		  dwParam2: DWORD); stdcall;

 var

 	thisEvent: TMidiBufferItem;

 	thisCtlInfo: PMidiCtlInfo;

 	thisBuffer: PCircularBuffer;

-

 Begin

 	case wMsg of