diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first cut at Anderson's JIT code.

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-04-07 23:55:16 +01:00
parent f97bc596b9
commit b2ad3bd000
9 changed files with 73 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
H/rclause.h
View File

@@ -124,6 +124,14 @@ restore_opcodes(yamop *pc)
pc->u.Otapl.d = PtoOpAdjust(pc->u.Otapl.d);
pc = NEXTOP(pc,Otapl);
break;
/* instructions type aFlp */
case _native_me:
pc->u.aFlp.n = ArityAdjust(pc->u.aFlp.n);
pc->u.aFlp.native = ExternalFunctionAdjust(pc->u.aFlp.native);
pc->u.aFlp.native_next = PtoOpAdjust(pc->u.aFlp.native_next);
pc->u.aFlp.native = PtoPredAdjust(pc->u.aFlp.native);
pc = NEXTOP(pc,aFlp);
break;
/* instructions type c */
case _write_atom:
pc->u.c.c = ConstantTermAdjust(pc->u.c.c);