* langhooks.h (estimate_num_insns, pushlevel, poplevel, set_block,

[pf3gnuchains/gcc-fork.git] / gcc / ada / gnatvsn.adb

diff --git a/gcc/ada/gnatvsn.adb b/gcc/ada/gnatvsn.adb
index cbeadd5..b15c6fa 100644 (file)
--- a/gcc/ada/gnatvsn.adb
+++ b/gcc/ada/gnatvsn.adb
@@ -41,6 +41,15 @@ package body Gnatvsn is
    pragma Import (C, Version_String, "version_string");
 
    -------------------------
+   -- Get_Gnat_Build_Type --
+   -------------------------
+
+   function Get_Gnat_Build_Type return Gnat_Build_Type is
+   begin
+      return FSF;
+   end Get_Gnat_Build_Type;
+
+   -------------------------
    -- Gnat_Version_String --
    -------------------------