Context Navigation

timer_driver.adb @ f619250

4.115

Last change on this file since f619250 was 9b4422a2, checked in by Joel Sherrill <joel.sherrill@…>, on 05/03/12 at 15:09:24

Remove All CVS Id Strings Possible Using a Script

Script does what is expected and tries to do it as
smartly as possible.

+ remove occurrences of two blank comment lines

next to each other after Id string line removed.

+ remove entire comment blocks which only exited to

contain CVS Ids

+ If the processing left a blank line at the top of

a file, it was removed.

File size: 1.1 KB

Line
1	--
2	-- Timer_Driver / Body
3	--
4	-- Description:
5	--
6	-- This package is the body for the Timer Driver.
7	--
8	-- Dependencies:
9	--
10	--
11	--
12	-- COPYRIGHT (c) 1989-2009.
13	-- On-Line Applications Research Corporation (OAR).
14	--
15	-- The license and distribution terms for this file may in
16	-- the file LICENSE in this distribution or at
17	-- http://www.rtems.com/license/LICENSE.
18	--
19
20	with Interfaces;
21
22	package body Timer_Driver is
23
24	--PAGE
25	--
26	-- Empty_function
27	--
28	--
29	procedure Empty_Function
30	is
31	begin
32	Null;
33	end Empty_Function;
34
35	--PAGE
36	--
37	-- Set_Find_Average_Overhead
38	--
39	--
40
41	procedure Set_Find_Average_Overhead (
42	Find_Flag : in Standard.Boolean
43	) is
44	procedure Set_Find_Average_Overhead_base (
45	Find_Flag : in Interfaces.Unsigned_8
46	);
47	pragma Import (C, Set_Find_Average_Overhead_base,
48	"benchmark_timer_disable_subtracting_average_overhead");
49	c: Interfaces.Unsigned_8;
50	begin
51	if Find_Flag then
52	c := 1;
53	else
54	c := 0;
55	end if;
56	Set_Find_Average_Overhead_base (c);
57	end Set_Find_Average_Overhead;
58
59	end Timer_Driver;

Note: See TracBrowser for help on using the repository browser.