> If what you are trying to do is within Ada, you can
> simplify the code
  Or re-think the design and use tagged types and overiding to
essentially let the compiler manage your function pointers.