1 files changed, 49 insertions, 0 deletions
diff --git a/strings/strappend-sparc.s b/strings/strappend-sparc.s
new file mode 100644
index 00000000000..69bb555aa47
--- /dev/null
+++ b/strings/strappend-sparc.s
@@ -0,0 +1,49 @@
+! Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
+! 
+! This library is free software; you can redistribute it and/or
+! modify it under the terms of the GNU Library General Public
+! License as published by the Free Software Foundation; either
+! version 2 of the License, or (at your option) any later version.
+! 
+! This library is distributed in the hope that it will be useful,
+! but WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+! Library General Public License for more details.
+! 
+! You should have received a copy of the GNU Library General Public
+! License along with this library; if not, write to the Free
+! Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+! MA 02111-1307, USA
+
+	.file	"strappend-sparc.s"
+.section	".text"
+	.align 4
+	.global strappend
+	.type	 strappend,#function
+	.proc	020
+strappend:
+	add	%o0, %o1, %g3		! g3 = endpos
+	ldsb	[%o0], %g2
+.loop1:
+	add	%o0, 1, %o0		! find end of str
+	cmp	%g2, 0
+	bne,a	.loop1
+	ldsb	[%o0], %g2
+	
+	sub	%o0, 1, %o0
+	cmp	%o0, %g3
+	bgeu	.end
+	nop
+	
+	stb	%o2, [%o0]
+.loop2:
+	add	%o0, 1, %o0
+	cmp	%o0, %g3
+	blu,a	.loop2
+	stb	%o2, [%o0]
+.end:
+	retl
+	stb	%g0, [%g3]
+.strappend_end:
+	.size	 strappend,.strappend_end-strappend
+	.ident	"Matt Wagner & Monty"