1 /* 2 \funcref{fun\_gr}{void fun\_gr ()} 3 {} 4 {} 5 {push(),virtual_compare(), stack_pop()} 6 {} 7 {fungr.c} 8 { 9 Function {\em fun\_gr()} is called when opcode {\em op\_gr} is read. 10 This function pops two variables, calls {\em compare()} to compare the 11 values, and pushes the result of the comparison. The two compared 12 variables are discarded. 13 } 14 */ 15 16 #include "opcodefun.ih" 17 o_gr()18void o_gr () 19 { 20 virtual_compare(); 21 22 int_assignInt(stack_top(), int_value(stack_top()) > 0); 23 } 24