Skip to content

Instantly share code, notes, and snippets.

@vibhavp
Created January 8, 2017 18:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vibhavp/84011bccbc2ac13758a41aec06369e4e to your computer and use it in GitHub Desktop.
Save vibhavp/84011bccbc2ac13758a41aec06369e4e to your computer and use it in GitHub Desktop.
hm
CASE (Bswitch):
{
Lisp_Object jmp_table = POP;
Lisp_Object v1 = TOP;
Lisp_Object dest = Fgethash(v1, jmp_table, Qnil);
if (!NILP(dest)) {
int car = XINT(XCAR(dest));
int cdr = XINT(XCDR(dest));
op = car + (cdr << 8);
goto op_branch;
}
}
NEXT;
CASE (Bswitch):
{
Lisp_Object jmp_table = POP;
Lisp_Object v1 = TOP;
Lisp_Object dest = Fgethash(v1, jmp_table, Qnil);
if (!NILP(dest)) {
op = XINT((int)XINT(XCAR(dest)) + ((int)XINT(XCDR(dest)) << 8));
goto op_branch;
}
}
NEXT;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment