1/*
2 *  S390 version
3 *    Copyright IBM Corp. 1999
4 *    Author(s): Martin Schwidefsky (schwidefsky@de.ibm.com),
5 */
6
7#ifndef _S390_STRING_H_
8#define _S390_STRING_H_
9
10#ifndef _LINUX_TYPES_H
11#include <linux/types.h>
12#endif
13
14#define __HAVE_ARCH_MEMCHR	/* inline & arch function */
15#define __HAVE_ARCH_MEMCMP	/* arch function */
16#define __HAVE_ARCH_MEMCPY	/* gcc builtin & arch function */
17#define __HAVE_ARCH_MEMSCAN	/* inline & arch function */
18#define __HAVE_ARCH_MEMSET	/* gcc builtin & arch function */
19#define __HAVE_ARCH_STRCAT	/* inline & arch function */
20#define __HAVE_ARCH_STRCMP	/* arch function */
21#define __HAVE_ARCH_STRCPY	/* inline & arch function */
22#define __HAVE_ARCH_STRLCAT	/* arch function */
23#define __HAVE_ARCH_STRLCPY	/* arch function */
24#define __HAVE_ARCH_STRLEN	/* inline & arch function */
25#define __HAVE_ARCH_STRNCAT	/* arch function */
26#define __HAVE_ARCH_STRNCPY	/* arch function */
27#define __HAVE_ARCH_STRNLEN	/* inline & arch function */
28#define __HAVE_ARCH_STRRCHR	/* arch function */
29#define __HAVE_ARCH_STRSTR	/* arch function */
30
31/* Prototypes for non-inlined arch strings functions. */
32extern int memcmp(const void *, const void *, size_t);
33extern void *memcpy(void *, const void *, size_t);
34extern void *memset(void *, int, size_t);
35extern int strcmp(const char *,const char *);
36extern size_t strlcat(char *, const char *, size_t);
37extern size_t strlcpy(char *, const char *, size_t);
38extern char *strncat(char *, const char *, size_t);
39extern char *strncpy(char *, const char *, size_t);
40extern char *strrchr(const char *, int);
41extern char *strstr(const char *, const char *);
42
43#undef __HAVE_ARCH_MEMMOVE
44#undef __HAVE_ARCH_STRCHR
45#undef __HAVE_ARCH_STRNCHR
46#undef __HAVE_ARCH_STRNCMP
47#undef __HAVE_ARCH_STRPBRK
48#undef __HAVE_ARCH_STRSEP
49#undef __HAVE_ARCH_STRSPN
50
51#if !defined(IN_ARCH_STRING_C)
52
53static inline void *memchr(const void * s, int c, size_t n)
54{
55	register int r0 asm("0") = (char) c;
56	const void *ret = s + n;
57
58	asm volatile(
59		"0:	srst	%0,%1\n"
60		"	jo	0b\n"
61		"	jl	1f\n"
62		"	la	%0,0\n"
63		"1:"
64		: "+a" (ret), "+&a" (s) : "d" (r0) : "cc");
65	return (void *) ret;
66}
67
68static inline void *memscan(void *s, int c, size_t n)
69{
70	register int r0 asm("0") = (char) c;
71	const void *ret = s + n;
72
73	asm volatile(
74		"0:	srst	%0,%1\n"
75		"	jo	0b\n"
76		: "+a" (ret), "+&a" (s) : "d" (r0) : "cc");
77	return (void *) ret;
78}
79
80static inline char *strcat(char *dst, const char *src)
81{
82	register int r0 asm("0") = 0;
83	unsigned long dummy;
84	char *ret = dst;
85
86	asm volatile(
87		"0:	srst	%0,%1\n"
88		"	jo	0b\n"
89		"1:	mvst	%0,%2\n"
90		"	jo	1b"
91		: "=&a" (dummy), "+a" (dst), "+a" (src)
92		: "d" (r0), "0" (0) : "cc", "memory" );
93	return ret;
94}
95
96static inline char *strcpy(char *dst, const char *src)
97{
98	register int r0 asm("0") = 0;
99	char *ret = dst;
100
101	asm volatile(
102		"0:	mvst	%0,%1\n"
103		"	jo	0b"
104		: "+&a" (dst), "+&a" (src) : "d" (r0)
105		: "cc", "memory");
106	return ret;
107}
108
109static inline size_t strlen(const char *s)
110{
111	register unsigned long r0 asm("0") = 0;
112	const char *tmp = s;
113
114	asm volatile(
115		"0:	srst	%0,%1\n"
116		"	jo	0b"
117		: "+d" (r0), "+a" (tmp) :  : "cc");
118	return r0 - (unsigned long) s;
119}
120
121static inline size_t strnlen(const char * s, size_t n)
122{
123	register int r0 asm("0") = 0;
124	const char *tmp = s;
125	const char *end = s + n;
126
127	asm volatile(
128		"0:	srst	%0,%1\n"
129		"	jo	0b"
130		: "+a" (end), "+a" (tmp) : "d" (r0)  : "cc");
131	return end - s;
132}
133#else /* IN_ARCH_STRING_C */
134void *memchr(const void * s, int c, size_t n);
135void *memscan(void *s, int c, size_t n);
136char *strcat(char *dst, const char *src);
137char *strcpy(char *dst, const char *src);
138size_t strlen(const char *s);
139size_t strnlen(const char * s, size_t n);
140#endif /* !IN_ARCH_STRING_C */
141
142#endif /* __S390_STRING_H_ */
143