--- parser3/src/main/execute.C 2001/02/22 14:14:07 1.20 +++ parser3/src/main/execute.C 2001/02/22 16:21:49 1.22 @@ -1,11 +1,12 @@ /* - $Id: execute.C,v 1.20 2001/02/22 14:14:07 paf Exp $ + $Id: execute.C,v 1.22 2001/02/22 16:21:49 paf Exp $ */ #include "pa_array.h" #include "code.h" #include "pa_request.h" #include "pa_vstring.h" +#include "pa_vhash.h" #include @@ -148,5 +149,10 @@ Value *Request::get_element() { Value *ncontext=static_cast(stack.pop()); Value *value=ncontext->get_element(*name); // name áûâàåò method, òîãäà âûäà¸ò new junction(ÀÂÒÎÂÛ×ÈÑËßÒÜ=false, root,self,rcontext,wcontext,code) // name áûâàåò èìÿ junction, òîãäà èëè îñòàâëÿåò â ïîêîå, èëè âû÷èñëÿåò â çàâèñèìîñòè îò ôëàãà ÀÂÒÎÂÛ×ÈÑËßÒÜ + + if(!value) { + value=NEW VHash(pool()); + ncontext->put_element(*name, value); + } return value; } \ No newline at end of file