--- parser3/src/main/execute.C 2001/05/21 16:01:10 1.163 +++ parser3/src/main/execute.C 2001/06/28 07:41:59 1.168 @@ -5,15 +5,16 @@ Author: Alexander Petrosyan (http://design.ru/paf) - $Id: execute.C,v 1.163 2001/05/21 16:01:10 parser Exp $ + $Id: execute.C,v 1.168 2001/06/28 07:41:59 parser Exp $ */ +static char *RCSId="$Id: execute.C,v 1.168 2001/06/28 07:41:59 parser Exp $"; #include "pa_opcode.h" #include "pa_array.h" #include "pa_request.h" #include "pa_vstring.h" #include "pa_vhash.h" -#include "pa_vunknown.h" +#include "pa_vvoid.h" #include "pa_vcode_frame.h" #include "pa_vmethod_frame.h" #include "pa_vobject.h" @@ -300,7 +301,7 @@ void Request::execute(const Array& ops) if(string) value=NEW VString(*string); else - value=NEW VUnknown(pool()); + value=NEW VVoid(pool()); wcontext=static_cast(POP()); rcontext=POP(); PUSH(value); @@ -321,7 +322,7 @@ void Request::execute(const Array& ops) if(string) value=NEW VString(*string); else - NEW VUnknown(pool()); + NEW VVoid(pool()); wcontext=static_cast(POP()); PUSH(value); break; @@ -694,18 +695,18 @@ void Request::execute(const Array& ops) Value *Request::get_element() { const String& name=POP_NAME(); Value *ncontext=POP(); - Value *value/*; + Value *value; if(Method* method=OP.get_method(name)) { // operator? // as if that method were in self and we have normal dynamic method here Junction& junction=*NEW Junction(pool(), *self, self->get_class(), method, 0,0,0,0); value=NEW VJunction(junction); } else - value*/=ncontext->get_element(name); + value=ncontext->get_element(name); if(value) value=&process(*value, &name); // process possible code-junction else { - value=NEW VUnknown(pool()); + value=NEW VVoid(pool()); value->set_name(name); }