diff options
| author | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-01 19:34:40 +0000 |
|---|---|---|
| committer | eddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-11-01 19:34:40 +0000 |
| commit | 391d30716d48dc709f6444b19c008e82311623b9 (patch) | |
| tree | e922181e99262c06e6d48a6df5cda71a2338e0bd /Game/Code/Classes/UHooks.pas | |
| parent | 39c1fdef33f512a36334e689e38b90cfe4aceb82 (diff) | |
| download | usdx-391d30716d48dc709f6444b19c008e82311623b9.tar.gz usdx-391d30716d48dc709f6444b19c008e82311623b9.tar.xz usdx-391d30716d48dc709f6444b19c008e82311623b9.zip | |
Mac OS X version compiles and links. I hope I didn't break too many files on windows/linux.
Added switches.inc to all files.
Changed many IFDEFs.
For Windows-only code please use MSWINDOWS instead of WIN32 now. WIN32 is also used by the Mac port.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@546 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Classes/UHooks.pas | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Game/Code/Classes/UHooks.pas b/Game/Code/Classes/UHooks.pas index c3684ed1..ea31ec50 100644 --- a/Game/Code/Classes/UHooks.pas +++ b/Game/Code/Classes/UHooks.pas @@ -6,14 +6,11 @@ unit UHooks; Saves all hookable events and their subscribers
*********************}
interface
-uses uPluginDefs, SysUtils;
-{$IFDEF FPC}
- {$MODE Delphi} -{$ENDIF} - {$I switches.inc}
+uses uPluginDefs, SysUtils;
+
type
//Record that saves info from Subscriber
PSubscriberInfo = ^TSubscriberInfo;
@@ -422,7 +419,7 @@ end; function HookTest(wParam, lParam: DWord): integer; stdcall;
begin
Result := 0; //Don't break the chain
- Core.ShowMessage(CORE_SM_INFO, Integer(PChar(String(PChar(Ptr(lParam))) + ': ' + String(PChar(Ptr(wParam))))));
+ Core.ShowMessage(CORE_SM_INFO, Integer(PChar(String(PChar(Pointer(lParam))) + ': ' + String(PChar(Pointer(wParam))))));
end;
end.
|