-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 2000 Free Software Foundation, Inc. --
+-- Copyright (c) 2000-2004,2009 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
--- Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en
-- Version Control:
--- $Revision: 1.3 $
+-- $Revision: 1.6 $
-- Binding Version 01.00
------------------------------------------------------------------------------
#if ADA_TRACE then
pragma Import (C, tracef, "_tracef");
Txt : char_array (0 .. str'Length);
Length : size_t;
- formatstr : constant String := "%s" & ASCII.Nul;
+ formatstr : constant String := "%s" & ASCII.NUL;
formattxt : char_array (0 .. formatstr'Length);
begin
To_C (formatstr, formattxt, Length);
end Trace_Put;
#else
procedure Trace_On (x : Trace_Attribute_Set) is
+#if PRAGMA_UNREF
+ pragma Unreferenced (x);
+#end if;
begin
null;
end Trace_On;
procedure Trace_Put (str : String) is
+#if PRAGMA_UNREF
+ pragma Unreferenced (str);
+#end if;
begin
null;
end Trace_Put;