blob: 3ee4b3eed849cb686dca8f3a71d8877e0d1fca91 (
plain)
1
2
3
4
5
6
7
8
9
10
|
with Interfaces.C; use Interfaces.C;
package Cpp_Constructor_FP is
type Class is limited record null; end record
with Convention => Cpp, Import;
function Constructor
(Fn : access function (Val : int) return int) return Class;
pragma Cpp_Constructor (Constructor, External_Name => "foo");
end Cpp_Constructor_FP;
|
