diff options
author | cvs2svn <admin@example.com> | 1996-10-14 00:58:56 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 1996-10-14 00:58:56 +0000 |
commit | 78d469e4221478f0c79f67fef1d5aa98f2c96f47 (patch) | |
tree | fcf35814ba17653b9b8d16e99af99ea5b39bba5e /qt/md/vax_b.s | |
parent | 0682f7ab1dfa23adbf85435d5884b0ec91956a53 (diff) | |
parent | 0f2d19dd46f83f41177f61d585732b32a866d613 (diff) | |
download | guile-pre_vollmer_scm_p.tar.gz |
This commit was manufactured by cvs2svn to create tagpre_vollmer_scm_p
'pre_vollmer_scm_p'.
Diffstat (limited to 'qt/md/vax_b.s')
-rw-r--r-- | qt/md/vax_b.s | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/qt/md/vax_b.s b/qt/md/vax_b.s deleted file mode 100644 index 2db2d4fec..000000000 --- a/qt/md/vax_b.s +++ /dev/null @@ -1,92 +0,0 @@ -/* - * 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 _b_call_reg - .globl _b_call_imm - .globl _b_add - .globl _b_load - -_b_null: - .word 0x0 - ret - -_b_call_reg: - .word 0x0 - movl 4(ap),r0 - moval _b_null,r1 -L0: - calls $0,(r1) - calls $0,(r1) - calls $0,(r1) - calls $0,(r1) - calls $0,(r1) - - subl2 $5,r0 - bgtr L0 - ret - - -_b_call_imm: - .word 0x0 - movl 4(ap),r0 -L1: - calls $0,_b_null - calls $0,_b_null - calls $0,_b_null - calls $0,_b_null - calls $0,_b_null - - subl2 $5,r0 - bgtr L1 - ret - - -_b_add: - .word 0x0 - movl 4(ap),r0 -L2: - subl2 $1,r0 - subl2 $1,r0 - subl2 $1,r0 - subl2 $1,r0 - subl2 $1,r0 - - subl2 $1,r0 - subl2 $1,r0 - subl2 $1,r0 - subl2 $1,r0 - subl2 $1,r0 - - bgtr L2 - ret - - -_b_load: - .word 0x0 - movl 4(ap),r0 -L3: - movl 0(sp),r1 - movl 4(sp),r1 - movl 8(sp),r1 - movl 12(sp),r1 - movl 16(sp),r1 - movl 20(sp),r1 - movl 24(sp),r1 - movl 28(sp),r1 - movl 32(sp),r1 - movl 36(sp),r1 - - subl2 $1,r0 - bgtr L3 - ret |