[PATCH] Make mkcompile_h use LANG=C and LC_ALL=C for $CC -v
[linux-2.6.git] / arch / powerpc / lib / string.S
1 /*
2  * String handling functions for PowerPC.
3  *
4  * Copyright (C) 1996 Paul Mackerras.
5  *
6  * This program is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU General Public License
8  * as published by the Free Software Foundation; either version
9  * 2 of the License, or (at your option) any later version.
10  */
11 #include <asm/processor.h>
12 #include <asm/errno.h>
13 #include <asm/ppc_asm.h>
14
15         .section __ex_table,"a"
16 #ifdef CONFIG_PPC64
17         .align  3
18 #define EXTBL   .llong
19 #else
20         .align  2
21 #define EXTBL   .long
22 #endif
23         .text
24         
25 _GLOBAL(strcpy)
26         addi    r5,r3,-1
27         addi    r4,r4,-1
28 1:      lbzu    r0,1(r4)
29         cmpwi   0,r0,0
30         stbu    r0,1(r5)
31         bne     1b
32         blr
33
34 /* This clears out any unused part of the destination buffer,
35    just as the libc version does.  -- paulus */
36 _GLOBAL(strncpy)
37         cmpwi   0,r5,0
38         beqlr
39         mtctr   r5
40         addi    r6,r3,-1
41         addi    r4,r4,-1
42 1:      lbzu    r0,1(r4)
43         cmpwi   0,r0,0
44         stbu    r0,1(r6)
45         bdnzf   2,1b            /* dec ctr, branch if ctr != 0 && !cr0.eq */
46         bnelr                   /* if we didn't hit a null char, we're done */
47         mfctr   r5
48         cmpwi   0,r5,0          /* any space left in destination buffer? */
49         beqlr                   /* we know r0 == 0 here */
50 2:      stbu    r0,1(r6)        /* clear it out if so */
51         bdnz    2b
52         blr
53
54 _GLOBAL(strcat)
55         addi    r5,r3,-1
56         addi    r4,r4,-1
57 1:      lbzu    r0,1(r5)
58         cmpwi   0,r0,0
59         bne     1b
60         addi    r5,r5,-1
61 1:      lbzu    r0,1(r4)
62         cmpwi   0,r0,0
63         stbu    r0,1(r5)
64         bne     1b
65         blr
66
67 _GLOBAL(strcmp)
68         addi    r5,r3,-1
69         addi    r4,r4,-1
70 1:      lbzu    r3,1(r5)
71         cmpwi   1,r3,0
72         lbzu    r0,1(r4)
73         subf.   r3,r0,r3
74         beqlr   1
75         beq     1b
76         blr
77
78 _GLOBAL(strlen)
79         addi    r4,r3,-1
80 1:      lbzu    r0,1(r4)
81         cmpwi   0,r0,0
82         bne     1b
83         subf    r3,r3,r4
84         blr
85
86 _GLOBAL(memcmp)
87         cmpwi   0,r5,0
88         ble-    2f
89         mtctr   r5
90         addi    r6,r3,-1
91         addi    r4,r4,-1
92 1:      lbzu    r3,1(r6)
93         lbzu    r0,1(r4)
94         subf.   r3,r0,r3
95         bdnzt   2,1b
96         blr
97 2:      li      r3,0
98         blr
99
100 _GLOBAL(memchr)
101         cmpwi   0,r5,0
102         ble-    2f
103         mtctr   r5
104         addi    r3,r3,-1
105 1:      lbzu    r0,1(r3)
106         cmpw    0,r0,r4
107         bdnzf   2,1b
108         beqlr
109 2:      li      r3,0
110         blr
111
112 _GLOBAL(__clear_user)
113         addi    r6,r3,-4
114         li      r3,0
115         li      r5,0
116         cmplwi  0,r4,4
117         blt     7f
118         /* clear a single word */
119 11:     stwu    r5,4(r6)
120         beqlr
121         /* clear word sized chunks */
122         andi.   r0,r6,3
123         add     r4,r0,r4
124         subf    r6,r0,r6
125         srwi    r0,r4,2
126         andi.   r4,r4,3
127         mtctr   r0
128         bdz     7f
129 1:      stwu    r5,4(r6)
130         bdnz    1b
131         /* clear byte sized chunks */
132 7:      cmpwi   0,r4,0
133         beqlr
134         mtctr   r4
135         addi    r6,r6,3
136 8:      stbu    r5,1(r6)
137         bdnz    8b
138         blr
139 90:     mr      r3,r4
140         blr
141 91:     mfctr   r3
142         slwi    r3,r3,2
143         add     r3,r3,r4
144         blr
145 92:     mfctr   r3
146         blr
147
148         .section __ex_table,"a"
149         EXTBL   11b,90b
150         EXTBL   1b,91b
151         EXTBL   8b,92b
152         .text
153
154 _GLOBAL(__strncpy_from_user)
155         addi    r6,r3,-1
156         addi    r4,r4,-1
157         cmpwi   0,r5,0
158         beq     2f
159         mtctr   r5
160 1:      lbzu    r0,1(r4)
161         cmpwi   0,r0,0
162         stbu    r0,1(r6)
163         bdnzf   2,1b            /* dec ctr, branch if ctr != 0 && !cr0.eq */
164         beq     3f
165 2:      addi    r6,r6,1
166 3:      subf    r3,r3,r6
167         blr
168 99:     li      r3,-EFAULT
169         blr
170
171         .section __ex_table,"a"
172         EXTBL   1b,99b
173         .text
174
175 /* r3 = str, r4 = len (> 0), r5 = top (highest addr) */
176 _GLOBAL(__strnlen_user)
177         addi    r7,r3,-1
178         subf    r6,r7,r5        /* top+1 - str */
179         cmplw   0,r4,r6
180         bge     0f
181         mr      r6,r4
182 0:      mtctr   r6              /* ctr = min(len, top - str) */
183 1:      lbzu    r0,1(r7)        /* get next byte */
184         cmpwi   0,r0,0
185         bdnzf   2,1b            /* loop if --ctr != 0 && byte != 0 */
186         addi    r7,r7,1
187         subf    r3,r3,r7        /* number of bytes we have looked at */
188         beqlr                   /* return if we found a 0 byte */
189         cmpw    0,r3,r4         /* did we look at all len bytes? */
190         blt     99f             /* if not, must have hit top */
191         addi    r3,r4,1         /* return len + 1 to indicate no null found */
192         blr
193 99:     li      r3,0            /* bad address, return 0 */
194         blr
195
196         .section __ex_table,"a"
197         EXTBL   1b,99b