aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/lib/midi/CIRCBUF.PAS
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-02-20 17:46:34 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-02-20 17:46:34 +0000
commite2fea8646f72081d75fbad367be6ced68c82fb4c (patch)
tree146558b630d0cdeea1153ec6463c962e194936bb /Game/Code/lib/midi/CIRCBUF.PAS
parentb4d9e59f54100db2cbfc18368004f28f34aee11b (diff)
downloadusdx-e2fea8646f72081d75fbad367be6ced68c82fb4c.tar.gz
usdx-e2fea8646f72081d75fbad367be6ced68c82fb4c.tar.xz
usdx-e2fea8646f72081d75fbad367be6ced68c82fb4c.zip
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
Diffstat (limited to '')
-rw-r--r--Game/Code/lib/midi/CIRCBUF.PAS20
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);