GNU Octave
4.0.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
Main Page
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Properties
Friends
Macros
Pages
liboctave
util
sun-utils.h
Go to the documentation of this file.
1
/*
2
3
Copyright (C) 1993-2015 John W. Eaton
4
5
This file is part of Octave.
6
7
Octave is free software; you can redistribute it and/or modify it
8
under the terms of the GNU General Public License as published by the
9
Free Software Foundation; either version 3 of the License, or (at your
10
option) any later version.
11
12
Octave is distributed in the hope that it will be useful, but WITHOUT
13
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15
for more details.
16
17
You should have received a copy of the GNU General Public License
18
along with Octave; see the file COPYING. If not, see
19
<http://www.gnu.org/licenses/>.
20
21
*/
22
23
#if !defined (octave_sun_utils_h)
24
#define octave_sun_utils_h 1
25
26
// This is only needed to dereference pointers to doubles if mixing
27
// GCC and Sun SPARC f77/cc compiled code. See the GCC manual (where the
28
// function access_double() is described) and the Sun f77 manual,
29
// which explains that doubles are not always aligned on 8 byte
30
// boundaries.
31
32
#if defined (__sparc) && defined (__GNUC__)
33
34
inline
double
35
access_double (
double
*unaligned_ptr)
36
{
37
union
d2i {
double
d
;
int
i[2]; };
38
39
union
d2i *p = (
union
d2i *) unaligned_ptr;
40
union
d2i u;
41
42
u.i[0] = p->i[0];
43
u.i[1] = p->i[1];
44
45
return
u.d;
46
}
47
48
inline
void
49
assign_double (
double
*unaligned_ptr,
double
value)
50
{
51
union
d2i {
double
d
;
int
i[2]; };
52
53
double
*ptr = &value;
54
union
d2i *v = (
union
d2i *) ptr;
55
union
d2i *p = (
union
d2i *) unaligned_ptr;
56
57
p->i[0] = v->i[0];
58
p->i[1] = v->i[1];
59
}
60
61
#endif
62
#endif
d
F77_RET_T const double const double double * d
Definition:
__pchip_deriv__.cc:38
Generated on Thu Jun 4 2015 23:30:26 for GNU Octave by
1.8.8