DEFINITION MODULE Profiler;
(* new ver 26.9.90/bp *)
(*
 * !!!!!!! Keine der Prozeduren darf Register verändern !!!!!!!
 * !!!!!!! Auch nicht D0,D1,A0,A1,FP0,FP1 !!!!!!!!
 *)
FROM SYSTEM IMPORT ADDRESS;

TYPE ProfData;

PROCEDURE Allocate(VAR prof:ProfData; nOfBlocks:CARDINAL; name:ADDRESS);

PROCEDURE Enter(prof:ProfData; id:CARDINAL; pc:CARDINAL);
PROCEDURE Exit(prof:ProfData; id:CARDINAL; pc:CARDINAL);
PROCEDURE Call(prof:ProfData; id:CARDINAL);
PROCEDURE Return(prof:ProfData; id:CARDINAL);

END Profiler.def
