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/CIRCBUF.PAS | 20 +++-----------------
 1 file changed, 3 insertions(+), 17 deletions(-)

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

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