function hello()
{
hh\asm('
String "Hello World"
RetC
');
}
function my_is_int($x)
{
hh\asm('
IsTypeL $x Int
RetC
');
}
function f($x)
{
$y = $x * 100;
var_dump(hh\asm('
CGetL $x
CGetL $y
Add
SetL $z
PopC
# we dont leave anything on the eval stack,
# so the emitter should push null
'));
return $z;
}
function salut($hello)
{
var_dump(hh\asm('
CGetL $hello
JmpZ goodbye
String "Hello\\n"
Jmp done
goodbye:
String "Goodbye\\n"
done:
Print
PopC
Int 42
'));
}
