StgRegTable * StgRun(StgFunPtr f, StgRegTable *basereg STG_UNUSED)
{
while (f) {
+ /* XXX Disabled due to RtsFlags[]/RtsFlags mismatch
IF_DEBUG(interpreter,
debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout);
debugBelch("\n");
);
+ */
f = (StgFunPtr) (f)();
}
return (StgRegTable *)R1.p;
".align 4\n"
".global " STG_RETURN "\n"
STG_RETURN ":"
- : : : "l0","l1","l2","l3","l4","l5","l6","l7");
+ : : "p" (space) : "l0","l1","l2","l3","l4","l5","l6","l7");
/* we tell the C compiler that l0-l7 are clobbered on return to
* StgReturn, otherwise it tries to use these to save eg. the
* address of space[100] across the call. The correct thing
* to do would be to save all the callee-saves regs, but we
* can't be bothered to do that.
*
+ * We also explicitly mark space as used since gcc eliminates it
+ * otherwise.
+ *
* The code that gcc generates for this little fragment is now
* terrible. We could do much better by coding it directly in
* assembler.
#endif
+/* -----------------------------------------------------------------------------
+ MIPS architecture
+ -------------------------------------------------------------------------- */
+
+#ifdef mips_HOST_ARCH
+
+StgThreadReturnCode
+StgRun(StgFunPtr f, StgRegTable *basereg)
+{
+ register StgThreadReturnCode __v0 __asm__("$2");
+
+ __asm__ __volatile__(
+ " la $25, %1 \n"
+ " move $30, %2 \n"
+ " jr %1 \n"
+ " .align 3 \n"
+ " .globl " STG_RETURN " \n"
+ " .aent " STG_RETURN " \n"
+ STG_RETURN ": \n"
+ " move %0, $16 \n"
+ " move $3, $17 \n"
+ : "=r" (__v0),
+ : "r" (f), "r" (basereg)
+ "$16", "$17", "$18", "$19", "$20", "$21", "$22", "$23",
+ "$25", "$28", "$30",
+ "$f20", "$f22", "$f24", "$f26", "$f28", "$f30",
+ "memory");
+
+ return __v0;
+}
+
+#endif /* mips_HOST_ARCH */
+
#endif /* !USE_MINIINTERPRETER */