paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Ami-Extra: muihelper does not need amigalib anymore, functions are moved to utility

Browse Source 
git-svn-id: trunk@36788 -
This commit is contained in:
marcus 2017-07-25 17:16:42 +00:00
parent ddc7631e09
commit 13ab320618
2 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/ami-extra/examples/muihelloworld.pas
View File

@ -3,9 +3,6 @@ program muihelloworld;
// Example Source for MUIHelper, Simple Window and Button
uses
{$if defined(MorphOS) or defined(Amiga)}
amigalib,
{$endif}
Exec, Utility, intuition, AmigaDos, mui, muihelper;
procedure StartMe;

11
packages/ami-extra/src/muihelper.pas
View File

@ -24,9 +24,6 @@ unit muihelper;
interface
uses
{$if defined(MorphOS) or defined(Amiga68k)}
amigalib,
{$endif}
exec, intuition, mui, amigados, utility;
type
@ -370,11 +367,7 @@ implementation
{$define SetHook}
procedure MH_SetHook(var Hook: THook; Func: THookFunc; Data: Pointer);
begin
{$if defined(VER3_0)}
Hook.h_Entry := @HookEntry; { is defined in AmigaLib unit now }
{$else}
Hook.h_Entry := @HookEntryPas; { is defined in AmigaLib unit now }
{$endif}
Hook.h_Entry := @HookEntryPas; { is defined in Utility unit now }
Hook.h_SubEntry := Func;
Hook.h_Data := Data;
end;
@ -405,7 +398,7 @@ procedure MH_SetHook(var Hook: THook; Func: THookFunc; Data: Pointer);
{ This is MorphOS magic. Basically, CallHookPkt is designed to enter 68k code
(remember, MorphOS is 68k AmigaOS binary compatible!) so this TRAP just
redirects that call back to native PPC code. HookEntry is defined in
AmigaLib unit }
Utility unit }
const
HOOKENTRY_TRAP: TEmulLibEntry = ( Trap: TRAP_LIB; Extension: 0; Func: @HookEntry );
begin