Commit f37dd0b4 authored by Maxime Perrotin's avatar Maxime Perrotin

fix typo

parent 065203e4
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
@@-- @_Protected_PIs_@ : Protected Provided interfaces (from pi.tmplt) @@-- @_Protected_PIs_@ : Protected Provided interfaces (from pi.tmplt)
@@-- @_Unprotected_PIs_@ : Unprotected Provided interfaces (from pi.tmplt) @@-- @_Unprotected_PIs_@ : Unprotected Provided interfaces (from pi.tmplt)
@@-- @_Required_@ : Required interfaces (from ri.tmplt) @@-- @_Required_@ : Required interfaces (from ri.tmplt)
@@IF@@ @_Language_@ = sdl or @_Language_@ = ada @@IF@@ @_Language_@ = SDL or @_Language_@ = Ada
with @_CAPITALIZE:Name_@; with @_CAPITALIZE:Name_@;
@@END_IF@@ @@END_IF@@
......
...@@ -20,7 +20,7 @@ procedure @_CAPITALIZE:Name_@ ...@@ -20,7 +20,7 @@ procedure @_CAPITALIZE:Name_@
@_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer @_CAPITALIZE:Param_Names_@ : Interfaces.C.char_array; @_CAPITALIZE:Param_Names_@_Size : Integer
@@END_TABLE@@ @@END_TABLE@@
@@END_INLINE@@ @@END_INLINE@@
with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_LOWER:Name_@"; with Import, Convention => C, Link_Name => "@_LOWER:Parent_Function_@_@_Name_@";
begin begin
C_@_CAPITALIZE:Name_@ C_@_CAPITALIZE:Name_@
@@INLINE( \()(,\n )(\);)@@ @@INLINE( \()(,\n )(\);)@@
...@@ -32,7 +32,7 @@ end @_CAPITALIZE:Name_@; ...@@ -32,7 +32,7 @@ end @_CAPITALIZE:Name_@;
@@ELSE@@ @@ELSE@@
procedure @_CAPITALIZE:Name_@ is procedure @_CAPITALIZE:Name_@ is
procedure C_@_CAPITALIZE:Name_@ 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 begin
-- PI has no parameter - could directly call user code (add _PI_ above) -- PI has no parameter - could directly call user code (add _PI_ above)
C_@_CAPITALIZE:Name_@; 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