From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,XPRIO
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9c774f310a3b396,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-08-14 00:17:59 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!fu-berlin.de!uni-berlin.de!gate.dornier.dasa.DE!not-for-mail
From: "Martin Moosbrucker" <martin_moosbrucker@web.de>
Newsgroups: comp.lang.ada
Subject: stacktrace on linux
Date: Thu, 14 Aug 2003 09:17:50 +0200
Message-ID: <bhfd36$42gt$1@ID-169866.news.uni-berlin.de>
NNTP-Posting-Host: gate.dornier.dasa.de (53.122.46.165)
X-Trace: news.uni-berlin.de 1060845478 133661 53.122.46.165 (16 [169866])
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2462.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2462.0000
Xref: archiver1.google.com comp.lang.ada:41433
Date: 2003-08-14T09:17:50+02:00
List-Id: <comp.lang.ada>

Hi,

I'd like to get the stack trace of a program running on a RedHat 7.3
operating system as I get it on a windows2000 os.

The stack trace on windows looks like that:

1/ 0
Exception name: CONSTRAINT_ERROR
Message: stack_trace.adb:13
Call stack traceback locations:
0x40144b 0x4015f3 0x401806 0x401265 0x401103 0x77e8ca8e
0040144B in testexception.outer.inner at stack_trace.adb:13
004015F3 in testexception.outer at stack_trace.adb:19
00401806 in testexception at stack_trace.adb:26
00401265 in ?? at crt1.c:0
00401103 in ?? at crt1.c:0
77E8CA8E in ?? at fake:0

on RedHat I don't get any information of the lines in my sourcecode:

Exception name: CONSTRAINT_ERROR
Message: stack_trace.adb:13
Call stack traceback locations:
0x804a090 0x804a3e3 0x804a6df 0x8049d91 0x42017497
0x804a090 in ?? at ??:0
0x804a3e3 in ?? at ??:0
0x804a6df in ?? at ??:0
0x8049d91 in ?? at ??:0
0x42017497 in ?? at ??:0

I am using the following compile / bind and link switches on both ops:

compiler: -O3 -gnatf -gnatwu -gnato -funwind-tables
binder: -f -E
linker: -g -i

The source code generating the exceptions above:

with Ada.Exceptions;
with Gnat.Traceback.Symbolic;

with Text_Io;
use  Text_Io;

procedure Testexception is

type Float_32 is digits  6 range Interfaces.Ieee_Float_32'First ..
                                   Interfaces.Ieee_Float_32'Last;

  procedure Outer is
    procedure Inner(y:integer) is
      x : integer;
    begin
      text_io.put_line("1/"&integer'image(y));
      X := 1 / Y;
      x:=x**2;
      text_io.put_line("finished." & integer'image(x));
    end;
  begin
    begin
      Inner(0);
    exception
      when E : others =>
Text_Io.Put_Line(Ada.Exceptions.Exception_Information(E) &
Gnat.Traceback.Symbolic.Symbolic_Traceback(E));
    end;
  end;
begin

Text_Io.Put_Line("Float_32'Machine_Overflows"&Boolean'Image(Float_32'Machine
_Overflows));
  Outer;
exception
  when e : others =>
Text_io.put_line(Ada.Exceptions.Exception_Information(E) &
Gnat.Traceback.Symbolic.Symbolic_Traceback(E));
end;

Thanks,
Martin