Stub SCI32's kOnMe to give better debugging info (used when clicking in the GK1 menu).

svn-id: r46533
This commit is contained in:
Matthew Hoops 2009-12-24 18:37:35 +00:00
parent d7cd8345c0
commit 996da19fc9
3 changed files with 12 additions and 0 deletions

View file

@ -351,6 +351,7 @@ SciKernelFunction kfunct_mappers[] = {
DEFUN("RepaintPlane", kRepaintPlane, "o"), DEFUN("RepaintPlane", kRepaintPlane, "o"),
DEFUN("FrameOut", kFrameOut, ""), DEFUN("FrameOut", kFrameOut, ""),
DEFUN("ListEachElementDo", kListEachElementDo, ".*"), DEFUN("ListEachElementDo", kListEachElementDo, ".*"),
DEFUN("OnMe", kOnMe, "iio.*"),
// SCI2.1 Kernel Functions // SCI2.1 Kernel Functions
DEFUN("Save", kSave, ".*"), DEFUN("Save", kSave, ".*"),

View file

@ -406,6 +406,7 @@ reg_t kUpdatePlane(EngineState *s, int argc, reg_t *argv);
reg_t kRepaintPlane(EngineState *s, int argc, reg_t *argv); reg_t kRepaintPlane(EngineState *s, int argc, reg_t *argv);
reg_t kFrameOut(EngineState *s, int argc, reg_t *argv); reg_t kFrameOut(EngineState *s, int argc, reg_t *argv);
reg_t kListEachElementDo(EngineState *s, int argc, reg_t *argv); reg_t kListEachElementDo(EngineState *s, int argc, reg_t *argv);
reg_t kOnMe(EngineState *s, int argc, reg_t *argv);
// SCI2.1 Kernel Functions // SCI2.1 Kernel Functions
reg_t kSave(EngineState *s, int argc, reg_t *argv); reg_t kSave(EngineState *s, int argc, reg_t *argv);

View file

@ -711,6 +711,16 @@ reg_t kListEachElementDo(EngineState *s, int argc, reg_t *argv) {
return NULL_REG; return NULL_REG;
} }
reg_t kOnMe(EngineState *s, int argc, reg_t *argv) {
// This kernel function looks like it calls a function in the object (arg 2) with
// the x/y coordinates supplied in args 0/1. Arg 3 seems to be 0.
// TODO
warning("kOnMe: (%d, %d) on object %04x:%04x", argv[0].toUint16(), argv[1].toUint16(), PRINT_REG(argv[2]));
return NULL_REG;
}
} // End of namespace Sci } // End of namespace Sci
#endif // ENABLE_SCI32 #endif // ENABLE_SCI32