Commit f37dd0b4 authored by Maxime Perrotin's avatar Maxime Perrotin

fix typo

parent 065203e4
......@@ -7,7 +7,7 @@
@@-- @_Protected_PIs_@ : Protected Provided interfaces (from pi.tmplt)
@@-- @_Unprotected_PIs_@ : Unprotected Provided interfaces (from pi.tmplt)
@@-- @_Required_@ : Required interfaces (from ri.tmplt)
@@IF@@ @_Language_@ = sdl or @_Language_@ = ada
@@IF@@ @_Language_@ = SDL or @_Language_@ = Ada
with @_CAPITALIZE:Name_@;
@@END_IF@@
......
......@@ -20,7 +20,7 @@ procedure @_CAPITALIZE:Name_@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@END_TABLE@@
@@END_INLINE@@
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_LOWER:Name_@";
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_Name_@";
begin
C_@_CAPITALIZE:Name_@
@@INLINE( \()(,\n )(\);)@@
......@@ -32,7 +32,7 @@ end @_CAPITALIZE:Name_@;
@@ELSE@@
procedure @_CAPITALIZE:Name_@ is
procedure C_@_CAPITALIZE:Name_@
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_LOWER:Name_@";
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_Name_@";
begin
-- PI has no parameter - could directly call user code (add _PI_ above)
C_@_CAPITALIZE:Name_@;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment