OpenXM_contrib2/asir2000/parse/puref.c - diff

Return to puref.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.4, 2001/10/09 01:36:24

version 1.6, 2004/03/11 09:52:56

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/puref.c,v 1.3 2000/08/22 05:04:27 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/puref.c,v 1.5 2003/05/20 06:15:01 noro Exp $

#include "ca.h"

#include "parse.h"

Line 63 void searchpf(char *name,FUNC *fp)

pf = (PF)node->body;

*fp = t = (FUNC)MALLOC(sizeof(struct oFUNC));

t->name = name; t->id = A_PURE; t->argc = pf->argc;

t->f.puref = pf;

t->f.puref = pf; t->fullname = name;

return;

}

*fp = 0;

Line 81 void searchc(char *name,FUNC *fp)

pf = (PF)node->body;

*fp = t = (FUNC)MALLOC(sizeof(struct oFUNC));

t->name = name; t->id = A_PURE; t->argc = pf->argc;

t->f.puref = pf;

t->f.puref = pf; t->fullname = name;

return;

}

*fp = 0;

Line 183 void appendpfins(V v,V *vp)

for ( node = fdef->ins; node; node = NEXT(node) ) {

for ( i = 0, tad = ((PFINS)((V)node->body)->priv)->ad;

i < fdef->argc; i++ )

if ( (ad[i].d != tad[i].d) || compr(CO,ad[i].arg,tad[i].arg) )

if ( (ad[i].d != tad[i].d) || !equalr(CO,ad[i].arg,tad[i].arg) )

break;

if ( i == fdef->argc ) {

*vp = (V)node->body;