mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
69 lines
1.9 KiB
ArmAsm
69 lines
1.9 KiB
ArmAsm
/*
|
|
* QuickThreads -- Threads-building toolkit.
|
|
* Copyright (c) 1993 by David Keppel
|
|
*
|
|
* Permission to use, copy, modify and distribute this software and
|
|
* its documentation for any purpose and without fee is hereby
|
|
* granted, provided that the above copyright notice and this notice
|
|
* appear in all copies. This software is provided as a
|
|
* proof-of-concept and for demonstration purposes; there is no
|
|
* representation about the suitability of this software for any
|
|
* purpose.
|
|
*/
|
|
|
|
.text
|
|
|
|
.globl _qt_abort
|
|
.globl _qt_block
|
|
.globl _qt_blocki
|
|
.globl _qt_start
|
|
.globl _qt_vstart
|
|
|
|
|
|
/*
|
|
// Calls to these routines have the signature
|
|
//
|
|
// void *block (func, arg1, arg2, newsp)
|
|
//
|
|
// Since the prologue saves 5 registers, nargs, pc, fp, ap, mask, and
|
|
// a condition handler (at sp+0), the first argument is 40=4*10 bytes
|
|
// offset from the stack pointer.
|
|
*/
|
|
_qt_block:
|
|
_qt_blocki:
|
|
_qt_abort:
|
|
.word 0x7c0 /* Callee-save mask: 5 registers. */
|
|
movl 56(sp),r1 /* Get stack pointer of new thread. */
|
|
movl 52(sp),-(r1) /* Push arg2 */
|
|
movl 48(sp),-(r1) /* Push arg1 */
|
|
movl sp,-(r1) /* Push arg0 */
|
|
|
|
movl 44(sp),r0 /* Get helper to call. */
|
|
movl r1,sp /* Move to new thread's stack. */
|
|
addl3 sp,$12,fp /* .. including the frame pointer. */
|
|
calls $3,(r0) /* Call helper. */
|
|
|
|
ret
|
|
|
|
_qt_start:
|
|
movl (sp)+,r0 /* Get `only'. */
|
|
calls $3,(r0) /* Call `only'. */
|
|
calls $0,_qt_error /* `only' erroniously returned. */
|
|
|
|
|
|
_qt_vstart:
|
|
movl (sp)+,r10 /* Get `pt'. */
|
|
movl (sp)+,r9 /* Get `startup'. */
|
|
movl (sp)+,r8 /* Get `vuserf'. */
|
|
movl (sp)+,r7 /* Get `cleanup'. */
|
|
|
|
pushl r10 /* Push `qt'. */
|
|
calls $1,(r9) /* Call `startup', pop `qt' on return. */
|
|
|
|
calls (sp)+,(r8) /* Call user's function. */
|
|
|
|
pushl r0 /* Push `vuserf_retval'. */
|
|
pushl r10 /* Push `qt'. */
|
|
calls $2,(r7) /* Call `cleanup', never return. */
|
|
|
|
calls $0,_qt_error /* `cleanup' erroniously returned. */
|