From e2fea8646f72081d75fbad367be6ced68c82fb4c Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 20 Feb 2008 17:46:34 +0000
Subject: 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
---
 Game/Code/lib/midi/DELPHMCB.PAS | 27 ++++++++++-----------------
 1 file changed, 10 insertions(+), 17 deletions(-)

(limited to 'Game/Code/lib/midi/DELPHMCB.PAS')

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
 
-- 
cgit v1.2.3