URL https://opencores.org/ocsvn/or1k_soc_on_altera_embedded_dev_kit/or1k_soc_on_altera_embedded_dev_kit/trunk

Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

[/] [or1k_soc_on_altera_embedded_dev_kit/] [trunk/] [linux-2.6/] [linux-2.6.24/] [arch/] [powerpc/] [lib/] [string.S] - Blame information for rev 3

Details | Compare with Previous | View Log


/*
 * String handling functions for PowerPC.
 *
 * Copyright (C) 1996 Paul Mackerras.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version
 * 2 of the License, or (at your option) any later version.
 */
#include 
#include 
#include 
 
        .section __ex_table,"a"
#ifdef CONFIG_PPC64
        .align  3
#define EXTBL   .llong
#else
        .align  2
#define EXTBL   .long
#endif
        .text
 
_GLOBAL(strcpy)
        addi    r5,r3,-1
        addi    r4,r4,-1
1:      lbzu    r0,1(r4)
        cmpwi   0,r0,0
        stbu    r0,1(r5)
        bne     1b
        blr
 
/* This clears out any unused part of the destination buffer,
   just as the libc version does.  -- paulus */
_GLOBAL(strncpy)
        cmpwi   0,r5,0
        beqlr
        mtctr   r5
        addi    r6,r3,-1
        addi    r4,r4,-1
1:      lbzu    r0,1(r4)
        cmpwi   0,r0,0
        stbu    r0,1(r6)
        bdnzf   2,1b            /* dec ctr, branch if ctr != 0 && !cr0.eq */
        bnelr                   /* if we didn't hit a null char, we're done */
        mfctr   r5
        cmpwi   0,r5,0          /* any space left in destination buffer? */
        beqlr                   /* we know r0 == 0 here */
2:      stbu    r0,1(r6)        /* clear it out if so */
        bdnz    2b
        blr
 
_GLOBAL(strcat)
        addi    r5,r3,-1
        addi    r4,r4,-1
1:      lbzu    r0,1(r5)
        cmpwi   0,r0,0
        bne     1b
        addi    r5,r5,-1
1:      lbzu    r0,1(r4)
        cmpwi   0,r0,0
        stbu    r0,1(r5)
        bne     1b
        blr
 
_GLOBAL(strcmp)
        addi    r5,r3,-1
        addi    r4,r4,-1
1:      lbzu    r3,1(r5)
        cmpwi   1,r3,0
        lbzu    r0,1(r4)
        subf.   r3,r0,r3
        beqlr   1
        beq     1b
        blr
 
_GLOBAL(strlen)
        addi    r4,r3,-1
1:      lbzu    r0,1(r4)
        cmpwi   0,r0,0
        bne     1b
        subf    r3,r3,r4
        blr
 
_GLOBAL(memcmp)
        cmpwi   0,r5,0
        ble-    2f
        mtctr   r5
        addi    r6,r3,-1
        addi    r4,r4,-1
1:      lbzu    r3,1(r6)
        lbzu    r0,1(r4)
        subf.   r3,r0,r3
        bdnzt   2,1b
        blr
2:      li      r3,0
        blr
 
_GLOBAL(memchr)
        cmpwi   0,r5,0
        ble-    2f
        mtctr   r5
        addi    r3,r3,-1
1:      lbzu    r0,1(r3)
        cmpw    0,r0,r4
        bdnzf   2,1b
        beqlr
2:      li      r3,0
        blr
 
_GLOBAL(__clear_user)
        addi    r6,r3,-4
        li      r3,0
        li      r5,0
        cmplwi  0,r4,4
        blt     7f
        /* clear a single word */
11:     stwu    r5,4(r6)
        beqlr
        /* clear word sized chunks */
        andi.   r0,r6,3
        add     r4,r0,r4
        subf    r6,r0,r6
        srwi    r0,r4,2
        andi.   r4,r4,3
        mtctr   r0
        bdz     7f
1:      stwu    r5,4(r6)
        bdnz    1b
        /* clear byte sized chunks */
7:      cmpwi   0,r4,0
        beqlr
        mtctr   r4
        addi    r6,r6,3
8:      stbu    r5,1(r6)
        bdnz    8b
        blr
90:     mr      r3,r4
        blr
91:     mfctr   r3
        slwi    r3,r3,2
        add     r3,r3,r4
        blr
92:     mfctr   r3
        blr
 
        .section __ex_table,"a"
        EXTBL   11b,90b
        EXTBL   1b,91b
        EXTBL   8b,92b
        .text
 
_GLOBAL(__strncpy_from_user)
        addi    r6,r3,-1
        addi    r4,r4,-1
        cmpwi   0,r5,0
        beq     2f
        mtctr   r5
1:      lbzu    r0,1(r4)
        cmpwi   0,r0,0
        stbu    r0,1(r6)
        bdnzf   2,1b            /* dec ctr, branch if ctr != 0 && !cr0.eq */
        beq     3f
2:      addi    r6,r6,1
3:      subf    r3,r3,r6
        blr
99:     li      r3,-EFAULT
        blr
 
        .section __ex_table,"a"
        EXTBL   1b,99b
        .text
 
/* r3 = str, r4 = len (> 0), r5 = top (highest addr) */
_GLOBAL(__strnlen_user)
        addi    r7,r3,-1
        subf    r6,r7,r5        /* top+1 - str */
        cmplw   0,r4,r6
        bge     0f
        mr      r6,r4
0:      mtctr   r6              /* ctr = min(len, top - str) */
1:      lbzu    r0,1(r7)        /* get next byte */
        cmpwi   0,r0,0
        bdnzf   2,1b            /* loop if --ctr != 0 && byte != 0 */
        addi    r7,r7,1
        subf    r3,r3,r7        /* number of bytes we have looked at */
        beqlr                   /* return if we found a 0 byte */
        cmpw    0,r3,r4         /* did we look at all len bytes? */
        blt     99f             /* if not, must have hit top */
        addi    r3,r4,1         /* return len + 1 to indicate no null found */
        blr
99:     li      r3,0            /* bad address, return 0 */
        blr
 
        .section __ex_table,"a"
        EXTBL   1b,99b

Line No.	Rev	Author	Line
1	3	xianfeng	`/*`
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`
12			`#include`
13			`#include`
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`

Browse

Tools

Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

[/] [or1k_soc_on_altera_embedded_dev_kit/] [trunk/] [linux-2.6/] [linux-2.6.24/] [arch/] [powerpc/] [lib/] [string.S] - Blame information for rev 3