* vxaddr2line.adb: Add support for x86 vxworks
authorArnaud Charlet <charlet@gcc.gnu.org>
Wed, 8 Dec 2004 11:49:07 +0000 (12:49 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 8 Dec 2004 11:49:07 +0000 (12:49 +0100)
From-SVN: r91895

gcc/ada/vxaddr2line.adb

index 5fc7759276f2dbbba13a4566c20cfc127f216699..6d79cfc5c4833213e24b61cd032db3846c1dd6dd 100644 (file)
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---            Copyright (C) 2002-2003 Ada Core Technologies, Inc.           --
+--            Copyright (C) 2002-2004 Ada Core Technologies, Inc.           --
 --                                                                          --
 -- GNAT 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- --
@@ -81,7 +81,8 @@ procedure VxAddr2Line is
 
    --  All supported architectures
    type Architecture is
-     (WINDOWS_POWERPC,
+     (SOLARIS_I586,
+      WINDOWS_POWERPC,
       WINDOWS_M68K,
       SOLARIS_POWERPC,
       DEC_ALPHA);
@@ -125,6 +126,11 @@ procedure VxAddr2Line is
          Nm_Binary           => null,
          Addr_Digits_To_Skip => 0,
          Bt_Offset_From_Call => 0),
+      SOLARIS_I586 =>
+        (Addr2line_Binary    => null,
+         Nm_Binary           => null,
+         Addr_Digits_To_Skip => 0,
+         Bt_Offset_From_Call => -2),
       DEC_ALPHA =>
         (Addr2line_Binary    => null,
          Nm_Binary           => null,
@@ -212,7 +218,6 @@ procedure VxAddr2Line is
          return;
    end Detect_Arch;
 
-
    -----------
    -- Error --
    -----------
@@ -224,7 +229,6 @@ procedure VxAddr2Line is
       raise Program_Error;
    end Error;
 
-
    --------------------------
    -- Get_Reference_Offset --
    --------------------------