From 61389eac9fc90cefeff329fa5e692616f22aa219 Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Thu, 29 May 1997 21:53:58 +0000
Subject: first cut at Ada bindings manual

---
 doc/user/fatal.t | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'doc/user/fatal.t')

diff --git a/doc/user/fatal.t b/doc/user/fatal.t
index 4f15684195..36b75c59f5 100644
--- a/doc/user/fatal.t
+++ b/doc/user/fatal.t
@@ -30,8 +30,6 @@ manager is:
 @item @code{fatal_error_occurred} - Invoke the fatal error handler
 @end itemize
 
-
-
 @ifinfo
 @node Fatal Error Manager Background, Fatal Error Manager Operations, Fatal Error Manager Introduction, Fatal Error Manager
 @end ifinfo
@@ -148,11 +146,21 @@ constants, usage, and status codes.
 
 @subheading CALLING SEQUENCE:
 
+@ifset is-C
 @example
 void volatile rtems_fatal_error_occurred(
   rtems_unsigned32        the_error
 );
 @end example
+@end ifset
+
+@ifset is-Ada
+@example
+procedure Fatal_Error_Occurred (
+   The_Error : in     RTEMS.Unsigned32
+);
+@end example
+@end ifset
 
 @subheading DIRECTIVE STATUS CODES
 
-- 
cgit v1.2.3