X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-trace__adb.htm;h=350f4fde01a67dac06be9dc995854b242f72b447;hp=04dae6b930606ab6380b84828848536f26d069f4;hb=0ac2306dd3aaab1338d8b1458c15a7e476cfc3ff;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8
diff --git a/doc/html/ada/terminal_interface-curses-trace__adb.htm b/doc/html/ada/terminal_interface-curses-trace__adb.htm
index 04dae6b9..350f4fde 100644
--- a/doc/html/ada/terminal_interface-curses-trace__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-trace__adb.htm
@@ -12,7 +12,7 @@
-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 2000,2004 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 --
@@ -40,21 +40,23 @@
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.5 @
+-- @Revision: 1.6 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-package body Terminal_Interface.Curses.Trace is
+package body Terminal_Interface.Curses.Trace is
procedure Trace_On (x : Trace_Attribute_Set) is
+ pragma Unreferenced (x);
begin
null;
end Trace_On;
- procedure Trace_Put (str : String) is
+ procedure Trace_Put (str : String) is
+ pragma Unreferenced (str);
begin
null;
end Trace_Put;
-end Terminal_Interface.Curses.Trace;
+end Terminal_Interface.Curses.Trace;