Chapter 3 Ada Language Reference
© National Instruments Corporation 3-15 AutoCode Reference
-----------------------------------------------------------------------
-- Wrapper around the procedure to support UCB (Fixed calltype) interface
-- This routine can be called as a UCB either from SystemBuild or AutoCode
-----------------------------------------------------------------------
-----------------------------------------------------------------------
-- Map
-- ---
-- Number of Inputs: 2
-- Number of Outputs: 3
-- Number of States: 0
-- Number of Integer parameters: 0
-- Number of Real parameters: 0
-- ...
-----------------------------------------------------------------------
...
with myproc_pkg; use myproc_pkg;
procedure myproc_hook(
iinfo : in out RT_STATUS_RECORD;
TIME : in RT_DURATION;
U : in RT_FLOAT_AY;
NU : in RT_INTEGER;
X : in RT_FLOAT_AY;
XD : in out RT_FLOAT_AY;
NX : in RT_INTEGER;
Y : in out RT_FLOAT_AY;
NY : in RT_INTEGER;
R_P : in out RT_FLOAT_AY;
I_P : in out RT_INTEGER_AY) is
...
begin
...
myproc(ptr_of(myproc_12_u'address), ptr_of(myproc_12_y'address),
ptr_of(myproc_12_i'address));
...
end myproc_hook;