/*
	This C language subroutine searches for a character
	within a string.

	The Run Time Library for the C Language.

	Gordon A. Sterling	(617) 461 - 3076
	DSP Development Tools Engineering

	Created on 4/30/90
	Updated on 6/94 by AS
	Updated on 3/95 by AS - separated polymorphic functions

	#include <string.h>				<Header>
	char *strrchr(const char *s1, int c);		<Prototype>
*/

#include "lib_glob.h"
#include "str_glob.h"

.SEGMENT/CODE	Code_Space_Name;
.FILE 		RTL_FILENAME;

.GLOBAL	    _strrchr;
.GLOBAL	    ___strrchrD;

_strrchr:
___strrchrD:		
chr_core:	R4=PASS R8, R0=R4;

dm_chr:		R2=PASS R0, dm_ptr=R0;		    /*Point to start*/
		R0=R0-R0, R12=DM(dm_ptr,1);	    /*Read first sample*/
		DO find_dm_chr UNTIL FOREVER;
		   COMP(R4,R12);
		   IF EQ R0=PASS R2;
		   R12=PASS R12, FETCH_RETURN
		   IF EQ JUMP (PC, restore_state) (LA);
find_dm_chr:	   R2=R2+1, R12=DM(dm_ptr,1);

restore_state:	RETURN (DB);
		RESTORE_STACK
                RESTORE_FRAME
.ENDSEG;