Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / qt / md / sparc_b.s

diff --git a/guile18/qt/md/sparc_b.s b/guile18/qt/md/sparc_b.s
new file mode 100644 (file)
index 0000000..08351d7
--- /dev/null
+++ b/guile18/qt/md/sparc_b.s
@@ -0,0 +1,106 @@
+/*
+ * 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.
+ */
+
+       .globl b_call_reg
+       .globl b_call_imm
+       .globl b_add
+       .globl b_load
+
+b_null:
+       retl
+       nop
+
+b_call_reg:
+       sethi %hi(b_null),%o4
+       or %o4,%lo(b_null),%o4
+       add %o7,%g0, %o3
+L0:
+       call %o4
+       nop
+       call %o4
+       nop
+       call %o4
+       nop
+       call %o4
+       nop
+       call %o4
+       nop
+
+       subcc %o0,1,%o0
+       bg L0
+       nop
+       add %o3,%g0, %o7
+       retl
+       nop
+
+b_call_imm:
+       sethi %hi(b_null),%o4
+       or %o4,%lo(b_null),%o4
+       add %o7,%g0, %o3
+L1:
+       call b_null
+       call b_null
+       call b_null
+       call b_null
+       call b_null
+
+       subcc %o0,1,%o0
+       bg L0
+       nop
+       add %o3,%g0, %o7
+       retl
+       nop
+
+
+b_add:
+       add %o0,%g0,%o1
+       add %o0,%g0,%o2
+       add %o0,%g0,%o3
+       add %o0,%g0,%o4
+L2:
+       sub %o0,5,%o0
+       sub %o1,5,%o1
+       sub %o2,5,%o2
+       sub %o3,5,%o3
+       sub %o4,5,%o4
+
+       subcc %o0,5,%o0
+       sub %o1,5,%o1
+       sub %o2,5,%o2
+       sub %o3,5,%o3
+       sub %o4,5,%o4
+
+       bg L2
+       nop
+       retl
+       nop
+
+
+b_load:
+       ld [%sp+ 0], %g0
+L3:
+       ld [%sp+ 4],%g0
+       ld [%sp+ 8],%g0
+       ld [%sp+12],%g0
+       ld [%sp+16],%g0
+       ld [%sp+20],%g0
+       ld [%sp+24],%g0
+       ld [%sp+28],%g0
+       ld [%sp+32],%g0
+       ld [%sp+36],%g0
+
+       subcc %o0,10,%o0
+       bg L3
+       ld [%sp+ 0],%g0
+       retl
+       nop