PR preprocessor/30805:

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-osprim-vms.adb

diff --git a/gcc/ada/s-osprim-vms.adb b/gcc/ada/s-osprim-vms.adb
index ae06474..8a9430e 100644 (file)
--- a/gcc/ada/s-osprim-vms.adb
+++ b/gcc/ada/s-osprim-vms.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---          Copyright (C) 1998-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2007, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL is free software; you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -45,14 +45,22 @@ package body System.OS_Primitives is
    pragma Import (C, Get_GMToff, "get_gmtoff");
    --  Get the offset from GMT for this timezone
 
-   VMS_Epoch_Offset : constant Long_Integer :=
-                        10_000_000 *
-                          (3_506_716_800 + Long_Integer (Get_GMToff));
+   function VMS_Epoch_Offset return Long_Integer;
+   pragma Inline (VMS_Epoch_Offset);
    --  The offset between the Unix Epoch and the VMS Epoch
 
    subtype Cond_Value_Type is System.Aux_DEC.Unsigned_Longword;
    --  Condition Value return type
 
+   ----------------------
+   -- VMS_Epoch_Offset --
+   ----------------------
+
+   function VMS_Epoch_Offset return Long_Integer is
+   begin
+      return 10_000_000 * (3_506_716_800 + Long_Integer (Get_GMToff));
+   end VMS_Epoch_Offset;
+
    ----------------
    -- Sys_Schdwk --
    ----------------
@@ -69,10 +77,10 @@ package body System.OS_Primitives is
    procedure Sys_Schdwk
      (
       Status : out Cond_Value_Type;
-      Pidadr : in Address := Null_Address;
-      Prcnam : in String := String'Null_Parameter;
-      Daytim : in Long_Integer;
-      Reptim : in Long_Integer := Long_Integer'Null_Parameter
+      Pidadr : Address := Null_Address;
+      Prcnam : String := String'Null_Parameter;
+      Daytim : Long_Integer;
+      Reptim : Long_Integer := Long_Integer'Null_Parameter
      );
 
    pragma Interface (External, Sys_Schdwk);
@@ -144,6 +152,15 @@ package body System.OS_Primitives is
       return To_Duration (OS_Clock, Absolute_Calendar);
    end Clock;
 
+   ----------------
+   -- Initialize --
+   ----------------
+
+   procedure Initialize is
+   begin
+      null;
+   end Initialize;
+
    ---------------------
    -- Monotonic_Clock --
    ---------------------