Plan 9 from Bell Labs’s /usr/web/sources/contrib/steve/root/sys/src/c++/cfront/expr3.C

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


/*ident	"@(#)cls4:src/expr3.c	1.38" */
/*******************************************************************************
 
C++ source for the C++ Language System, Release 3.0.  This product
is a new release of the original cfront developed in the computer
science research center of AT&T Bell Laboratories.

Copyright (c) 1993  UNIX System Laboratories, Inc.
Copyright (c) 1991, 1992 AT&T and UNIX System Laboratories, Inc.
Copyright (c) 1984, 1989, 1990 AT&T.  All Rights Reserved.

THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE of AT&T and UNIX System
Laboratories, Inc.  The copyright notice above does not evidence
any actual or intended publication of such source code.

expr3.c:

	type check function calls, casts, and explicit coercions

************************************************************************/

#include "cfront.h"
#include "size.h"
#include "template.h"
#include "overload.h"

static Bits intersectRule(const Block(BlockPname)&, int, Pexpr);
static Bits bestMatch(const Block(Pname)&, int, Ptype);
static Bits best_const(const Block(Pname)&, int, Ptype);
static Pname breakTie(const Block(Pname)&, Bits&, Pexpr, int);
static int pr_dominate(Ptype, Ptype);

static int refd;// initialization routine called by ref_init, do not apply itor
static int no_sti;
static int miFlag;
int no_const;
extern int stat_init;
int ambig;
bit in_return=0;

int pr_dominate(Ptype t1, Ptype t2)
/*
*/
{
	Pname cn1 = t1->is_cl_obj();
	Pname cn2 = t2->is_cl_obj();

	if (cn1==0 || cn2==0) {
		Ptype p1 = t1->is_ptr();
		Ptype p2 = t2->is_ptr();
		if (p1 && p2) {			// pointers
			cn1 = Pptr(p1)->typ->is_cl_obj();
			cn2 = Pptr(p2)->typ->is_cl_obj();
			if (cn1==0 || cn2==0) return 0;
		}
		else {
			p1 = t1->is_ref();
			p2 = t2->is_ref();
			if (p1 && p2) {		// references
				cn1 = Pptr(p1)->typ->is_cl_obj();
				cn2 = Pptr(p2)->typ->is_cl_obj();
				if (cn1==0 || cn2==0) return 0;
			}
			else
				return 0;	// not the same and not classes
		}
	}
	Pclass c1 = Pclass(cn1->tp);
	Pclass c2 = Pclass(cn2->tp);

	if (c1->has_base(c2)) return 1;
	if (c2->has_base(c1)) return 2;
	return 0;
}

Pname Ntmp;
Pname Ntmp_refd;
Pname Ntmp_flag;
extern Pname Ntmp_flag_list;

Pname make_tmp(char c, Ptype t, Ptable tbl)
{
	int dt = 0;
	Pname tn = tbl->t_name;
	Pname cn = t->is_cl_obj();

	if (tn && tn->tp) error('s',"defaultA too complicated");
	if (cn && Pclass(cn->tp)->has_dtor()) dt = 1;
	if (Ntmp == 0 && dt ) Ntmp = cn;

//error('d',"tbl %d cstmt %d %d sti %d",tbl,Cstmt,Cstmt?Cstmt->memtbl:0,sti_tbl);
	if (Cstmt) {	//	make Cstmt into a block
		if (Cstmt->memtbl == 0) Cstmt->memtbl = new table(4,tbl,0);
		tbl = Cstmt->memtbl;
	}
	else if (tbl == gtbl && no_sti == 0) {
		if (sti_tbl == 0) sti_tbl = new table(8,gtbl,0);
		tbl = sti_tbl;
	}

	Pname tmpx = new name(make_name(c));
	tmpx->where = no_where;
	tmpx->tp = t;
	(void) t->tsizeof();
	if ( t->base == COBJ ) {
     		Pclass cl = Pclass(Pbase(t)->b_name->tp);
     		if ( cl->lex_level ) tmpx->lex_level = cl->lex_level;
	}

	TOK scop = ARG;
	if (stat_init && dt) { 
		tmpx->n_sto = STATIC; scop = ARGS; 
	} else if (gtbl == tbl) {
		tmpx->n_sto = STATIC;
	}

	// ARG[S]: no init; ARGS: static dtor
	Pname tmp = tmpx->dcl(tbl,scop); 
	delete tmpx;

	// n_scope == ARGS sets static dtor in simpl2.c
	tmp->n_scope = (scop==ARG) ? FCT : ARGS;
	return tmp;
}

Pexpr init_tmp(Pname tmp, Pexpr init, Ptable tbl)
{
	Pname cn = tmp->tp->is_cl_obj();
	Pname ct = cn ? Pclass(cn->tp)->has_itor() : 0;

	tmp->n_assigned_to = 1;
//error('d',"init_tmp %n ct %n refd %d",tmp,ct,refd);
	if (ct) {	// must initialize
		if (refd) {
//error('d',"'orrible %k",init->e1->base);
			switch (init->e1->base) {	// 'orrible 'ack
			case NAME:
			case REF:
			case DEREF:
				if (init->base == QUEST)
					init = init->address();
				else if (init->e1->tp->is_ptr())
					init = init->e1;
				else
					init = new expr(G_CM,init,init->e1->address());
					
			}
			if (ct->tp->base == OVERLOAD) ct = Pgen(ct->tp)->fct_list->f;	// first fct
			tbl = 0;
			// when tbl==0, call_ctor will not force declaration of ct
			if (ct->n_dcl_printed==0) ct->dcl_print(0);
		}
		return call_ctor(tbl,tmp,ct,init,DOT);
	}

	if (ansi_opt)
		tmp->tp->ansi_const=1;

	Pexpr ass;
	if(init->base == ZERO && tmp->tp->memptr())
		ass = mptr_assign(tmp,init);
	else ass = new expr(ASSIGN,tmp,init); // no ctor: can assign
	ass->tp = tmp->tp;
	return ass;
}

int exact3(Pname nn, Ptype at)
/*
	return 1 if
	match with standard conversions
*/
{
	if (nn == 0) return 0;
	Ptype nt = nn->tp->skiptypedefs();

	if (at == nt) return 1;

	switch (nt->base) {
	case RPTR:
		if (nt->base==RPTR && Pptr(nt)->typ->check(at,COERCE)==0) 
			return 1;
		if (at==zero_type && Pptr(nt)->typ->is_ptr()==0) return 0;
		if (nt->check(at,COERCE)) {
			Pptr pt = at->addrof();
			nt->base = PTR;		// handle derived classes
			if (nt->check(pt,COERCE)) {
				nt->base = RPTR;
				delete pt;
				return 0;
			}
			nt->base = RPTR;
			delete pt;
		}
		break;
	default:
		switch (at->base) {
		default: 
			if (nt->check(at,COERCE)) return 0;
			break;
		case OVERLOAD:
			// the actual argument is an overloaded function
			// we'll try each instance until one matches
			register Plist gl;
			int no_match = 1;

			for (gl = Pgen(at)->fct_list; gl; gl=gl->l) {
				if (nt->check(gl->f->tp,COERCE)==0) {
					no_match = 0;
					break;
				}
			}

			if ( no_match ) return 0;
		} 
	}
	return 1;
}

int exact1(Pname nn, Ptype at)
/*
	return 1 if
	exact match with
		T <-> const T
		X -> X&
		T* -> const T*
		T* -> T*const
	taken into account
*/
{
	if (nn == 0) return 0;
	Ptype nt = nn->tp->skiptypedefs();
	if (at == nt) return 1;
	if (at->base == ZTYPE) at = int_type;

	// if the actual argument is an overloaded function
	// we'll see if any instance matches exactly
	if (at->base == OVERLOAD) {
		register Plist gl;

		for (gl = Pgen(at)->fct_list; gl; gl=gl->l) {
			if (nt->check(gl->f->tp,0)==0) {
				return 1;
			}
		}
		return 0;
	}

	Pptr rt = nt->is_ptr();
	Pptr art = at->is_ptr();

	if (nt->check(at,0)) {
		// handle T <-> const T
		if (const_problem && nt->base != PTR)  return 1;	

		// reject ptmfs of different classes
		if (rt && rt->memof || art && art->memof) return 0;

		rt = nt->is_ref();	//handle X -> X&
		if (rt && (at->check(Pptr(rt)->typ,0)==0 || const_problem))
			return 1;

		if (rt && art) return 0; // ptrs do not match refs

		// handle T* -> const T* and
		// T* -> T*const
		if (rt || (rt = nt->is_ptr())) {
			if (art == 0) art = at->is_ref();
			if (art) {
				if (art->typ->check(rt->typ,0)) {
					if (const_problem && 
					    Pbase(art->typ)->b_const != 1)
						return 1;
				}
				else	// T* -> T*const
					 return 1;
			}
		}
		return 0;
	}
	return 1;
}

int exact2(Pname nn, Ptype at)
/*
	return 1 if
	do integral promotion and float->double on at, then match
*/
{
//error('d',"exact2 nt %t at %t",nn?nn->tp:0,at);
	at = at->skiptypedefs();
	switch (at->base) {
	case EOBJ:
		at = Penum(Pbase(at)->b_name->tp)->e_type;
		break;
	case ZTYPE:
		at = int_type;
		break;
	case CHAR:
	case SHORT:
		at =	(Pbase(at)->b_unsigned && at->tsizeof()==SZ_INT) 
			? 
			uint_type 
			: 
			int_type;
		break;
	case FLOAT:
		at = double_type;
	}

	if (nn == 0) return 0;
	return exact1(nn,at);
}

Pname Ncoerce;
static int ref_cast;
int Nstd;

bit can_coerce(Ptype t1, Ptype t2)
/*	
	return number of possible coercions of t2 into t1,
	Ncoerce holds a coercion function (not constructor), if found
*/
{
	int zz = 0;
	Ncoerce = 0;
	no_const = 0;
	if (t2->base == ANY) return 0;

	if (!t1->check(t2,COERCE))	// see if any std conversions
		return 1;

	//t1 = t1->skiptypedefs();

	if (t1->is_ref()) {
		if (t1->check(t2->skiptypedefs()->addrof(),COERCE) == 0) 
			return 1;

		if (!ref_cast) {		// (T&): no coercions
						// except operator T&()
			Ptype tt1 = Pptr(t1->skiptypedefs())->typ->skiptypedefs();
			int bc;
			if ( tt1->base != PTR && tt1->base != RPTR ) {
     				bc = Pbase(tt1)->b_const;
     				Pbase(tt1)->b_const = 0; 
			}
			int i = can_coerce(tt1,t2);
			if ( tt1->base != PTR && tt1->base != RPTR ) 
     				Pbase(tt1)->b_const = bc;
			if (i) return i;
			zz = 1;
		}
	}

	Pname c1 = t1->is_cl_obj();
	Pname c2 = t2->is_cl_obj();
	int val = 0;
	if (c1 && !ref_cast && !zz) {
		Pclass cl = Pclass(c1->tp);
		if (c2 && same_class(Pclass(c2->tp),cl)) return 1;

                // A more comprehensive test for template classes
		if (c2 && same_class(Pclass(c1->tp), Pclass(c2->tp)))
			 return 1 ;

		/* look for a constructor with one argument
		   or with default for second argument of
		   acceptable type */

		Pname ctor = cl->has_ctor();
		register Pfct f = ctor ? Pfct(ctor->tp) : 0;

		if(f && f->base == FCT) {
			if (f->nargs==1 
			    ||
			    f->nargs > 1 && f->argtype->n_list->n_initializer
			) {
				if (exact3(f->argtype,t2)) {
					val = 1;
				}
			}
		}
		else if (f && f->base == OVERLOAD) {
			register Plist gl;

			for (gl=Pgen(f)->fct_list; gl; gl=gl->l) {
				Pname nn = gl->f;
				Pfct ff = Pfct(nn->tp);

				if (ff->nargs==1 
				    ||
			    	    ff->nargs>1
				    &&
				    ff->argtype->n_list->n_initializer
				) {
					if (exact3(ff->argtype,t2)) {
						val = 1;
						break;
					}
				}
			}
		}
		else if (f) {
			error('i',"cannot_coerce(%k)\n",f->base);
		}
	}

	if (c2) {	
		const int REALLY_EXACT = 6;
		Block(Pname) conv;
		int found = 0;
		Pclass cl = Pclass(c2->tp);
		int best = 0;
		for (Pname ox, on=cl->conv; on; on=ox) {
			ox = on->n_list;
			Pfct f = on->get_fct();
			// const check should be here
			Ptype rt = f->returns;
			Pptr rr = rt->is_ref();
			if (rr && !t1->is_ref()) rt = rr->typ;
			Nstd = 0;
			int howgood = 0;
 			if (t1->check(rt,0) == 0) {
				howgood = REALLY_EXACT;
			}
 			else if (t1->check(rt,COERCE)==0) {
				if (!Nstd) howgood = EXACT;
				else {
					Pname t_nn = new name;
					t_nn->tp = t1->skiptypedefs();
					if(exact2(t_nn,rt)) howgood = PROM;
					else howgood = STD;
				}
			}
			// this check here for the sake of an error message
			if(t2->tconst() && f->f_const==0) {
				if(howgood) no_const++;
				continue;
			}
			if(howgood == 0 || howgood < best) continue;
			if(howgood > best) { found = 0; best = howgood; }
			conv.size(found+1);
			conv[found++] = on;
		}
		if (found) {
			if(found == 1) Ncoerce = conv[0];
			else {
				Bits b = best_conv(conv,found,t1->tconst());
				Ncoerce = conv[b.signif() - 1];
			}
			val = val + found;
		}
	}
	if (val) return val;
	if (c1 && Pclass(c1->tp)->has_itor()) return 0;
	if (t1->check(t2,COERCE)) return 0;
	return 1;
}

int matchable(Pname n, Pexpr arg, int constObj)
/*
	look to see if the argument list "arg" can match a call of "n"
	return worst kind of conversion done or NONE
*/
{
	Pfct f = n->fct_type();
	register Pexpr e;
	register Pname nn;
	int worst = EXACT; 	//for compatibilty

	if (n->is_template_fct()) return 0;

	if(constObj && n->n_oper!=CTOR && !f->f_const && !f->f_static) {
		non_const++;
		return NONE;
	}

	for(e=arg, nn=f->argtype; e; e=e->e2, nn=nn->n_list) {
		if (nn == 0) return f->nargs_known==ELLIPSIS;
		Pexpr a = e->e1;
		Ptype at = a->tp;
		if (at->base==ANY) return NONE;
		if (exact1(nn,at)) {worst=min(worst,EXACT);continue;}
		if (exact2(nn,at)) {worst=min(worst,PROM);continue;}
		if (exact3(nn,at)) {worst=min(worst,STD);continue;}
		int cc = can_coerce(nn->tp,at);
		if (cc != 1) return NONE;
		else worst=UDC;
	}
	if (nn && nn->n_initializer==0) return NONE;
	return min(worst,EXACT);
}

int is_arg;

Ptype expr::call_fct(Ptable tbl)
/*
	check "this" call:
		 e1(e2)
	e1->typ() and e2->typ() has been done
*/
{
	Pfct f;
	Pname fn;
	int x;
	int k;
	Pname nn;
	Pexpr e;
	Ptype t;
	Pexpr arg = e2;
	Ptype t1 = e1?e1->tp:0;
	ambig = 0;
	int argno;
	Pexpr etail = 0;
	bit no_change = 0;
	Pname no_virt = 0;	// set if explicit qualifier was used: c::f()
	Pname chk = 0;		// set if visibility check is needed
				// that is if function name might have been
				// found without use of find_name()
	int const_obj = 0;

	if (t1 == any_type) return any_type;

	switch (base) {
	case CALL:
	case G_CALL:	break;
	default:	error('i',"call_fct(%k)",base);
	}

//error('d',"call %d %k %n arg %d",this,e1->base,e1->base==NAME?e1:0,arg);
	if (t1 == 0) error('i',"call_fct(e1=%d,e1->tp=%t)",e1,t1);
	if (arg && arg->base!=ELIST) error('i',"badAL%d%k",arg,arg->base);

	switch (e1->base) {
	case DTOR: // dummy type destructor
		fn = Pname(e1);
		break;
	case NAME:
		fn = Pname(e1);
		switch (fn->n_oper) {
		case 0:
		case CTOR:
		case DTOR:
		case TYPE:
		case NEW:
		case DELETE:
			break;
		default:	// real operator: check for operator+(1,2);
			{
			if (arg == 0) break;
			Pexpr a = arg->e1;	// first operand

			if (Pfct(fn->tp)->memof	// obj.operator(1) is OK
			|| a->tp->is_cl_obj()
			|| a->tp->is_ref()) break;
			a = arg->e2;
			if (a == 0)		// unary
				error("%k of basicT",fn->n_oper);
			else {			// binary
				a = a->e1;	// second operand
				if (a->tp->is_cl_obj() || a->tp->is_ref()) break;
				error("%k of basicTs",fn->n_oper);
			}
			break;
			}
		}
		break;
	case REF:
	case DOT:
		no_virt = Pname(e1->n_initializer);
		e1->n_initializer = 0;
		if (e1 && e1->e1) {
			Ptype t = e1->e1->tp;
			Pptr tt = t->is_ref();
			t = tt ? tt->typ : t;
			Pptr p_t = t->is_ptr();
			t = e1->base==REF && p_t ? p_t->typ : t;
			tt = t->is_ref();
			t = tt ? tt->typ : t;
			const_obj = t->tconst() ;// ? 1 : e1->e1->is_const_obj();
		}
	case MDOT:
	{	Pexpr n = e1->mem;
	lxlx:
		switch (n->base) {
		case MDOT:
			// reverse mdot (see expr::print())
			//	p->a.b()  => (&p->a)->b() => b(&p->a)
			// or	p->a->b() => (p->a)->b()  => b(p->a)
			// or	oo.a.b()  => (&oo.a)->b() => b(&oo.a)
			// or	oo.a->b() => (oo.a)->b()  => b(oo.a)
		{	
			Pexpr r = e1;
			Pexpr p = r->e1;
			for (Pexpr m = r->mem; m->base==MDOT; m = r->mem) {
				p = new mdot(m->string2,p);
				p->i1 = m->i1+2;
				if (p->mem && Pexpr(p->mem) != Pexpr(1))
					p->tp = p->mem->tp;
				r->mem = m->mem;
				r->e1 = p;
			}
		}
		case REF:
		case DOT:
			n = n->mem;
			goto lxlx;
		case NAME:
		case DTOR:
			break;
		default:
			error('i',"ref %k",n->base);
		}
		fn = Pname(n);
		break;
	}
	case MEMPTR:
	default:
		fn = 0;
	}

lll:
//error('d',"lll: %t %k",t1,t1->base);
	switch (t1->base) {
	case TYPE:
		t1 = Pbase(t1)->b_name->tp;
		goto lll;

	case PTR:	// pf() allowed as shorthand for (*pf)()
		switch (Pptr(t1)->typ->skiptypedefs()->base) {
		case FCT:
		case OVERLOAD:
			if (Pptr(t1)->memof) error("O missing in call throughP toMF");
			t1 = Pptr(t1)->typ;
			fn = 0;
			goto lll;
		}

	default:
		if (fn)
			error("call of%n;%n is a%t",fn,fn,e1->tp);
		else
			error("call of%kE ofT%t",e1->base,e1->tp);

	case ANY:
		return any_type;
	
	case OVERLOAD:
	{
		Pgen g = Pgen(t1);
		Pname found = 0;

		// look for an exact match
		found = g->exactMatch(arg,const_obj);

		// code for calls with template versions 
		if(!found && arg && g->has_templ()) {
			found = has_templ_instance(fn,arg);
		}

		// one argument in call: no need for intersect rule 
		if (!found && arg && arg->e2 == 0) {
			found = g->oneArgMatch(arg,const_obj);
		}

		// multiple arguments in call: potential need for 
		// intersect rule and simple rule
		else if (!found && arg) {
			found = g->multArgMatch(arg,const_obj);
		}

		// no functions are matchable
		if (!found) {
			Block(Pname) tmp(1);
			tmp[0] = fn;
			fmError(0,tmp,arg,const_obj);
			return any_type;
		}

		overFound = chk = fn = found;
		f = fn->fct_type();
		break;
	}

        case FCT:
                f = Pfct(t1);
                if (fn) {
                        if (fn->is_template_fct()) {
                                Pname f_inst = has_templ_instance(fn,arg); 
                                if (f_inst) {
                                        e1 = f_inst; fn = f_inst;
                                        t1 = f_inst->tp; f = Pfct(f_inst->tp);
                                }
                        }
                        else
                                switch (fn->n_oper) {
                                case CTOR:
                                case TYPE:
                                        chk = fn;
                                }
                }
        }

	if (chk) {
		Ptype t = 0;
		Pexpr ee = e1->e1;

		switch (e1->base) {
		case REF:	// ptr->chk()
			if (ee == 0) {	// 0->x() fudge handling new x()
				check_visibility(chk,no_virt,Pclass(chk->n_table->t_name->tp),tbl,cc->nof);
				break;
			};
			t = ee->tp->skiptypedefs();
			t = Pptr(t)->typ;
			break;
		case DOT:	// obj.chk()
			t = ee->tp;
		}

		Pname cn = t?t->is_cl_obj():0;
		Pclass cl = cn?Pclass(cn->tp):0; // class of ``this'' for chk

		if (cl) {
			if (chk->n_oper==CTOR
				&& chk->n_protect
				&& cc->nof
				&& cc->nof->n_oper==CTOR)
					// BUG: cannot handle protected base
					// class constructor
				;
			else {
				check_visibility(chk,no_virt,cl,tbl,cc->nof);
			}
		}
	}

	if (fn && f->returns->is_cl_obj() && f->f_result==0) {
		// protect against class cn; cn f(); ... class cn { cn(cn&); ... };
		make_res(f);
		f->returns->tsizeof();	// make sure it is declared
	}

//error('d',"fn %n %t printed %d",fn,fn?fn->tp:0,fn?fn->n_dcl_printed:0);
	if (fn) {
		// ensure printout of class declaration:
		for (Pname nn=f->argtype; nn; nn=nn->n_list)
			if (nn->tp->is_cl_obj()) (void) nn->tp->tsizeof();
	}

	if (fn && fn->n_dcl_printed==0) {
		if (f->f_inline==0 && f->f_imeasure) {
			extern void uninline(Pname fn);
			uninline(fn);
		}

//		// ensure printout of class declaration:
//		for (Pname nn=f->argtype; nn; nn=nn->n_list)
//			if (nn->tp->is_cl_obj()) (void) nn->tp->tsizeof();

		fn->dcl_print(0);
	}

	if (no_virt && f->f_static==0) {
		if (e1->base==REF || e1->base==DOT) e1->n_initializer = fn;
	}
	else
		fct_name = fn;
//error('d',"fn %n %t %d %d",fn,f,f->f_this,f->f_static);
	if (f->f_this) {	//SSS call of non-static memberfunction
		switch (e1->base) {
		case MEMPTR:
		case REF:
		case DOT:
			break;
		default:
			error("O orP missing for%n ofT %t",fct_name,f);
		}
	}
	else if (fn) {	//SSS call of static function
	sss:
		switch (e1->base) {
		case REF:
		case DOT:
		case MDOT:
			e1 = e1->mem;
			goto sss;
		}
	}

	if (fn) fn->use();	// a patch: ctors are sometimes not use()d

	if (f->f_const==0 && e1->tp && !e1->tp->is_ptr()
	&& (fn==0 || (fn->n_oper!=CTOR && fn->n_oper!=DTOR))) {	//CCC
		switch (e1->base) {
		case REF:
		{	Pptr p = e1->e1->tp?e1->e1->tp->is_ptr():0;
			if (p && p->typ->tconst())
				error("non-constMF%n called for constO",fn);
			break;
		}
		case DOT:
		{
			int tc = e1->e1->tp ? e1->e1->tp->tconst() : 0;
			if (e1->tp && tc && (!strict_opt || tc!=2))
				error("non-constMF%n called for constO",fn);
			break;
		}
		case MEMPTR:
		{
			Pptr p = e1->e1->tp?e1->e1->tp->is_ptr():0;
			if (p && p->typ->tconst())
				error("non-constMF called for constO");
			break;
		}
		}
	}

	t = f->returns;
	x = f->nargs;
	k = f->nargs_known;

	e = arg;
	if (k == 0) goto rlab;

	for (nn=f->argtype, argno=1; e||nn; nn=nn->n_list, e=etail->e2, argno++) {
		Pexpr a;
		int save_base = 0;
		char* save_name = 0;
		bit mpt = (nn && nn->tp && nn->tp->skiptypedefs()->memptr());

		if (e) {
			a = e->e1;
			etail = e;

			if (nn) {	/* type check */
				Ptype t1 = nn->tp->skiptypedefs();
//error('d',"argtp %t etp %t a %k",t1,a->tp,a->base);

				switch (t1->base) {
				case RPTR:
				{	
					Ptype pt = Pptr(t1)->typ;
					if (pt->skiptypedefs()->base==VEC ) {
					   if (pt->check(a->tp,IGNORE_CONST)) {
						error("badA %dT for%n:%t (%tX)",argno,fn,a->tp,nn->tp);
						return any_type;
					   };
					}
					if (pt->base != FCT 
					    ||
					    pt->check(a->tp,0)
					) {
					    is_arg = 1;
					    a = ref_init(Pptr(nn->tp),a,tbl);
					    is_arg = 0;
					}
					goto cbcb;
				}
				case COBJ:
					if (a->base!=G_CM
					|| nn->tp->check(a->tp,ASSIGN))
						a = class_init(0,t1,a,tbl);
					else if (a->e2->tp!=nn->tp)
						a->e2=class_init(0,t1,a->e2,tbl);
					if (nn->n_xref) {
						// (temp.ctor(arg),&arg)
						a = a->address();
					}
					else {
						// defend against:
						//	int f(X); ... X(X&);
						Pname cln = Pbase(t1)->b_name;	
						if (cln && Pclass(cln->tp)->has_itor()) {
							// mark X(X&) arguments
							nn->n_xref = 1;
							a = a->address();
						}
					}
	cbcb:
//error('d',"cbcb: a %d %k %t",a->base,a->base,a->tp);
		if (a->base==G_CM) {
			if (a->e1->base==DEREF) a->e1 = a->e1->e2; // (*e1,e2) => (e1,e2)
			if (a->e1->base==G_CALL
			&& Pname(a->e1->fct_name)
			&& Pname(a->e1->fct_name)->n_oper==CTOR
			&& (a->e2->base==G_ADDROF || a->e2->base==ADDROF)) {
				a = a->e1;	// (ctor(&tmp),&tmp) => ctor(&tmp)
				goto cccc;
			}
			else if (a->e2->base==G_ADDROF
			&& a->e2->e2->base==NAME)  {
			cccc:
			    if (t1->base==RPTR && Pptr(t1)->typ->tconst()==0) {
				if (strict_opt)
				    error("temporary used for non-const%tA",nn->tp);
				else
				    error('w',"temporary used for non-const%tA; no changes will be propagated to actual argument (anachronism)",nn->tp);
			    }
			}
		}
					e->e1 = a;
					break;
				case ANY:
					goto rlab;
				case PTR:
				{
					save_base = e->e1->base;
					if(a->tp->base==OVERLOAD)
						save_name = Pgen(a->tp)->fct_list->f->string;
					Pexpr te_a = a;
					e->e1 = a = ptr_init(Pptr(t1),a,tbl);
					no_change = (te_a == a);
					if (Pchecked == 0) goto def;
					break;
				}
				case CHAR:
				case SHORT:
				case INT:
				{	Ptype t = a->tp->skiptypedefs();
					switch (t->base) {
					case LONG:
					case FLOAT:
					case DOUBLE:
					case LDOUBLE:
					    if(!ambig)
						error('w',"A%d: %t passed as %t",argno,a->tp,t1);
					}
				}
					// no break
				case LONG:
					if (Pbase(t1)->b_unsigned
					&& a->base==UMINUS
					&& a->e2->base==ICON)
						error('w',"negativeA for%n, unsignedX",fn);
				default:
				def:
				{	Pexpr x = try_to_coerce(t1,a,"argument",tbl);
					int ct = no_const;
//error('d',"x %d t1 %t nn %t a1 %t",x,t1,nn->tp,a->tp);
					if (x) {
 						if (t1->is_ptr() && Pchecked == 0 && no_change) {
							Pexpr te_x = ptr_init(Pptr(t1), x, tbl);

							if ( te_x != x ) e->e1 = a = te_x; else e->e1=x;
						}
						else
							e->e1 = x;
					}
					else if (nn->tp->check(a->tp,ARG)) {
						error('e',"badA %dT for%n:%t (%tX)",argno,fn,a->tp,nn->tp);
						if (ct) error('c'," (no usable const conversion)\n");
						else error('c',"\n");
						return any_type;
					}
				}
				}

                                Pexpr tt = e->e1;
                                while ( tt->base == CAST || tt->base == G_CAST )
                                        tt = tt->e1;
                                if ( tt->base == ILIST )
                                        e->e1 = tt;

                                if (e->e1->base == ILIST) {
                                        // memptr constant
                                        // f({1,2,f}) ==> memptr t; f((t={1,2,f},t))
					if(save_base == REF) {
						Pptr m = Pptr(a->tp);
						error(
						"address of boundF (try using ``%s::*'' forPT and ``&%s::%s'' for address)",
						m->memof->string,
						m->memof->string,
						save_name
						);
					}
					if (mpt) {
	                                        Pname temp = make_tmp('A',mptr_type,tbl);
       	                                	e->e1 = mptr_assign(temp,e->e1);
                                        	e->e1 = a = new expr(G_CM,e->e1,temp);
                                        	a->tp = temp->tp;
					}
					else {
						Ptype t = e->e1->e1->e1->tp;
						e->e1 = e->e1->e1->e1;
						a->tp = e->e1->tp = t;
					}
                                }

			}
			else {
				if (k != ELLIPSIS) {
					error("unexpected %dA for%n",argno,fn);
					return any_type;
				}
				if (!a->tp->skiptypedefs()->check(void_type, 0))
					error("badA %dT for%n:%t",argno,fn,a->tp);
				Pexpr te=e;
				while(e) {
					if (e->tp)
						e->tp->tsizeof();
                                	if (e->e1->base == ILIST) {
                                        	// memptr constant
                                        	// f({1,2,f}) ==> memptr t; f((t={1,2,f},t))
                                        	Pname temp = make_tmp('A',mptr_type,tbl);
                                        	e->e1 = mptr_assign(temp,e->e1);
                                        	e->e1 = a = new expr(G_CM,e->e1,temp);
                                        	a->tp = temp->tp;
                                	}
					e = e->e2;
				}
				e = te;
				goto rlab;
			}
		}
		else {	/* default argument? */
			a = nn->n_initializer;
			if (a == 0) {
				if (fn == 0)
				    error("A %d ofT%tX for call",argno,nn->tp);
				else
				    error("A %d ofT%tX for%n",argno,nn->tp,fn);
				return any_type;
			}
                        if (a->base == ILIST ||
			    ((a->base == CAST || a->base == G_CAST) && a->e1->base == ILIST)) {
                                // memptr constant
                                // f({1,2,f}) ==> memptr t; f((t={1,2,f},t))
                                Pname temp = make_tmp('A',mptr_type,tbl);
				if (a->base != ILIST)
					a = a->e1;
                                a = mptr_assign(temp,a);
                                a = new expr(G_CM,a,temp);
                                a->tp = temp->tp;
                        }
			a->permanent = 2;	// ought not be necessary, but it is
			e = new expr(ELIST,a,0);
			if (etail)
				etail->e2 = e;
			else
				e2 = e;
			etail = e;
		}
	}

rlab:
//error('d',"rlab fct_name %n %t",fct_name,fct_name?fct_name->tp:0);
	for (; e; e = e->e2) {	// unchecked arguments
		Pexpr a = e->e1;
		Pname cn;

		if (a->base==NAME && a->tp->base==FCT) {
			// function name that escaped the type system:
			// update use count
			a->lval(ADDROF);
		}
		else if (warning_opt && (cn = a->tp->is_cl_obj())) {
			Pclass cl = Pclass(cn->tp);
			if (cl->has_ctor() || cl->memtbl->look("__as",0))//cl->has_oper(ASSIGN)
			{
				if (fct_name)
				error('w',"O ofC%t withK or = copied asA to%n (%t)",cl,fct_name,fct_name->tp);
				else
				error('w',"O ofC%t withK or = copied asA to `...'",cl);
			}
		}
		else if (a->tp->is_ref())
			e->e1 = a->contents();
	}

	if (f->f_result) {		// f(args) => (f(&temp,args),temp)
		Pname oldNtmp = Ntmp; 
		Ntmp = 0;  // set in make_tmp if tn has associated dtor
		Pname tn = make_tmp('R',f->returns,tbl);

		extern bit in_quest;
		if (Ntmp) {
                	if (Ntmp_refd && in_quest) {
			 	tn->n_list = Ntmp_refd;	
                        	Ntmp_refd = tn;
			}
                	else Ntmp_refd = tn;
		}

		// better might be: if (Ntmp == 0 && oldNtmp)
		// but this mimics the old behavior ...
                if (oldNtmp) Ntmp = oldNtmp;

                if (Ntmp_refd && in_quest) {
                        Ntmp_flag = make_tmp('Q',int_type,tbl);
                        Ntmp_flag->n_initializer = new ival(0L);
                        Ntmp_flag->assign();
                        if (Ntmp_flag_list && in_quest) {
				Ntmp_flag->n_list = Ntmp_flag_list;
                                Ntmp_flag_list = Ntmp_flag;
			}
                        else Ntmp_flag_list = Ntmp_flag;
                }

		e2 = new expr(ELIST,tn->address(),e2);
		Pexpr ee = new expr(0,0,0);
		*ee = *this;
		base = G_CM;		// (f(&temp,args),temp)
		e1 = ee;
		if (refd == 2)
			e2 = tn->address();
		else e2 = tn;
		tp = tn->tp;
	}

	return t;
}

Pexpr ref_init(Pptr p, Pexpr init, Ptable tbl)
/*
	initialize the "p" with the "init"
	remember to call ptr_init to ensure that pointers to second bases
	are handled correctly.
*/
{
	register Ptype it = init->tp->skiptypedefs();
	Pptr px = Pptr(p->skiptypedefs());
	Ptype p1 = px->typ;
	Pname c1 = p1->is_cl_obj();
// error('d',"ref_init: p %t, p1 %t, px %t, init->tp %t",p,p1,px,it);
// error('d', "ref_init: nof: %n f_const: %d", cc?cc->nof:0, cc?(cc->nof?Pfct(cc->nof->tp)->f_const:0):0);

	if (init->base == ILIST) error("IrL as RIr");

	if (init->base==NAME
	&& Pname(init)->n_scope==ARG
	&& init->tp->base==FLOAT)
		error('w',"initializing a float& with floatA is non-portable");

	Ptype tt = it->addrof();
	px->base = PTR;	// allow &x for y& when y : public x
			// but not &char for int&
	int x = px->check(tt,COERCE);

	if (x == 0) {	//CCC type is fine check for constness:
		if (init->tp->tconst()
		    && vec_const==0
		    && fct_const==0) {
			// not ``it''
			if (init->base == ELIST) init = init->e1;
			if (px->typ->tconst() == 0) 
				if (cc->nof && in_return)
					error("cannot return a reference to a non-constO from const member function %n",cc->nof); 
				else error("R to constO");
			px->base = RPTR;
			// if we have a const lvalue we can still pass its address
			ignore_const++;
			if (init->lval(0)) {
				init->lval(ADDROF); // force output
				ignore_const--;
//error('d',"in1 %t",init->tp);
				return ptr_init(px,init->address(),tbl);//return init->address();
			}
			ignore_const--;
			goto xxx;
		}
		px->base = RPTR;
                if (init->lval(0)) {	// can pass the address							// no temporary needed 
			init->lval(ADDROF); // force output
//error('d',"px %t init %t ",px,init->tp);
                        {  Pname name_in_deref =0;
                           Pexpr act_param=0, ret_exp=0;
                           if ((init->base == DEREF) &&
                               (init->e1 && (init->e1->base == NAME))
                              ) {
                              name_in_deref = Pname(init->e1);
                           };

                           if (name_in_deref		&&
                               (name_in_deref->n_xref   	&&
                                name_in_deref->n_scope == ARG)
                              ) {

				//"n_xref" is set when a formal class object
				//is treated as a pointer object, in Print phase

				//let us make it as a pointer expression, so
				//ptr_init logic works correctly (generates
                                //valid MDOT expression when necessary).
                                //But have to watch out while printing "mem"
                                //of MDOT expression in expr::print (print.c).

			      if (init->e1->tp) {
                              act_param = new expr (G_ADDROF, 0, init->e1);
                              act_param->tp  = init->e1->tp->addrof(); 
//error('d',"px %t act_param %t ",px,act_param->tp);
                              ret_exp = ptr_init(px, act_param, tbl);
		  	      } else {
			   	error ("i", "No type for actual param %n",
				 	name_in_deref);
                              }
                           } else {
                           ret_exp = ptr_init(px, init->address(),tbl);
			   };
                           return ret_exp;
                        };
		}
		goto xxx;
	}

	px->base = RPTR;

//error('d',"c1 %n",c1);

	if (c1) {	// assigning to a const X & is fine
		ref_cast++;
		Pexpr x = try_to_coerce(p,init,"reference initialization",tbl);
		ref_cast--;
		if (x) {
			init = x;
			goto xxx;
		}
		if (init->tp->tconst() && !vec_const && !p1->tconst()) {
			error("R to constO");
			return init;
		}
		switch ( init->base ) {
			case STRING: case ZERO: case CCON:
			case ICON: case FCON: case IVAL:
			case NAME:
				refd = 1; 
				break;
			default:
				refd = (init->e1 && init->e1->base == NAME && 
					init->e1->tp->base != RPTR &&
					Pname(init->e1)->n_xref == 0) ? 2: 1;
				break;
		}
// error('d', "***** refd: %d", refd );
		Pexpr a = class_init(0,p1,init,tbl);
		refd = 0;
		if (a==init && init->tp!=any_type) goto xxx;
// error('d',"ri a %d %k",a->base,a->base);
		switch (a->base) {
		case G_CALL:
			init = a;
			goto xxx;
		}
		switch (init->base) {
		case CM:
		case G_CM:
			break;
		case NAME:
		case DEREF:
		case REF:
		case DOT:
			if ((it->tconst()==0 || vec_const)
		    	    &&
		    	    (fct_const==0 || p1->is_ptr()==0)
			) 
				break;
		default:
			if (p1 && p1->b_const==0) {
		    	    if (tbl == gtbl || (strict_opt && !is_arg)) 
				error("Ir for%snon-constR not an lvalue", strict_opt?"":" global ");
		    	    else if(!is_arg)
				error('w',"Ir for non-constR not an lvalue (anachronism)");
			}
		}
		a = a->address();
		a =  ptr_init(px,a,tbl);
		return a;
	}

//error('d',"p1 %t it %t",p1,it);
	if (p1->check(it,0)) {

		if (p1->check(it,ASSIGN) == 0) {
			goto def;
		}

		Pexpr x = try_to_coerce(p1,init,"reference",tbl);     // x==init
		if (x==0) 
			x = try_to_coerce(px,init,"reference",tbl); // x&=init
		if (x) {
			init = x;
			goto def;
		}
		int nc = no_const;

		Pptr p1_ptr = p1->is_ptr();

		if (p1_ptr && p1_ptr->typ->skiptypedefs()->base == FCT
		    &&
		    it->is_or_pts_to(OVERLOAD)
		) {
			Pexpr op = ptof(
				Pfct(p1_ptr->typ->skiptypedefs()),
				init,
				tbl
			);
			if(op) {init = op; goto def; }
		}

		error('e',"badIrT:%t (%tX)",it,p);
		if (nc) error('c'," (no usable const conversion)\n");
		else error('c',"\n");
		if (init->base != NAME) init->tp = any_type;
		return init;
	}
	
xxx:	/*
		here comes the test of a ``fundamental theorem'':
		a structure valued expression is
			(1) an lvalue of type T (possibly const)
		or	(2) the result of a function (a _result if X(X&) is defined)
		or	(3) a * or [] or ? or , expression
	*/
//error('d',"xxx %k %d %t",init->base,init->base,init->tp);

	switch (init->base) {
	case NAME:
	case DEREF:
	case REF:
	case DOT:			// init => &init
		{
			bit it_isconst = it->tconst();
			bit vec_const_save = vec_const;
			bit fct_const_save = fct_const;

			if (	(init->base==NAME && Pname(init)->n_stclass==ENUM)
				||
				it_isconst
				&&
				Pbase(p->typ) && !Pbase(p->typ)->tconst()
				&&
				vec_const_save==0 && fct_const_save==0
			) {
				goto def;
			}
			init->lval(ADDROF);

			if (vec_const_save) return init;
			if (fct_const_save && p1->is_ptr()) goto def;	// fptr& = fct
		}
		// no break
	case CM:
	case G_CM:			// & (f(&temp), temp)
		return ptr_init(px,init->address(),tbl);//init->address();
	default:
	def:
	{
// error('d',"def: init->tp %t p1 %t ",init->tp,p1);	
		if (p1 && p1->b_const==0) {
			if (tbl == gtbl || (strict_opt && !is_arg)) 
				error("Ir for%snon-constR not an lvalue", strict_opt?"":" global ");
			else if(!is_arg)
				error('w',"Ir for non-constR not an lvalue (anachronism)");
		}

                Pname tcl = p1->is_cl_obj ();
                if(tcl && Pclass(tcl->tp)->c_abstract) {
                       error("a temporary is needed for a parameter, but the AT is abstractC %t.", tcl->tp);
		       error('C',"%a is a pure virtualF ofC%t",Pclass(tcl->tp)->c_abstract,tcl->tp);
		}

		no_sti=1;
		Pname n = make_tmp('I', unconst_type(p1), tbl);
		no_sti=0;
		n->assign();
		if (tbl == gtbl) n->dcl_print(0);	// a hack
		Pexpr a = 0;
		Pname ic = init->tp->is_cl_obj();

		switch (p1->base) {
		case INT:
		case CHAR:
		case SHORT:
			switch (it->base) {
			case LONG:
			case FLOAT:
			case DOUBLE:
			case LDOUBLE:
				error('w',"%t assigned to %t inRIr",it,p1);
			}
		}

		if (ic && c1 && ic!=c1 && !same_class(Pclass(ic->tp),Pclass(c1->tp))) {
			// derived class1 => must cast: ``it Ix; (Ix=init,(p)&Ix);''
			n->tp = init->tp;
			a = ptr_init(px,n->address(),tbl);//n->address();
			PERM(p);
			a = new texpr(G_CAST,p,a);
			a->tp = p;
		} else if (!ic && !c1 && init->tp->is_ptr() && p1->is_ptr()) {
			Pname icx = (Pptr(init->tp->skiptypedefs()))->typ->is_cl_obj();
			Pname c1x = (Pptr(p1->skiptypedefs()))->typ->is_cl_obj();
			if (icx && c1x && icx!=c1x && !same_class(Pclass(icx->tp),Pclass(c1x->tp))) {
				// Base*const& = Derived*
				init = ptr_init(Pptr(p1->skiptypedefs()),init,tbl);
			}
		}
		if (!a)
			a = n->address();

		refd = 1;
		Pexpr as;
		if (init->tp->memptr()
		    ||
		    init->tp->base == FCT && Pfct(init->tp)->memof
		) {
			Ptype pit = p->typ->skiptypedefs();
			as = mptr_assign(n,ptof(Pfct(pit),init,tbl));
		}
		else {
			as = init_tmp(n,init,tbl);
		}
		refd = 0;
		a = new expr(G_CM,as,a);
		a->tp = a->e2->tp;
		return a;
	}
	}
}

Pexpr class_init(Pexpr nn, Ptype tt, Pexpr init, Ptable tbl)
/*
	initialize "nn" of type "tt" with "init"
	if nn==0 make a temporary,
	nn may not be a name
*/
{	
	if (init == dummy) return 0;
//error('d',"class_init %t with %t init %k refd %d",tt,init->tp,init->base,refd);
	Pname c1 = tt->is_cl_obj();

        if (init == 0) {
                error("emptyIr");
                return dummy;
        }

	if (c1) {
		Pclass cl = Pclass(c1->tp);
		Pname c2 = init->tp->is_cl_obj();


		if ((c1!=c2 && (c2 == 0 || same_class(cl,Pclass(c2->tp),1) == 0))
		     || (refd==0 && cl->has_itor())) 
		{ // really ought to make a temp if refd, 
		  // but ref_init can do that

			int i = can_coerce(tt,init->tp);
//error('d',"i %d nn %n",i,nn);
			switch (i) {
			default:
				error("%d ways of making a%n from a%t",i,c1,init->tp);
				init->tp = any_type;
				return init;
			case 0:
				if (c2 && Pclass(c2->tp)->has_base(cl)) {
					init = init->address();
					Pexpr x = cast_cptr(cl,init,tbl,0);

					if (x == init) {
						Ptype pt = tt->addrof();
						PERM(pt);
						x = new cast(pt,init);
					}

					return x->contents();
				}
				error("cannot make a%t from a%t",cl,init->tp);
				init->tp = any_type;
				return init;
			case 1:
//error('d',"ncoerce %n %k %d",Ncoerce,init->base,init->base);
				if (Ncoerce == 0) {
					Pexpr a = new expr(ELIST,init,0);
					a = new texpr(VALUE,tt->skiptypedefs(),a);
					a->e2 = nn;
					a = a->typ(tbl);
//error('d',"ci a %k %d %t",a->base,a->base,a->tp);
					return a;
				}

				switch (init->base) {
				case CM:
				case G_CM:	//ddd
				case NAME:	/* init.coerce() */
	/* *ref */		case DEREF:
				{
					Pref r = new ref(DOT,init,new name(Ncoerce->string));
					Pexpr rr = r->typ(tbl);
					init = new expr(G_CALL,rr,0);
					break;
				}
				default:	// (temp=init,temp.coerce())
				{	Pname tmp = make_tmp('U',init->tp,tbl); 
					int x = refd;	
					refd = 0;	// ??
					Pexpr ass = init_tmp(tmp,init,tbl);
					refd = x;
					Pref r = new ref(DOT,tmp,new name(Ncoerce->string));
					Pexpr rr = r->typ(tbl);
					Pexpr c = new expr(G_CALL,rr,0);
					c = c->typ(tbl);
					init = new expr(CM,ass,c);
					init->tp = c->tp;
					if (refd) {	// &f() => (t=f(), &t)
						Pname tmp2 = make_tmp('L',c->tp,tbl); 
						ass = init_tmp(tmp2,init,tbl);
						init = new expr(G_CM,ass,tmp2);
					}
				}
				}
//error('d',"nn %n",nn);
				if (nn) {
					Pexpr a = new expr(ELIST,init,0);
					a = new texpr(VALUE,tt->skiptypedefs(),a);
					a->e2 = nn;
					return a->typ(tbl);
				}
			}
//error('d',"c1 %n c2 %n",c1,c2);
			return init->typ(tbl);
		}
		return init;
	}
//error('d',"ci check tt %t init->tp %t",tt,init->tp);
	if (tt->check(init->tp,ASSIGN) && refd==0) {
		error("badIrT:%t (%tX)",init->tp,tt);
		init->tp = any_type;
	}

	return init;
}

extern int bound;	// fudge for bound pointers to functions

Pexpr expr::docast(Ptable tbl)
{	
	// check cast against value, INCOMPLETE

//error('d',"docast %d %t %k",this,tp2,e1->base);
	if (e1 == dummy) {
		error("E missing for cast");
		tp = any_type;
		return this;
	}

	int pmf = 0;
	int ptom_cast = 0;
	int noconst = 0;
	Pexpr ee = e1;

//error('d',"ee %k %d",ee->base,ee->base);
	switch (ee->base) {
	case ADDROF:
		ee = ee->e2;
		switch (ee->base) {
		case NAME:	goto nm;
		case REF:	goto rf;
		}
		break;

	case NAME:
	nm:
		if (Pname(ee)->n_qualifier) pmf = 1;
		break;
		
	case REF:
	rf:
		if (ee->e1->base == THIS) bound = 1;
		break;
	}

	e1 = e1->typ(tbl);

	int b = bound;	// distinguish between explicit and implicit THIS
	bound = 0;
	//pmf = pmf && e1->base==CAST;
	pmf = pmf && ((e1->base==CAST || e1->base==G_CAST) || e1->base==ILIST);

	Ptype etp = e1->tp->skiptypedefs();
	Ptype tt = tp2;
	Ptype t = tt;
	tt->dcl(tbl);

	tt = tt->skiptypedefs();
	
//error('d',"e1 %k etp %t tt %t",e1->base,etp,tt);
	bit isptm = 0;
	switch (etp->base) {
	case PTR:
		if (!etp->memptr())
			break;
		if (etp->memptr()->f_static)
			break;
		isptm = 1;
		break;
	case FCT:
		if (!Pfct(etp)->memof)
			break;
		if (Pfct(etp)->f_static)
			break;
		isptm = 1;
		break;
	case ILIST:
		isptm = 1;
		break;
	}
	if (isptm && !tt->memptr() && tt->base != VOID)
		error(strict_opt ? 0 : 'w', "cast to%t ofP toM (anachronism)", tt);

	switch (etp->base) {
	case PTR:
	case RPTR:
		if (Pptr(etp)->typ->base == OVERLOAD) goto over;
		if (Pptr(etp)->typ->base == FCT && Pfct(Pptr(etp)->typ)->fct_base)
			goto over;
		if (warning_opt && i2==0 && Pptr(etp)->typ->tconst()) {
			switch (tt->base) {
			case FCT:
				break;
			case PTR:
			case RPTR:
				if (Pptr(tt)->typ->tconst()) break;
			default:
				// casting away const
				// should be an error
				// but ANSI says OK so I chicken out
				// to be able to compile strtok(), etc.
				error('w',"const cast away:%t->%t",e1->tp,tp2);
			}
		}
		else
			i2 = 0; // to allow cfront to escape its own checking
		break;
	case COBJ:
	{	ref_cast = 1;
		Pexpr x = try_to_coerce(tt,e1,"cast",tbl);
		if (!x && tt->base == EOBJ)
			x = try_to_coerce(int_type, e1, "cast", tbl);
		noconst = no_const;
		ref_cast = 0;
//error('d',"x %k %t tt %d %t",x?x->base:0,x?x->tp:0,tt,tt);
		if (x) {
			if (x!=e1 && x->base==DEREF && tt->is_ref()) x = x->e1;
			if (tt==x->tp || tt->check(x->tp,0)==0 || const_problem)
				return x;
			else
				return new cast(tt,x);
		}
		break;
	}
	case VOID:
		if (tt->base == VOID) {
			tp = t;
			return this;
		}
		error("cast of void value");
		// no break;
	case ANY:
	any:
		tp = any_type;
		return this;
	case FCT:
		if (tt->base == PTR && Pptr(tt)->typ->base != FCT)
			error('w',"P toF cast toP to nonF");
		if (Pfct(etp)->fct_base)
			goto over;
		break;
	case OVERLOAD:
	over:
		error("cast of overloaded");
		goto any;
	}

//error('d',"tt %t",tt);
	switch (tt->base) {
	case VEC:
		error("cast to arrayT %t", tt);
		break;
	case PTR:
		if (tt->memptr()) {
			if (etp->memptr() == 0
			    &&
			    (etp->base!=FCT || Pfct(etp)->memof == 0)
			) {
				if (etp->base == ZTYPE) {
					e1 = new expr(ELIST,zero,zero);
					e1 = new expr(ILIST,e1,zero);
					e1->tp = tt;
					return e1;
				}
				error("cast toP toM %t",tt);
			}

			else {	// adjust delta in MI case
				// for the moment just suppress the cast
				// all pmfs are the same to cc
				ptom_cast = 1;
				tp2 = mptr_type;
			}
		}

		switch (etp->base) {
		case COBJ:
			error('e',"cannot castCO toP");
			if (noconst) error('c'," (no usable const conversion)\n");
			else error('c',"\n");
			break;
		case FCT:
			e1 = new expr(G_ADDROF,0,e1);
			bound = b;
			e1 = e1->typ(tbl);
			bound = 0;
			if (e1->base == CAST || e1->base == G_CAST)
				pmf = 1;
			else
				break;
			// no break;

		case RPTR:
		case PTR:
		{	Pname cn = Pptr(tt)->typ->is_cl_obj();
			if (cn) {
				Pexpr x = cast_cptr(Pclass(cn->tp),e1,tbl,base==CAST?1:0);

				if (x == e1) {
					PERM(tt);
					e1 = new cast(tt,e1);
					e1->i2 = i2;
				}
				else
					e1 = x;
			}
			if (pmf) {
				tt = tt->skiptypedefs();

				switch (tt->base) {
				case PTR:
					if (Pptr(tt)->memof) break;
				default:
					error("%t cast to%t (%t is not aP toM)",e1->tp,tp2,tp2);
				}
			}
		}
		}
		break;

	case RPTR:		// (x&)e: pretend e is an x
	{	Ptype er = etp;
		Ptype cr = tt;
		do {
			if (er = er->is_ptr_or_ref()) er = Pptr(er)->typ;
			if (cr = cr->is_ptr_or_ref()) cr = Pptr(cr)->typ;
		} while (er && cr);
		int pp = er!=0;	//	if `e' is a suitable pointer cast it:
				// 	(x&)e => (x*)e, otherwise
				//	(x&)e => *(x*)&e
// error('d',"rptr tt %t e1->base %k e1->tp %t",tt,e1->base,e1->tp);
		if (e1->base==G_CM
		|| e1->base==CALL
		|| e1->base==G_CALL
		|| e1->lval(0))
			;
		else if (e1->tp->tconst()) {
				// casting away const
				// should be an error
				// but ANSI says OK so I chicken out
				// to be able to compile strtok(), etc.
			if (warning_opt && Pptr(tt)->typ->tconst()==0)
				error('w',"const cast away:%t->%t",e1->tp,tp2);

		}
		else
			error("cannot cast%t to%t",etp,t);
//error('d',"e1 %k %t %d",e1->base,e1->tp,pp);
		if (pp == 0) e1 = e1->address();	// *(x*)&e
		tp = t;

		// do proper pointer manipulation for multiple inheritance
		Pname cn = Pptr(tt)->typ->is_cl_obj();
		if (cn) {
			Pexpr x = cast_cptr(Pclass(cn->tp),e1,tbl,base==CAST?1:0);

			if (x == e1) {
				PERM(tt);
				e1 = new cast(tt,e1);
				e1->i2 = i2;
			}
			else
				e1 = x;
		}

		return pp ? this : contents();
	}
	case COBJ:
		base = VALUE;	// (x)e => x(e): construct an x from e
		e1 = new expr(ELIST,e1,0);
		return typ(tbl);

	case CHAR:
	case INT:
	case SHORT:
	case LONG:
	case EOBJ:
		switch (etp->base) {
		case FCT:
			e1 = new expr(ADDROF,0,e1);
			e1 = e1->typ(tbl);
		case PTR:
			if(!e1->tp->memptr() && e1->tp->tsizeof()>tt->tsizeof())
				error("type ``%t'' not large enough for values of ``%t ''",tt,etp);
			break;
		case COBJ:
			error('e',"cannot castCO to%k",tt->base);
			if (noconst) error('c'," (no usable const conversion)\n");
			else error('c',"\n");
			break;
		}	
		break;

	case FLOAT:
	case DOUBLE:
	case LDOUBLE:
		switch (etp->base) {
		case FLOAT:
		case DOUBLE:
		case LDOUBLE:
		case CHAR:
		case INT:
		case SHORT:
		case LONG:
		case EOBJ:
		case ZTYPE:
			break;
		default:
			error("cannot cast ``%t '' to ``%t''",etp,tt);
			break;
		}	
		break;

	case FCT:
		error("cannot cast toFT");
		break;
	}

	tp = t;

	if (e1->base==ILIST && ptom_cast==0) { // ptm constant
		Pexpr ee = e1->e1;	// ELIST
		int i;
		switch (ee->e2->base) {
		case IVAL:
			i = int(ee->e2->i1);
			break;
		case ZERO:
			i = 0;
		}

		if (i<0)
			e1 = e1->e2;	// just the function
		else
			e1 = ee->e2;	// just the index
		return this;
	}

	if (etp->memptr()) {
		Pclass cl = Pptr(etp)->memof;

		if (Pptr(tt)->memof==0 && b == 0 ) {
			Pexpr y;
			if((e1->base == G_CAST || e1->base == CAST) && 
			    e1->e1->base == ILIST) {
				e1 = e1->e1;
				y = e1->e2;
			}
			else  {
				y = new mdot("f",e1);
				y->i1 = 9;
			}
			y = new cast(tt,y);
			if (cl->virt_count && b==0) {
				// ERROR: no check for side effects
				Pexpr z = new mdot("i",e1);
				Pexpr x = new mdot("i",e1);
				x->i1 = 9;
				x = new cast(tt,x);
				z->i1 = 9;
				Pexpr q = new expr (QUEST,x,y);
				q->cond = new expr(LE,zero,z);
				q->tp = tt;
				delete this;
				return q;
			}
			delete this;
			return y;
		}
	}

	return this;
}

Pexpr expr::dovalue(Ptable tbl)
{
	Ptype tt = tp2;
	Pclass cl;
	Pname cn;

// error('d',"value %d %t e1 %d e2 %d",tt,tt,e1,e2);
	
	tt->dcl(tbl);

	tt = tt->skiptypedefs();

	switch (tt->base) {
	case EOBJ:
	default:
		if (e1 == 0) {
			//error("value missing in conversion to%t",tt);
			e1 = zero;
		} else { // convert elist to expr 
			if ( e1->e2 == 0 ) {
				e1 = e1->e1;
                                if (e1->base==NAME && e1->permanent == 0)
                                        PERM(e1);
			}
			else { // int( x, y )
				error("more than oneA for basicTK");
				for ( Pexpr e = e1;  e->e2->e2;  e = e->e2 )
					e->base = CM;
				e->base = CM;
				e->e2 = e->e2->e1;
			}
		}
		base = G_CAST;
		return typ(tbl);

	case CLASS:
		cl = Pclass(tt);
		if (cl->this_type)
		tp2 = Pptr(cl->this_type)->typ;
		break;

	case COBJ:
		cn = Pbase(tt)->b_name;
		cl = Pclass(cn->tp);
	}

	Pname ctor = cl->has_ctor();

//error('d',"e1 %k e1->e2 %k",e1->base,e1?e1->e2->base:0);
	if (e1 && e1->e2==0) {		// single argument
		if (e1->e1->base==ELIST) e1->e1 = e1->e1->e1;	// spurious elist
		e1->e1 = e1->e1->typ(tbl);
		if (tt->base==COBJ) {
			Pexpr x = try_to_coerce(tt,e1->e1,"type conversion",tbl);
			if (cl->has_itor()==0) {
				if (x)
					return x;
			}
			else {
				if (x && x->base != DEREF)
					return x;
			}
		}

		Pname acn = e1->e1->tp->is_cl_obj();
//error('d',"acn %n %d",acn,cl->has_itor());
		if (acn && cl->has_itor()==0) {
			Pclass acl = Pclass(acn->tp);
			int hb = acl->has_base(cl);

			// special case handling: Base(Derived);
			if (ctor && hb) {
				Pname n = 0;
				switch (ctor->tp->base) {
				case OVERLOAD:
   					n = Pgen(ctor->tp)->exactMatch(e1,0);
   					if (n) ctor = n;
   					break;
				case FCT: // improbable ever be traversed
					{
   					Pfct f = Pfct(ctor->tp);
   					if ( f->nargs != 1 ) break;
   					n = exact1(f->argtype,e1->e1->tp) ? ctor : 0;
   					break;
					}
				}
				if (n) goto mk_ctor_call;
			}

			if (same_class(acl,cl) || hb) {
				vcllist->clear();
				vcllist=0;
				if (1<is_unique_base(acl,cl->string,0)) error("ambiguous assignment to base %t",cl);
				Pexpr ee = e1->e1;
				if (ee->base == ELIST) ee = ee->e1;	// ???
				if (hb) {	// ee => *(tp2*)&ee
						// remember = may be overloaded
//error('d',"hb %k %t %d",ee->base,ee->tp,ee->lval(0));
					ignore_const++;
					if (ee->lval(0)==0) {
						Pname tmp = make_tmp('T',ee->tp,tbl);
						ee = init_tmp(tmp,ee,tbl);
						ee = new expr(G_CM,ee,tmp->address());
					}
					else
						ee = ee->address();
					ignore_const--;
					ee = new texpr(G_CAST,new ptr(PTR,tp2),ee); //new cast(new ptr(PTR,tp2),ee);
					ee = ee->contents();
					ee->typ(tbl);
				}

				if (e2) {	// x(x_obj) => e2=x_obj
					base = ASSIGN;
					e1 = e2;
					e2 = ee;
					tp = tp2;
					return this;
				}
				return ee;	// strip ELIST: x(x_obj) => x_obj
			}
		}
	}


	/* x(a) => obj.ctor(a); where e1==obj */
	if (ctor == 0) {
		error("cannot make a%t",cl);
		return dummy;
	}

// error('d',"e2 %k",e2?e2->base:0);
mk_ctor_call: // beats duplicating the code

	if (e2 == 0) {		// x(a) => x temp; (temp.x(a),temp)
		if (e1 && e1->e1 && !e1->e2) {
			char* s = e1->e1->string;
			if (s && s[0] == '_' && s[1] == '_' && s[2] == 'V' &&
			    e1->e1->tp && tp2 && !e1->e1->tp->check(tp2, 0))
				return e1;
		}
		no_sti = 1;
		Ntmp = 0;
		Pname n = make_tmp('V',tp2,tbl);
		no_sti = 0;
		n->assign();
		if (tbl == gtbl) n->dcl_print(0);	// a hack
		Pexpr c = call_ctor(tbl,n,ctor,e1,DOT);
		extern bit in_quest;
		if (Ntmp && in_quest) {
                	if (Ntmp_refd) {
			 	n->n_list = Ntmp_refd;	
                        	Ntmp_refd = n;
			}
                	else Ntmp_refd = n;

  			Ntmp_flag = make_tmp('Q',int_type,tbl);
  			Ntmp_flag->n_initializer = new ival(0L);
  			Ntmp_flag->assign();

                        if (Ntmp_flag_list) {
				Ntmp_flag->n_list = Ntmp_flag_list;
                                Ntmp_flag_list = Ntmp_flag;
			}
                        else Ntmp_flag_list = Ntmp_flag;

			Pexpr e = new expr(ASSIGN,Ntmp_flag,one);
			e->tp = int_type;
			Ptype t = c->tp;
			Ntmp_flag = 0;
			c = new expr(G_CM,e,c);
			c->tp = t;
		}

		c = new expr(G_CM,c,n);
		c->tp = n->tp;
		return c;
	}
	else {
		Pexpr c = call_ctor(tbl,e2,ctor,e1,DOT);
		c = new expr(DEREF,c,0); // deref value returned by constructor
		c->tp = c->e1->tp;
		return c;
	}
}

Pname 
gen::exactMatch(Pexpr arg, int constObj)
/*
	look through this gen for an exact match with arg
	if found, return it;
	if ambiguous, issue error and return dummy function
	if not found, return 0;
*/
{
	if (pure_templ()) return 0; // only holds templates
	register Plist gl;
	register int ok;
	Block(Pname) funVec;

	register int numEx = 0;
	for (gl=fct_list; gl; gl=gl->l) {
		register Pname nn = gl->f;
		if (nn->is_template_fct()) continue;
		Pfct f = nn->fct_type();
		register Pname n = f->argtype;
		if(constObj && nn->n_oper!=CTOR && !f->f_const && !f->f_static){
			non_const++;
			continue;
		}
		ok = 0;
		if (!arg) ok = 1;
		else {
		    for(Pexpr e=arg; e; e=e->e2, n=n->n_list) {
			if (!n && f->nargs_known!=ELLIPSIS) break;
			Pexpr a = e->e1;
			Ptype at = a->tp;
			if(at->base == ANY) break;
			if (at->base == ZTYPE) at = int_type;
			if (!exact1(n,at)) break;
			if (!e->e2) ok = 1;
		    }
		}
		if(!ok || n && !n->n_initializer) continue;

		funVec.reserve(numEx+1);
		funVec[numEx++] = nn;
	}

	if (!numEx) return 0;
	if (numEx==1) return funVec[0];

	// see if ``const'' break ties
	Bits bestOnes = ~(Bits(0,numEx));
	return breakTie(funVec,bestOnes,arg,constObj);
}

Pname 
gen::oneArgMatch(Pexpr aarg, int constObj) 
/*
	for a call with one argument:
	look through this gen for the best match for arg
	if found, return it;
	if ambiguous, issue error and return dummy function
	if not found, return 0;
*/
{
	if (pure_templ()) return 0;
	register Plist gl;
	int numFunc = 0;
	Block(Pname) ArgVec;
	Block(Pname) funVec;
	Pname fn = fct_list->f;

	for (gl=fct_list; gl; gl=gl->l) {
		Pname nn = gl->f;
		Pfct ft = nn->fct_type();
		Pname nnargs = ft->argtype;

		if (nn->is_template_fct()) continue;

		if(constObj && fn->n_oper!=CTOR && 
		    !ft->f_const && !ft->f_static) {
			non_const++;
			continue;
		}
		if (!nnargs && ft->nargs_known != ELLIPSIS)
			continue;
		if (nnargs && nnargs->n_list && !nnargs->n_list->n_initializer) 
			continue;
		ArgVec.reserve(numFunc+1);
		funVec.reserve(numFunc+1);
		ArgVec[numFunc] = nnargs ? nnargs : (Pname)ELLIPSIS;
		funVec[numFunc++] = nn;
	}
	if(!numFunc) return 0;

	Bits bestOnes = bestMatch(ArgVec, numFunc, aarg->e1->tp);

	int numFuncs = bestOnes.count();
	if(!numFuncs) return 0;
	if(numFuncs == 1)
		return funVec[bestOnes.signif() - 1];

	return breakTie(funVec,bestOnes,aarg,constObj);
}

Pname 
gen::multArgMatch(Pexpr arg, int constObj)
/*
	for a call with multiple arguments:
	look through this gen for the best match for arg
	if found, return it;
	if ambiguous, issue error and return dummy function
	if not found, return 0;
*/
{
	if (pure_templ()) return 0;
	int numargs = 1;
	Pexpr tmp = arg;
	if(!tmp) return 0;
	while((tmp=tmp->e2)) numargs++;
	Block(BlockPname) intFun(numargs);

	miFlag = 0;
	register int numFunc = 0;
	Block(Pname) funVec;

	for (Plist gl=fct_list; gl; gl=gl->l) {
		register Pname nn = gl->f;

		if (nn->is_template_fct()) continue;

		// first weed out unmatchable functions
		if (!matchable(nn,arg,constObj)) continue;

		// store types in ``matrix'' for bestMatching
		register int ai = 0;
		Pfct tf = nn->fct_type();

		funVec.reserve(numFunc+1);
		funVec[numFunc] = nn;
		for (Pname x=tf->argtype; x&&ai<numargs; x=x->n_list) {
			intFun[ai].reserve(numFunc+1);
			intFun[ai][numFunc] = x;
			ai++;
		} 

		// extend ellipsis arguments
		if(tf->nargs_known == ELLIPSIS) {
			while(ai < numargs) {
			    intFun[ai].reserve(numFunc+1);
			    intFun[ai++][numFunc] = (Pname)ELLIPSIS;
			}
		}
		numFunc++;
	}

	// no matchable functions
	if(numFunc == 0) return 0;

	// finished: only one matchable function
	if(numFunc == 1) return funVec[0];

	// more matchable functions: need intersect rule
	if(numFunc > 1) {  

		Bits bestFuncs = intersectRule(intFun,numFunc,arg);

		Pname best = 0;
		register int sigbit = bestFuncs.signif() - 1;

		switch(bestFuncs.count()) {
		    case 0:	// null intersection
			fmError(1,funVec,arg,constObj);
			best = funVec[0];
			break;

		    default:	//multiple elements in intersection
			best = breakTie(funVec,bestFuncs,arg,constObj);
			sigbit = bestFuncs.signif() - 1;

		    case 1:	// one element in intersection
		    		// before or after breakTie
			if (miFlag==1 && numFunc > 2) {  
				// suspect: need simple rule
				for(int K = 0; K < numFunc; K++) {
					if(K == sigbit) continue;
			    		int gotit = 0;
					Pexpr targ = arg;
					for(int I=0;I<numargs;I++) {
					    if(bestOfPair(intFun[I][sigbit],
						intFun[I][K],targ->e1->tp)) {
						gotit = 1;
						break;
					    }
					    targ = targ->e2;
					}
					if(!gotit) {
					    if(!best) {
						fmError(1,funVec,arg,constObj);
						break;
					    }
					    Bits temp = bestFuncs;
					    bestFuncs.set(K);
			   		    if(breakTie(
						funVec,
						temp,
						arg,
						constObj)!=funVec[sigbit]) {
						    fmError(1,funVec,arg,constObj);
						    break;
					    }
					}
				}
			}
			best = funVec[sigbit];
		}
		return best;
	}

	error('i', "fall off end of gen::multArgMatch()");
	return 0;
}

Bits bestMatch(const Block(Pname)& AV, int nav, Ptype at)
/*
	find the indices of the elements of AV which best match at.
	return a Bits with bits set which correspond to these indices
*/
{
	Bits zeroBits(0,nav);

	Bits result = zeroBits;
	Block(int) rate(nav);
	Block(Pname) udcBlock(nav);

	int i = -1;
        while(++i < nav) {

		Pname aa = AV[i];

		if(aa == 0) continue;
		
		if(aa == (Pname)ELLIPSIS) {
			rate[i] = ELLIP;
			continue;
		}
		Ptype t1 = aa->tp;

		if (t1==at || exact1(aa,at)) {
			rate[i] = EXACT;
			continue;
		}
		if (exact2(aa,at)) {
			rate[i] = PROM;
			continue;
		}
		if (exact3(aa,at)) {
			rate[i] = STD;
			continue;
		}

		int cc = can_coerce(t1,at);
		if (cc == 1) {
			udcBlock[i] = Ncoerce;
			rate[i] = UDC;
			continue;
		}

		rate[i] = NONE;
	}

	int max = NONE;
	for(i=0;i<nav;i++) {
		if( rate[i] > max ) {
			max = rate[i];
			result = zeroBits;
		}
		if( rate[i] && rate[i] == max ) {
			result.set(i);
		}
	}

	if (result.count() <= 1) return result;

	// break ties for STD's involving inheritance
	if (max == STD ) {
		if(at->is_ptr_or_ref()) at = Pptr(at)->typ;
		if (!at->is_cl_obj()) return result;  

		Bits tempBits = result;
		tempBits.reset(tempBits.signif() - 1);

		// nice little algo to find ``real'' best matches
		// taking derivation and MI into account
		while(tempBits.count()) {
			int tempPtr = tempBits.signif() - 1;
			Ptype t1  = AV[tempPtr]->tp;
			Pptr p_t1 = t1->is_ptr();
			for(int k = nav - 1; k > tempPtr; k--) {
				if(!result[k]) continue;
				Ptype t2 = AV[k]->tp;
				if (t1->check(t2,0)==0 || const_problem)
					continue;
				int r = pr_dominate(t1,t2);
				Pptr p_t2 = t2->is_ptr();
				if (r==1 || p_t2 && p_t2->typ->base==VOID) {
					result.reset(k);
				}
				if (r==2 || p_t1 && p_t1->typ->base==VOID) {
					result.reset(tempPtr);
					break;
				}
				if(r==0 && miFlag==0) miFlag = 1;
			}
			tempBits.reset(tempPtr);
		}
	}

	// find UDC sequences which are prefix's of others
	if (max == UDC ) {
		Bits tempBits = result;
		int sigbit = tempBits.signif() - 1;
		tempBits.reset(sigbit);

		while(tempBits.count()) {
			int tempPtr = tempBits.signif() - 1;
			Pname tname  = AV[tempPtr];
			bit done = 0;
			for(int k = nav - 1; k > tempPtr; k--) {
				if(!result[k] || !udcBlock[k]) continue;
				if (udcBlock[k]->tp->base == OVERLOAD) {
					for (Plist gl = Pgen(udcBlock[k]->tp)->fct_list; gl; gl=gl->l) {
						Ptype tt = gl->f->fct_type()->returns;
						Pname r = udcBlock[tempPtr]==udcBlock[k] ?
							bestOfPair(tname,AV[k],tt) : 0;
						if (r==tname)
							result.reset(k);
						if (r==AV[k]) {
							result.reset(tempPtr);
							done = 1;
							break;
						}
					}
				}
				else {
					Ptype tt = udcBlock[k]->fct_type()->returns;
					Pname r = udcBlock[tempPtr]==udcBlock[k] ?
						bestOfPair(tname,AV[k],tt) : 0;
					if (r==tname)
						result.reset(k);
					if (r==AV[k]) {
						result.reset(tempPtr);
						break;
					}
				}
				if (done)
					break;
			}
			tempBits.reset(tempPtr);
		}
	}

	return result;
}

Pname bestOfPair(Pname a1, Pname a2, Ptype at)
/*
    return the bestMatch of a pair of names to at if
    one exists.
    otherwise, return 0;
*/
{
	if(a1->tp == a2->tp) return 0;

	Block(Pname) tryBlock(3);
	tryBlock[0] = a1;
	tryBlock[1] = a2;
	Bits bestBits = bestMatch(tryBlock,2,at);
	if (bestBits.count()==1) {
		return tryBlock[bestBits.signif() - 1];
	}
	return 0;
}

Bits intersectRule(const Block(BlockPname)& intFun, int numFunc, Pexpr arg)
/*
	intersect rule
*/
{
	Bits zeroBits(0,numFunc);
	Bits result = ~zeroBits;

	int ai = 0;
	for(Pexpr aargu = arg; aargu; aargu = aargu->e2) {
		Ptype at = aargu->e1->tp;
		Bits tryit = bestMatch(intFun[ai++],numFunc,at);
		if(tryit.count()==1) miFlag = -1;
		result &= tryit;
		if(!result.count()) { return zeroBits; }
	}
	return result;
}

Pname breakTie(const Block(Pname)& FV,Bits& bestOnes,Pexpr arg,int cO)
/*
	all functions in Block are equal after the intersect rule
	use a mini-intersect rule on the array to see if one dominates 
	all others when trivial conversions involving const are 
	considered.

	if so, return it;
	if not, issue ambiguity error and return any function
*/
{
	register int numFunc = bestOnes.size();
	Bits zeroBits(0,numFunc);
	Bits result = ~zeroBits;

	Block(Pname) rfunc(numFunc);

	int i = 0;
	while(FV[i]) {
		if(bestOnes[i]) rfunc[i]=FV[i]->fct_type()->argtype;
		i++;
	}

	int stat = FV[bestOnes.signif()-1]->fct_type()->f_static;
	for(int k = 0; k < numFunc; k++) {
		if(bestOnes[k]) {
			if(stat != FV[k]->fct_type()->f_static) {
				fmError(1,FV,arg,cO);
				miFlag = 0;
				return FV[bestOnes.signif() - 1];
			}
		}
	}

	// see if ``const'' breaks tie
	for(Pexpr aargu = arg; aargu; aargu = aargu->e2) {
		Ptype at = aargu->e1->tp;

		// best_const
		Bits temp = best_const(rfunc,numFunc,at);
		if(temp.count()) result &= temp;
		if(!result.count()) break;

		for(int k = 0; k < numFunc; k++) {
			if(rfunc[k]) rfunc[k] = rfunc[k]->n_list;
		}
	}

	Pfct pf = FV[0]->fct_type();
	if(result.count()>=1 && pf->memof) { // && FV[0]->n_oper != CTOR) {
		Bits temp = zeroBits;
		for(int k = 0; k < numFunc; k++) {
                        if(bestOnes[k]) {
			    if(stat != FV[k]->fct_type()->f_static) {
				result = zeroBits;
				break;
			    }
			    if(cO == FV[k]->fct_type()->f_const) temp.set(k);
                        }
                }
		if(temp.count()) result &= temp;
	}

	if(result.count()==0 || result.count()>=2) {
		fmError(1,FV,arg,cO);
		miFlag = 0;
	}
	else  bestOnes = result; 

	return FV[bestOnes.signif() - 1];
}

Bits best_const(const Block(Pname)& CONV, int nfound, Ptype at)
{
	Bits zeroBits(0,nfound);
	Bits result = ~zeroBits;
	
	Bits tempBits = ~zeroBits;
	int sigbit = tempBits.signif() - 1;
	tempBits.reset(sigbit);

	for (int i=0; i<nfound; i++) {
		if (CONV[i] == 0) {
			tempBits.reset(i);
			result.reset(i);
		}
	}

	while(tempBits.count()) {
		int tempPtr = tempBits.signif() - 1;
		Pname t1name = CONV[tempPtr];
		for(int k = nfound - 1; k > tempPtr; k--) {
			if(!result[k]) continue;
			Pname t2name  = CONV[k];
			Ptype t1 = t1name->tp;
			Ptype t2 = t2name->tp;
			Pptr p1=t1->is_ref(),p2=t2->is_ref();
			if (p1 && !p2) t1 = p1->typ;
			if (p2 && !p1) t2 = p2->typ;
			p1=t1->is_ptr(),p2=t2->is_ptr();
			if (p1 && p2) {
			    if (at->check(t1,OVERLOAD)==0
				&&
				at->check(t2,OVERLOAD)
			    )
				result.reset(k);
			    else if (at->check(t1,OVERLOAD)
				&&
				at->check(t2,OVERLOAD)==0
			    ) {
				result.reset(tempPtr);
				break;
			    }
			}
			else {
			    Pptr p1=t1->is_ref();
			    Pptr p2=t2->is_ref();

			    if (p1 && p2) {
				if (at->check(p1->typ,OVERLOAD)==0
				    &&
				    at->check(p2->typ,OVERLOAD)
				)
				    result.reset(k);
				else if (
				    at->check(p1->typ,OVERLOAD)
				    &&
				    at->check(p2->typ,OVERLOAD)==0
				) {
				    result.reset(tempPtr);
				    break;
				}
			    }
			}
		}
		tempBits.reset(tempPtr);
	}
	return result;
}

void fmError(int errorKind, const Block(Pname)& FV, Pexpr arg, bit co)
{
	Pname fn = FV[0]->tp->base==OVERLOAD ? 
			Pgen(FV[0]->tp)->fct_list->f : FV[0];

	switch (errorKind) {
	    case 0:
		error('e',"no match for call: ");
		break;
	    case 1:
		ambig = 1;
		error('e',"ambiguous call: ");
		break;
	}

	// call
	Pclass tmp = fn->get_fct()->memof;

	if (tmp) error('c',"%s %t* -> ",co?"const":"",tmp);
	if(fn->n_oper && fn->n_oper!=CTOR) 
		error('c',"operator %s(",keys[fn->n_oper]);
	else if(fn->n_oper==CTOR) {
		error('c',"%t::%t(",tmp,tmp);
	}
	else error('c',"%s(",fn->string);

	if(arg) {
		Pexpr tmp = arg;
		error('c',"%t",tmp->e1->tp->skiptypedefs());
		while((tmp=tmp->e2)) {
			error('c',",%t",tmp->e1->tp->skiptypedefs());
		}
	}
	error('c',")\n");

	// possible functions
	error('C',"choice of%ns:\n",fn);

	if(FV[0]->tp->base == OVERLOAD) {
		int num_templ=0;
		int no_const=0;
		int num_all=0;
		for(Plist gl = Pgen(FV[0]->tp)->fct_list;gl;gl=gl->l) {
			if(gl->f->is_template_fct()) {
				num_templ++;
			}
			else error('C',"	%a;\n",gl->f);
			if (co && !Pfct(gl->f->tp)->f_const) no_const++;
			num_all++;
		}
		if(num_templ) {
			error(
			    'C',
			    "	%d template version%s;\n",
			    num_templ,
			    num_templ==1 ? "" : "s"
			);
		}
		if(no_const == num_all)
			error('C',"(no usable const member function)\n");

		return;
	}

	int numFunc = FV.size();
	for(int i=0; i<numFunc; i++) {
		if(FV[i]) error('C',"	%a;\n",FV[i]);
	}
}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to webmaster@9p.io.