initialize graph data to NaN;
[dyninst.git] / pdutil / src / makenan.C
1 /*
2  * Copyright (c) 1996 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * This license is for research uses.  For such uses, there is no
12  * charge. We define "research use" to mean you may freely use it
13  * inside your organization for whatever purposes you see fit. But you
14  * may not re-distribute Paradyn or parts of Paradyn, in any form
15  * source or binary (including derivatives), electronic or otherwise,
16  * to any other organization or entity without our permission.
17  * 
18  * (for other uses, please contact us at paradyn@cs.wisc.edu)
19  * 
20  * All warranties, including without limitation, any warranty of
21  * merchantability or fitness for a particular purpose, are hereby
22  * excluded.
23  * 
24  * By your use of Paradyn, you understand and agree that we (or any
25  * other person or entity with proprietary rights in Paradyn) are
26  * under no obligation to provide either maintenance services,
27  * update services, notices of latent defects, or correction of
28  * defects for Paradyn.
29  * 
30  * Even if advised of the possibility of such damages, under no
31  * circumstances shall we (or any other person or entity with
32  * proprietary rights in the software licensed hereunder) be liable
33  * to you or any third party for direct, indirect, or consequential
34  * damages of any character regardless of type of action, including,
35  * without limitation, loss of profits, loss of use, loss of good
36  * will, or computer failure or malfunction.  You agree to indemnify
37  * us (and any other person or entity with proprietary rights in the
38  * software licensed hereunder) for any and all liability it may
39  * incur to third parties resulting from your use of Paradyn.
40  */
41
42 // $Id: makenan.C,v 1.16 2000/07/28 17:22:35 pcroth Exp $
43
44 #include "pdutil/h/makenan.h"
45 #include "common/h/headers.h"
46 #include <math.h>
47 #include <assert.h>
48
49 static float f_paradyn_nan = 0.0;
50 static bool nan_created = false;
51
52 float
53 make_Nan()
54 {
55     if(!nan_created)
56     {
57         /* Are we little or big endian?  From Harbison&Steele.  */
58         union
59         {
60             unsigned char c[sizeof(long)];
61             long l;
62         } u;
63
64         u.l = 1;
65
66         union
67         {
68             unsigned char nan_bytes[4];
69             float nan_float;
70         } nan_u;
71
72         //
73         // Bit pattern for IEEE 754 NaN 32-bit value is 0x7fc00000
74         //
75         if (u.c[sizeof (long) - 1] == 1)
76         {
77             // big endian
78             nan_u.nan_bytes[0] = 0x7f;
79             nan_u.nan_bytes[1] = 0xc0;
80             nan_u.nan_bytes[2] = 0x00;
81             nan_u.nan_bytes[3] = 0x00;
82         }
83         else
84         {
85             // little endian
86             nan_u.nan_bytes[0] = 0x00;
87             nan_u.nan_bytes[1] = 0x00;
88             nan_u.nan_bytes[2] = 0xc0;
89             nan_u.nan_bytes[3] = 0x7f;
90         }
91
92         f_paradyn_nan = nan_u.nan_float;
93         bool aflag=(isnan(f_paradyn_nan)!=0);
94         assert(aflag);
95         nan_created = true;
96     }
97     return f_paradyn_nan;
98 }
99