← Back to branch summary

~ubuntu-branches/ubuntu/trusty/monodevelop/trusty-proposed

« back to all changes in this revision

Viewing changes to external/ikvm/runtime/fdlibm/fdlibm_h.cs

  • Committer: Package Import Robot
  • Author(s): Jo Shields
  • Date: 2013-05-12 09:46:03 UTC
  • mto: This revision was merged to the branch mainline in revision 29.
  • Revision ID: package-import@ubuntu.com-20130512094603-mad323bzcxvmcam0
Tags: upstream-4.0.5+dfsg
Import upstream version 4.0.5+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
external/ikvm/runtime/fdlibm/fdlibm_h.cs
 
1
 
 
2
 
 
3
/*
 
4
 * Copyright (c) 1998, 2002, Oracle and/or its affiliates. All rights reserved.
 
5
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 
6
 *
 
7
 * This code is free software; you can redistribute it and/or modify it
 
8
 * under the terms of the GNU General Public License version 2 only, as
 
9
 * published by the Free Software Foundation.  Oracle designates this
 
10
 * particular file as subject to the "Classpath" exception as provided
 
11
 * by Oracle in the LICENSE file that accompanied this code.
 
12
 *
 
13
 * This code is distributed in the hope that it will be useful, but WITHOUT
 
14
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 
15
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 
16
 * version 2 for more details (a copy is included in the LICENSE file that
 
17
 * accompanied this code).
 
18
 *
 
19
 * You should have received a copy of the GNU General Public License version
 
20
 * 2 along with this work; if not, write to the Free Software Foundation,
 
21
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
 
22
 *
 
23
 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
 
24
 * or visit www.oracle.com if you need additional information or have any
 
25
 * questions.
 
26
 */
 
27
 
 
28
using System;
 
29
 
 
30
static partial class fdlibm
 
31
{
 
32
        static int __HI(double x)
 
33
        {
 
34
                return (int)(BitConverter.DoubleToInt64Bits(x) >> 32);
 
35
        }
 
36
 
 
37
        static int __LO(double x)
 
38
        {
 
39
                return (int)BitConverter.DoubleToInt64Bits(x);
 
40
        }
 
41
 
 
42
        static double __HI(double x, int i)
 
43
        {
 
44
                long l = BitConverter.DoubleToInt64Bits(x) & 0xFFFFFFFFL;
 
45
                long h = (long)i << 32;
 
46
                return BitConverter.Int64BitsToDouble(l | h);
 
47
        }
 
48
 
 
49
        static double __LO(double x, int i)
 
50
        {
 
51
                long h = BitConverter.DoubleToInt64Bits(x) & ~0xFFFFFFFFL;
 
52
                return BitConverter.Int64BitsToDouble(h | (uint)i);
 
53
        }
 
54
 
 
55
        static double fabs(double d)
 
56
        {
 
57
                return Math.Abs(d);
 
58
        }
 
59
 
 
60
        static double sqrt(double d)
 
61
        {
 
62
                return Math.Sqrt(d);
 
63
        }
 
64
 
 
65
        static double copysign(double x, double y)
 
66
        {
 
67
                x = __HI(x, (__HI(x) & 0x7fffffff) | (__HI(y) & unchecked((int)0x80000000)));
 
68
                return x;
 
69
        }
 
70
}