| 1234567891011121314151617181920212223242526272829303132333435 |
- /*
- * Part of Scheme 48 1.9. See file COPYING for notices and license.
- *
- * Authors: Richard Kelsey, Jonathan Rees, Martin Gasbichler, Mike Sperber
- */
- /*
- * Phony versions of native-code helper routines for use on architectures for
- * which we have no native code.
- */
- long
- s48_call_native_procedure(long procedure, long arg_count)
- {
- return 3; /* indicates failure; see scheme/vm/interp/call.scm */
- }
- long
- s48_invoke_native_continuation(long code_pointer, long protocol_skip)
- {
- return 3; /* indicates failure; see scheme/vm/interp/call.scm */
- }
- long
- s48_jump_to_native_address(long address, long template)
- {
- return 3; /* indicates failure; see scheme/vm/interp/call.scm */
- }
- void
- s48_init_asm_glue(void)
- {
- }
|
