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, 3 insertions, 17 deletions

diff --git a/Game/Code/lib/midi/CIRCBUF.PAS b/Game/Code/lib/midi/CIRCBUF.PAS
index e84fc2c4..9f1f8390 100644
--- a/Game/Code/lib/midi/CIRCBUF.PAS
+++ b/Game/Code/lib/midi/CIRCBUF.PAS
@@ -21,17 +21,11 @@ Unit Circbuf;
 

 interface

 

-Uses Wintypes, WinProcs, MMSystem;

+Uses

+  Windows,

+  MMSystem;

 

 type

-    {$IFNDEF WIN32}

-    { API types not defined in Delphi 1 }

-    DWORD = Longint;

-    HGLOBAL = THandle;

-    UINT = Word;

-    TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD);

-    {$ENDIF}

-

 	{ MIDI input event }

 	TMidiBufferItem = record

 	  	timestamp: DWORD;	{ Timestamp in milliseconds after midiInStart }

@@ -83,19 +77,11 @@ begin
 			GlobalFree(hMem);

 		end;

 

-{$IFNDEF WIN32}

-	if (ptr <> Nil) then

-		GlobalPageLock(HIWORD(DWORD(ptr)));

-{$ENDIF}

 	GlobalSharedLockedAlloc := Ptr;

 end;

 

 procedure GlobalSharedLockedFree( hMem: HGLOBAL; ptr: Pointer );

 begin

-{$IFNDEF WIN32}

-	if (ptr <> Nil) then

-		GlobalPageUnlock(HIWORD(DWORD(ptr)));

-{$ENDIF}

 	if (hMem <> 0) then

 		begin

 		GlobalUnlock(hMem);