← Back to branch summary

~ubuntu-branches/ubuntu/natty/eglibc/natty-security

« back to all changes in this revision

Viewing changes to ports/sysdeps/alpha/soft-fp/ots_cmpe.c

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2009-08-03 10:17:12 UTC
  • mto: This revision was merged to the branch mainline in revision 8.
  • Revision ID: james.westby@ubuntu.com-20090803101712-n74r7xge7cwubmka
Tags: upstream-2.10.1
Import upstream version 2.10.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
ports/sysdeps/alpha/soft-fp/ots_cmpe.c
 
1
/* Software floating-point emulation: comparison.
 
2
   Copyright (C) 1997,1999,2004 Free Software Foundation, Inc.
 
3
   This file is part of the GNU C Library.
 
4
   Contributed by Richard Henderson (rth@cygnus.com) and
 
5
                  Jakub Jelinek (jj@ultra.linux.cz).
 
6
 
 
7
   The GNU C Library is free software; you can redistribute it and/or
 
8
   modify it under the terms of the GNU Lesser General Public
 
9
   License as published by the Free Software Foundation; either
 
10
   version 2.1 of the License, or (at your option) any later version.
 
11
 
 
12
   The GNU C Library is distributed in the hope that it will be useful,
 
13
   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
14
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
15
   Lesser General Public License for more details.
 
16
 
 
17
   You should have received a copy of the GNU Lesser General Public
 
18
   License along with the GNU C Library; if not, write to the Free
 
19
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 
20
   02111-1307 USA.  */
 
21
 
 
22
#include "local-soft-fp.h"
 
23
 
 
24
static long
 
25
internal_compare (long al, long ah, long bl, long bh)
 
26
{
 
27
  FP_DECL_EX;
 
28
  FP_DECL_Q(A); FP_DECL_Q(B);
 
29
  long r;
 
30
 
 
31
  FP_UNPACK_RAW_Q(A, a);
 
32
  FP_UNPACK_RAW_Q(B, b);
 
33
  FP_CMP_Q (r, A, B, 2);
 
34
 
 
35
  /* Relative comparisons signal invalid operation if either operand is NaN. */
 
36
  if (r == 2)
 
37
    {
 
38
      FP_SET_EXCEPTION(FP_EX_INVALID);
 
39
      FP_HANDLE_EXCEPTIONS;
 
40
    }
 
41
 
 
42
  return r;
 
43
}
 
44
 
 
45
long
 
46
_OtsLssX (long al, long ah, long bl, long bh)
 
47
{
 
48
  long r = internal_compare (al, ah, bl, bh);
 
49
  if (r == 2)
 
50
    return -1;
 
51
  else
 
52
    return r < 0;
 
53
}
 
54
 
 
55
long
 
56
_OtsLeqX (long al, long ah, long bl, long bh)
 
57
{
 
58
  long r = internal_compare (al, ah, bl, bh);
 
59
  if (r == 2)
 
60
    return -1;
 
61
  else
 
62
    return r <= 0;
 
63
}
 
64
 
 
65
long
 
66
_OtsGtrX (long al, long ah, long bl, long bh)
 
67
{
 
68
  long r = internal_compare (al, ah, bl, bh);
 
69
  if (r == 2)
 
70
    return -1;
 
71
  else
 
72
    return r > 0;
 
73
}
 
74
 
 
75
long
 
76
_OtsGeqX (long al, long ah, long bl, long bh)
 
77
{
 
78
  long r = internal_compare (al, ah, bl, bh);
 
79
  if (r == 2)
 
80
    return -1;
 
81
  else
 
82
    return r >= 0;
 
83
}