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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libc/] [machine/] [i386/] [strchr.S] - Blame information for rev 158

Details | Compare with Previous | View Log


/*
 * ====================================================
 * Copyright (C) 1998, 2002, 2008 by Red Hat Inc. All rights reserved.
 *
 * Permission to use, copy, modify, and distribute this
 * software is freely granted, provided that this notice
 * is preserved.
 * ====================================================
 */
 
        #include "i386mach.h"
 
        .global SYM (strchr)
       SOTYPE_FUNCTION(strchr)
 
SYM (strchr):
 
        pushl ebp
        movl esp,ebp
        pushl edi
        pushl ebx
        xorl ebx,ebx
        movl 8(ebp),edi
        addb 12(ebp),bl
 
#ifndef __OPTIMIZE_SIZE__
/* Special case strchr(p,0).  */
        je L25
 
/* Do byte-wise checks until string is aligned.  */
        test $3,edi
        je L5
        movl edi,eax
        movb (eax),cl
        testb cl,cl
        je L14
        cmpb bl,cl
        je L19
        incl edi
 
        test $3,edi
        je L5
        movl edi,eax
        movb (eax),cl
        testb cl,cl
        je L14
        cmpb bl,cl
        je L19
        incl edi
 
        test $3,edi
        je L5
        movl edi,eax
        movb (eax),cl
        testb cl,cl
        je L14
        cmpb bl,cl
        je L19
        incl edi
 
/* create 4 byte mask which is just the desired byte repeated 4 times */
L5:
        movl ebx,ecx
        sall $8,ebx
        subl $4,edi
        orl ecx,ebx
        movl ebx,edx
        sall $16,ebx
        orl edx,ebx
 
/* loop performing 4 byte mask checking for 0 byte or desired byte */
        .p2align 4,,7
L10:
        addl $4,edi
        movl (edi),ecx
        leal -16843009(ecx),edx
        movl ecx,eax
        notl eax
        andl eax,edx
        testl $-2139062144,edx
        jne L9
 
        xorl ebx,ecx
        leal -16843009(ecx),edx
        notl ecx
        andl ecx,edx
        testl $-2139062144,edx
        je L10
#endif /* not __OPTIMIZE_SIZE__ */
 
/* loop while (*s && *s++ != c) */
L9:
        leal -1(edi),eax
        .p2align 4,,7
L15:
        incl eax
        movb (eax),dl
        testb dl,dl
        je L14
        cmpb bl,dl
        jne L15
 
L14:
/*  if (*s == c) return address otherwise return NULL */
        cmpb bl,(eax)
        je L19
        xorl eax,eax
 
L19:
        leal -8(ebp),esp
        popl ebx
        popl edi
        leave
        ret
 
#ifndef __OPTIMIZE_SIZE__
/* Special case strchr(p,0).  */
#if 0
        /* Hideous performance on modern machines.  */
L25:
        cld
        movl $-1,ecx
        xor eax,eax
        repnz
        scasb
        leal -1(edi),eax
        jmp L19
#endif
L25:
/* Do byte-wise checks until string is aligned.  */
        test $3,edi
        je L26
        movl edi,eax
        movb (eax),cl
        testb cl,cl
        je L19
        incl edi
 
        test $3,edi
        je L26
        movl edi,eax
        movb (eax),cl
        testb cl,cl
        je L19
        incl edi
 
        test $3,edi
        je L26
        movl edi,eax
        movb (eax),cl
        testb cl,cl
        je L19
        incl edi
 
L26:
        subl $4,edi
 
/* loop performing 4 byte mask checking for desired 0 byte */
        .p2align 4,,7
L27:
        addl $4,edi
        movl (edi),ecx
        leal -16843009(ecx),edx
        movl ecx,eax
        notl eax
        andl eax,edx
        testl $-2139062144,edx
        je L27
 
        jmp L9
 
#endif /* !__OPTIMIZE_SIZE__ */

Line No.	Rev	Author	Line
1	148	jeremybenn	`/*`
2			`* ====================================================`
3			`* Copyright (C) 1998, 2002, 2008 by Red Hat Inc. All rights reserved.`
4			`*`
5			`* Permission to use, copy, modify, and distribute this`
6			`* software is freely granted, provided that this notice`
7			`* is preserved.`
8			`* ====================================================`
9			`*/`
10
11			`#include "i386mach.h"`
12
13			`.global SYM (strchr)`
14			`SOTYPE_FUNCTION(strchr)`
15
16			`SYM (strchr):`
17
18			`pushl ebp`
19			`movl esp,ebp`
20			`pushl edi`
21			`pushl ebx`
22			`xorl ebx,ebx`
23			`movl 8(ebp),edi`
24			`addb 12(ebp),bl`
25
26			`#ifndef __OPTIMIZE_SIZE__`
27			`/* Special case strchr(p,0). */`
28			`je L25`
29
30			`/* Do byte-wise checks until string is aligned. */`
31			`test $3,edi`
32			`je L5`
33			`movl edi,eax`
34			`movb (eax),cl`
35			`testb cl,cl`
36			`je L14`
37			`cmpb bl,cl`
38			`je L19`
39			`incl edi`
40
41			`test $3,edi`
42			`je L5`
43			`movl edi,eax`
44			`movb (eax),cl`
45			`testb cl,cl`
46			`je L14`
47			`cmpb bl,cl`
48			`je L19`
49			`incl edi`
50
51			`test $3,edi`
52			`je L5`
53			`movl edi,eax`
54			`movb (eax),cl`
55			`testb cl,cl`
56			`je L14`
57			`cmpb bl,cl`
58			`je L19`
59			`incl edi`
60
61			`/* create 4 byte mask which is just the desired byte repeated 4 times */`
62			`L5:`
63			`movl ebx,ecx`
64			`sall $8,ebx`
65			`subl $4,edi`
66			`orl ecx,ebx`
67			`movl ebx,edx`
68			`sall $16,ebx`
69			`orl edx,ebx`
70
71			`/* loop performing 4 byte mask checking for 0 byte or desired byte */`
72			`.p2align 4,,7`
73			`L10:`
74			`addl $4,edi`
75			`movl (edi),ecx`
76			`leal -16843009(ecx),edx`
77			`movl ecx,eax`
78			`notl eax`
79			`andl eax,edx`
80			`testl $-2139062144,edx`
81			`jne L9`
82
83			`xorl ebx,ecx`
84			`leal -16843009(ecx),edx`
85			`notl ecx`
86			`andl ecx,edx`
87			`testl $-2139062144,edx`
88			`je L10`
89			`#endif /* not __OPTIMIZE_SIZE__ */`
90
91			`/* loop while (s && s++ != c) */`
92			`L9:`
93			`leal -1(edi),eax`
94			`.p2align 4,,7`
95			`L15:`
96			`incl eax`
97			`movb (eax),dl`
98			`testb dl,dl`
99			`je L14`
100			`cmpb bl,dl`
101			`jne L15`
102
103			`L14:`
104			`/* if (s == c) return address otherwise return NULL /`
105			`cmpb bl,(eax)`
106			`je L19`
107			`xorl eax,eax`
108
109			`L19:`
110			`leal -8(ebp),esp`
111			`popl ebx`
112			`popl edi`
113			`leave`
114			`ret`
115
116			`#ifndef __OPTIMIZE_SIZE__`
117			`/* Special case strchr(p,0). */`
118			`#if 0`
119			`/* Hideous performance on modern machines. */`
120			`L25:`
121			`cld`
122			`movl $-1,ecx`
123			`xor eax,eax`
124			`repnz`
125			`scasb`
126			`leal -1(edi),eax`
127			`jmp L19`
128			`#endif`
129			`L25:`
130			`/* Do byte-wise checks until string is aligned. */`
131			`test $3,edi`
132			`je L26`
133			`movl edi,eax`
134			`movb (eax),cl`
135			`testb cl,cl`
136			`je L19`
137			`incl edi`
138
139			`test $3,edi`
140			`je L26`
141			`movl edi,eax`
142			`movb (eax),cl`
143			`testb cl,cl`
144			`je L19`
145			`incl edi`
146
147			`test $3,edi`
148			`je L26`
149			`movl edi,eax`
150			`movb (eax),cl`
151			`testb cl,cl`
152			`je L19`
153			`incl edi`
154
155			`L26:`
156			`subl $4,edi`
157
158			`/* loop performing 4 byte mask checking for desired 0 byte */`
159			`.p2align 4,,7`
160			`L27:`
161			`addl $4,edi`
162			`movl (edi),ecx`
163			`leal -16843009(ecx),edx`
164			`movl ecx,eax`
165			`notl eax`
166			`andl eax,edx`
167			`testl $-2139062144,edx`
168			`je L27`
169
170			`jmp L9`
171
172			`#endif /* !__OPTIMIZE_SIZE__ */`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libc/] [machine/] [i386/] [strchr.S] - Blame information for rev 158