Package Name: mixedmode

Return to: Package List

with Interfaces.C; use Interfaces.C;
with Types; use Types;

package MixedMode is
   --  
   --  File:       MixedMode.h
   --  
   --  Contains:   Mixed Mode Manager Interfaces.
   --  
   --  Version:    Technology: System 7.5
   --              Package:    Universal Interfaces 2.1 in ÒMPW LatestÓ on ETO #18
   --  
   --  Copyright:  © 1984-1995 by Apple Computer, Inc.
   --              All rights reserved.

   --  
	kPowerPCISA    : constant := 1;

	GetCurrentISA  : constant := kPowerPCISA; -- PPC only
   function NewRoutineDescriptor
     (theProc            : in     ProcPtr;
      theProcInfo        : in     ProcInfoType;
      theISA             : in     ISAType)
      return                      UniversalProcPtr;

   pragma Import (C, NewRoutineDescriptor, "NewRoutineDescriptor", "NewRoutineDescriptor");
   procedure DisposeRoutineDescriptor
     (theProcPtr         : in     UniversalProcPtr);

   pragma Import (C, DisposeRoutineDescriptor, "DisposeRoutineDescriptor", "DisposeRoutineDescriptor");
   function NewFatRoutineDescriptor
     (theM68kProc        : in     ProcPtr;
      thePowerPCProc     : in     ProcPtr;
      theProcInfo        : in     ProcInfoType)
      return                      UniversalProcPtr;

   pragma Import (C, NewFatRoutineDescriptor, "NewFatRoutineDescriptor", "NewFatRoutineDescriptor");
   function CallUniversalProc
     (theProcPtr         : in     UniversalProcPtr;
      procInfo           : in     ProcInfoType)
      return                      Long_Integer;

   pragma Import (C, CallUniversalProc, "CallUniversalProc", "CallUniversalProc");
   function CallOSTrapUniversalProc
     (theProcPtr         : in     UniversalProcPtr;
      procInfo           : in     ProcInfoType)
      return                      Long_Integer;

   pragma Import (C, CallOSTrapUniversalProc, "CallOSTrapUniversalProc", "CallOSTrapUniversalProc");
end MixedMode;