--- parser3/src/main/execute.C 2002/09/02 10:49:22 1.258 +++ parser3/src/main/execute.C 2002/09/10 10:22:12 1.264 @@ -5,7 +5,7 @@ Author: Alexandr Petrosian (http://paf.design.ru) */ -static const char* IDENT_EXECUTE_C="$Date: 2002/09/02 10:49:22 $"; +static const char* IDENT_EXECUTE_C="$Date: 2002/09/10 10:22:12 $"; #include "pa_opcode.h" #include "pa_array.h" @@ -695,7 +695,7 @@ void Request::execute(const Array& ops, { b=POP(); a=POP(); double result=a->as_double() - b->as_double(); - value=NEW VBool(pool(), result < 0); + value=NEW VBool(pool(), result < 0.0); PUSH(value); break; } @@ -703,7 +703,7 @@ void Request::execute(const Array& ops, { b=POP(); a=POP(); double result=a->as_double() - b->as_double(); - value=NEW VBool(pool(), result > 0); + value=NEW VBool(pool(), result > 0.0); PUSH(value); break; } @@ -711,7 +711,7 @@ void Request::execute(const Array& ops, { b=POP(); a=POP(); double result=a->as_double() - b->as_double(); - value=NEW VBool(pool(), result <= 0); + value=NEW VBool(pool(), result <= 0.0); PUSH(value); break; } @@ -719,7 +719,7 @@ void Request::execute(const Array& ops, { b=POP(); a=POP(); double result=a->as_double() - b->as_double(); - value=NEW VBool(pool(), result >= 0); + value=NEW VBool(pool(), result >= 0.0); PUSH(value); break; } @@ -727,7 +727,7 @@ void Request::execute(const Array& ops, { b=POP(); a=POP(); double result=a->as_double() - b->as_double(); - value=NEW VBool(pool(), result == 0); + value=NEW VBool(pool(), result == 0.0); PUSH(value); break; } @@ -735,7 +735,7 @@ void Request::execute(const Array& ops, { b=POP(); a=POP(); double result=a->as_double() - b->as_double(); - value=NEW VBool(pool(), result != 0); + value=NEW VBool(pool(), result != 0.0); PUSH(value); break; } @@ -875,7 +875,7 @@ StringOrValue Request::process(Value& in if(using_code_frame) { // almost plain wwrapper about junction wcontext, // BUT intercepts string writes - VCodeFrame local(pool(), *junction->wcontext); + VCodeFrame local(pool(), *junction->wcontext); wcontext=&local; // execute it