version 1.32, 2001/09/17 07:16:58 |
version 1.34, 2001/09/17 10:32:40 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.31 2001/09/17 02:47:07 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.33 2001/09/17 08:37:30 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
#define INLINE |
#define INLINE |
#endif |
#endif |
|
|
#define ITOS(p) (((unsigned int)(p))&0x7fffffff) |
|
#define STOI(i) ((P)((unsigned int)(i)|0x80000000)) |
|
|
|
#define NEXTVL(r,c) \ |
#define NEXTVL(r,c) \ |
if(!(r)){NEWVL(r);(c)=(r);}else{NEWVL(NEXT(c));(c)=NEXT(c);} |
if(!(r)){NEWVL(r);(c)=(r);}else{NEWVL(NEXT(c));(c)=NEXT(c);} |
|
|
|
|
r = (CDP)MALLOC(sizeof(struct oCDP)); |
r = (CDP)MALLOC(sizeof(struct oCDP)); |
r->len = len; |
r->len = len; |
r->psindex = (int)BDY(NEXT(tf)); |
r->psindex = (int)BDY(NEXT(tf)); |
r->body = (unsigned short *)MALLOC_ATOMIC(sizeof(unsigned short)*len); |
r->body = (unsigned int *)MALLOC_ATOMIC(sizeof(unsigned int)*len); |
|
|
NEWDL(s,nv); |
NEWDL_NOINIT(s,nv); |
for ( m = BDY(f), i = j = 0; m; m = NEXT(m), j++ ) { |
for ( m = BDY(f), i = j = 0; m; m = NEXT(m), j++ ) { |
d1 = m->dl; |
d1 = m->dl; |
s->td = t->td+d1->td; |
s->td = t->td+d1->td; |
|
|
mp0 = 0; |
mp0 = 0; |
for ( m = BDY(f); m; m = NEXT(m) ) { |
for ( m = BDY(f); m; m = NEXT(m) ) { |
NEXTNODE(mp0,mp); |
NEXTNODE(mp0,mp); |
NEWDL(t,nv); |
NEWDL_NOINIT(t,nv); |
d1 = m->dl; |
d1 = m->dl; |
t->td = d->td+d1->td; |
t->td = d->td+d1->td; |
for ( i = 0; i < nv; i++ ) |
for ( i = 0; i < nv; i++ ) |