Add unwind directives. Drop superfluous restore of ar.pfs.
[kopensolaris-gnu/glibc.git] / sysdeps / ia64 / strlen.S
1 /* Optimized version of the standard strlen() function.
2    This file is part of the GNU C Library.
3    Copyright (C) 2000, 2001 Free Software Foundation, Inc.
4    Contributed by Dan Pop <Dan.Pop@cern.ch>.
5
6    The GNU C Library is free software; you can redistribute it and/or
7    modify it under the terms of the GNU Library General Public License as
8    published by the Free Software Foundation; either version 2 of the
9    License, or (at your option) any later version.
10
11    The GNU C Library is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Library General Public License for more details.
15
16    You should have received a copy of the GNU Library General Public
17    License along with the GNU C Library; see the file COPYING.LIB.  If not,
18    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19    Boston, MA 02111-1307, USA.  */
20
21 /* Return: the length of the input string
22
23    Input:
24         in0:    str
25
26    Look for the null character byte by byte, until we reach a word aligned
27    address, then search word by word, using the czx instruction.  We're
28    also doing one word of read ahead, which could cause problems if the
29    null character is on the last word of a page and the next page is not
30    mapped in the process address space.  Hence the use of the speculative
31    load.
32
33    This implementation assumes little endian mode.  For big endian mode,
34    the instruction czx1.r should be replaced by czx1.l.  */
35
36 #include <sysdep.h>
37 #undef ret
38
39 #define saved_lc        r18
40 #define str             r19
41 #define pos0            r20
42 #define val1            r21
43 #define val2            r22
44 #define origadd         r23
45 #define tmp             r24
46 #define loopcnt         r30
47 #define len             ret0
48
49 ENTRY(strlen)
50         .prologue
51         alloc r2 = ar.pfs, 1, 0, 0, 0
52         .save ar.lc, saved_lc
53         mov     saved_lc = ar.lc        // save the loop counter
54         .body
55         mov     str = in0       
56         mov     len = r0                // len = 0
57         and     tmp = 7, in0            // tmp = str % 8
58         ;;
59         sub     loopcnt = 8, tmp        // loopcnt = 8 - tmp
60         cmp.eq  p6, p0 = tmp, r0
61 (p6)    br.cond.sptk    .str_aligned;;
62         adds    loopcnt = -1, loopcnt;;
63         mov     ar.lc = loopcnt
64 .l1:
65         ld1     val2 = [str], 1
66         ;;
67         cmp.eq  p6, p0 = val2, r0
68 (p6)    br.cond.spnt    .restore_and_exit
69         adds    len = 1, len
70         br.cloop.dptk   .l1
71 .str_aligned:
72         mov     origadd = str           // origadd = orig
73         ld8     val1 = [str], 8;;
74         nop.b   0
75         nop.b   0
76 l2:     ld8.s   val2 = [str], 8         // don't bomb out here
77         czx1.r  pos0 = val1     
78         ;;
79         cmp.ne  p6, p0 = 8, pos0
80 (p6)    br.cond.spnt .foundit
81         chk.s   val2, .recovery
82 .back:
83         mov     val1 = val2     
84         br.cond.dptk l2
85 .foundit:
86         sub     tmp = str, origadd      // tmp = crt address - orig
87         add     len = len, pos0;;
88         add     len = len, tmp;;
89         adds    len = -16, len
90 .restore_and_exit:
91         mov ar.lc = saved_lc            // restore the loop counter
92         br.ret.sptk.many b0
93 .recovery:
94         adds    str = -8, str;;
95         ld8     val2 = [str], 8         // bomb out here
96         br.cond.sptk    .back
97 END(strlen)