Ignore:
Timestamp:
Sep 29, 2008, 8:44:58 PM (13 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 5, master
Children:
c217cf7
Parents:
56abb78
Message:

2008-09-29 Joel Sherrill <joel.sherrill@…>

  • support/timer_driver.adb, support/timer_driver.ads, tmtests/tm01/tmtest.adb, tmtests/tm02/tmtest.adb, tmtests/tm03/tmtest.adb, tmtests/tm04/tmtest.adb, tmtests/tm05/tmtest.adb, tmtests/tm06/tmtest.adb, tmtests/tm07/tmtest.adb, tmtests/tm08/tmtest.adb, tmtests/tm09/tmtest.adb, tmtests/tm10/tmtest.adb, tmtests/tm11/tmtest.adb, tmtests/tm12/tmtest.adb, tmtests/tm13/tmtest.adb, tmtests/tm14/tmtest.adb, tmtests/tm15/tmtest.adb, tmtests/tm16/tmtest.adb, tmtests/tm17/tmtest.adb, tmtests/tm18/tmtest.adb, tmtests/tm19/tmtest.adb, tmtests/tm20/config.h, tmtests/tm20/tmtest.adb, tmtests/tm21/tmtest.adb, tmtests/tm22/tmtest.adb, tmtests/tm23/tmtest.adb, tmtests/tm24/tmtest.adb, tmtests/tm25/tmtest.adb, tmtests/tm28/tmtest.adb, tmtests/tm29/tmtest.adb, tmtests/tmck/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Clean up. Verified to run on psim with gcc 4.3.2.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada-tests/support/timer_driver.adb

    r56abb78 ra8e724d6  
    2121
    2222with RTEMS;
     23with Interfaces.C;
    2324
    2425package body Timer_Driver is
     26
     27--PAGE
     28--
     29--  Empty_function
     30--
     31--
     32   procedure Empty_Function
     33   is
     34   begin
     35      Null;
     36   end Empty_Function;
    2537
    2638--PAGE
     
    3446   ) is
    3547      procedure Set_Find_Average_Overhead_base (
    36          Find_Flag : in     RTEMS.Boolean
     48         Find_Flag : in     Interfaces.Unsigned_8
    3749      );
    3850      pragma Import (C, Set_Find_Average_Overhead_base,
    39          "Set_find_average_overhead");
     51         "benchmark_timer_disable_subtracting_average_overhead");
     52      c: Interfaces.Unsigned_8;
    4053   begin
    41       Set_Find_Average_Overhead_base (RTEMS.From_Ada_Boolean (Find_Flag));
     54      if Find_Flag then
     55        c := 1;
     56      else
     57        c := 0;
     58      end if;
     59      Set_Find_Average_Overhead_base (c);
    4260   end Set_Find_Average_Overhead;
    4361
Note: See TracChangeset for help on using the changeset viewer.