##
## vbcc-PowerPC libvc.a
##
## size_t strlen(const char *s)
## r3            r3
## v0.1 21.11.97 phx
##

	.text
	.global	strlen
strlen:
	subi	r4,r3,1
.1:	lbzu	r0,1(r4)
	cmpwi	r0,0
	bne	.1
	sub	r3,r4,r3
	blr

	.type	strlen,@function
	.size	strlen,$-strlen