Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
TASTE
kazoo
Commits
d133d89f
Commit
d133d89f
authored
Jul 01, 2019
by
Maxime Perrotin
Browse files
complete test-cv build
parent
b59a9a3e
Changes
2
Hide whitespace changes
Inline
Side-by-side
templates/concurrency_view/ada_wrappers_body/pi.tmplt
View file @
d133d89f
...
...
@@ -28,9 +28,9 @@ end @_CAPITALIZE:Name_@;
@@ELSE@@
procedure @_CAPITALIZE:Name_@ is
procedure C_@_CAPITALIZE:Name_@
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_
PI_
@_LOWER:Name_@";
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_LOWER:Name_@";
begin
-- PI has no parameter - directly call user code
-- PI has no parameter -
could
directly call user code
(add _PI_ above)
C_@_CAPITALIZE:Name_@;
end @_CAPITALIZE:Name_@;
...
...
templates/glue/language_wrappers/vm_if-body/interface.tmplt
View file @
d133d89f
...
...
@@ -47,6 +47,7 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@
@@END_IF@@
@@END_TABLE@@
@@IF@@ @_Language_@ /= GUI
// Declare user code function as external (it may not have a .h if it is in Ada)
extern void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@
@@INLINE( \()(,\n )(\);\n)@@
...
...
@@ -70,14 +71,23 @@ void @_LOWER:Parent_Function_@_@_LOWER:Name_@
@@END_IF@@
@@END_TABLE@@
@@END_INLINE@@
@@END_IF@@
@@TABLE@@ @@-- encode output parameters
@@IF@@ @_Param_Directions_@ = "PARAM_OUT"
*OUT_@_LOWER:Param_Names_@_len = Encode_@_Param_Encodings_@_@_REPLACE_ALL(-/_):Param_Types_@ (OUT_@_LOWER:Param_Names_@, sizeof (asn1Scc@_REPLACE_ALL(-/_):Param_Types_@), &OUT_@_UPPER:Param_Names_@);
@@END_IF@@
@@END_TABLE@@
}
@@ELSE@@ @@-- parameterless functions
void @_LOWER:Parent_Function_@_@_LOWER:Name_@()
{
// Directly call user code, no parameters to pass
// This could be done directly from the concurrency glue...
@@IF@@ @_Language_@ /= GUI
extern void @_LOWER:Parent_Function_@_PI_@_LOWER:Name_@();
@_LOWER:Parent_Function_@_PI_@_LOWER:Name_@();
// puts ("@_LOWER:Parent_Function_@_@_LOWER:Name_@ called");
@@END_IF@@
}
@@END_IF@@
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment