1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
|
/*****************************************************************************/
/* */
/* Copyright (c) 1990-2008 Morgan Stanley All rights reserved.*/
/* See .../src/LICENSE for terms of distribution. */
/* */
/* */
/*****************************************************************************/
#include <stdio.h>
#include <a/ik.h>
#include <a/s.h>
#include <a/fncdcls.h>
#include <a/arthur.h>
extern I MY[];
static C *ks_buf[256];
A getRawKstack(void)
{
I n=K-MY;
A z=gv(It,n);
DO(n,z->p[i]=MY[i+1]);
R z;
}
A getSymKstack(void)
{
I n=K-MY;I *zp,i,s;
C **ns=get_primlist(1,1);
A z=gv(Et,n);zp=z->p;
i=1;
while(i<=n)
{
s=MY[i++];
if(0==s){*zp++=(I)aplus_nl;}
else if(s>-9999&&s<6)
{
if(0>s)*zp++=(I)gi(-s);
else *zp++=(I)gvi(Et,1,MS(si(ns[s])));
}
else if(QV(s))
{
*zp++=(I)gvi(Et,2,gsv(0,"file"),gsv(0,(C *)(s&~aplusMask)));
*zp++=(I)gi(-MY[i++]);
}
else if(QS(s))
{
*zp++=(I)gvi(Et,2,gsv(0,"expr"),gsv(0,(C *)(s&~aplusMask)));
}
else
{
A f=(A)s;
sprintf((C *)ks_buf,"%s.%s",((CX)f->p[f->n+2])->s->n,XS(*f->d)->n);
*zp++=(I)gvi(Et,2,gsv(0,"func"),gsv(0,(C *)ks_buf));
}
}
R z;
}
static A lastSavedKstack=0;
static int recurseKstack=0;
void snapshotKstack()
{
extern A sikAsAObj() ;
/* Consider changing signal handlers for segv and bus */
if(recurseKstack==0)
{
recurseKstack=1;
if( lastSavedKstack && QA(lastSavedKstack) )
{
dc(lastSavedKstack);
lastSavedKstack=0;
}
lastSavedKstack=(A)sikAsAObj();
recurseKstack=0;
}
}
A showLastSavedKstack()
{
if(recurseKstack==1)
{
H("\343 Internal Error _doErrorStack\n");
return aplus_nl;
}
if( lastSavedKstack && QA(lastSavedKstack) )
return (A)ic(lastSavedKstack);
else
return aplus_nl;
}
|