From - Wed May 12 21:31:54 1999
Path: reader2.news.rcn.net!feed1.news.rcn.net!rcn!news.maxwell.syr.edu!remarQ-easT!remarQ73!supernews.com!remarQ.com!remarQ69!news.remarQ.com!SendSpamHere.ORG!SYSTEM
From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)
Newsgroups: comp.os.vms
Subject: Re: Getting at the Call Stack
Date: Wed, 12 May 1999 13:14:52 GMT
Organization: TMESIS Software
Lines: 33
Message-ID: <009D7FE0.5B36413E@SendSpamHere.ORG>
References: <7h9juh$vn$1@autumn.news.rcn.net> <7haq7k$4pte$1@newssvr04-int.news.prodigy.com>
Reply-To: system@SendSpamHere.ORG
NNTP-Posting-Host: 206.136.149.211
NNTP-Posting-Date: Wed, 12 May 1999 13:14:53 GMT
X-Trace: 926514893.072.56 AQ6HJUW.T95D3CE88C qube-01.us-va.remarq.com
X-Complaints-To: newsabuse@remarQ.com
Xref: reader2.news.rcn.net comp.os.vms:230768

In article <7haq7k$4pte$1@newssvr04-int.news.prodigy.com>, "Bob Boylan" <BOBBOYLAN@prodigy.net> writes:
>This chunk of code may help see the call stack ... but it isn't going to
>give you the symbolic information your looking for.
>
>                        {
>                        char    theBlock[LIBICB$K_INVO_CONTEXT_BLK_SIZE];
>                        long *theProgCounterP;
>                                LIB$GET_CURR_INVO_CONTEXT( &theBlock );
>                                theProgCounterP = (long*)&theBlock[16];
>
>
>
>
>                            while(  LIB$GET_PREV_INVO_CONTEXT( &theBlock ) )
>                                {
>                                  theProgCounterP = (long*) &theBlock[16];
>                                  ...
>                                }
>                                ...
>                        }
>
>Hope it helps, Bob Boylan

How about on the VAX???  This still will not get the symbolic information
and plenty of code 'overhead' around your code above will certainly skew
the PC from the area of interest.

--
VAXman- OpenVMS APE certification number: AAA-0001           VAXman@TMESIS.COM

"Now what else is the whole life of mortals but a sort of comedy, in which the
various actors, disguised by various costumes and masks, walk on and play each
one his part, until the manager waves them off the stage?"  -- Erasmus
