OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [cxb/] [cxb30040.c] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
/*
2
-- CXB30040.C
3
--
4
--                             Grant of Unlimited Rights
5
--
6
--     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
7
--     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
8
--     unlimited rights in the software and documentation contained herein.
9
--     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making
10
--     this public release, the Government intends to confer upon all
11
--     recipients unlimited rights  equal to those held by the Government.
12
--     These rights include rights to use, duplicate, release or disclose the
13
--     released technical data and computer software in whole or in part, in
14
--     any manner and for any purpose whatsoever, and to have or permit others
15
--     to do so.
16
--
17
--                                    DISCLAIMER
18
--
19
--     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
20
--     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
21
--     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
22
--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
23
--     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
24
--     PARTICULAR PURPOSE OF SAID MATERIAL.
25
--*
26
--
27
-- FUNCTION NAME: CXB30040   ("char_gen")
28
--
29
-- FUNCTION DESCRIPTION:
30
--      This C function returns the value of type char corresponding to the
31
--      value of its parameter, where
32
--          Val  0 ..  9 ==> '0' .. '9'
33
--          Val 10 .. 19 ==> 'A' .. 'J'
34
--          Val 20 .. 29 ==> 'k' .. 't'
35
--          Val 30       ==> ' '
36
--          Val 31       ==> '.'
37
--          Val 32       ==> ','
38
--
39
-- INPUT:
40
--      This function requires that one int parameter be passed to it.
41
--
42
-- OUTPUT:
43
--      The function will return the appropriate value of type char.
44
--
45
-- CHANGE HISTORY:
46
--      13 Sep 99   RLB     Created function to replace incorrect
47
--                          Unchecked_Conversion.
48
--
49
--!
50
*/
51
 
52
char CXB30040 (int val)
53
 
54
/* NOTE: The above function definition should be accepted by an ANSI-C   */
55
/*       compiler.  Older C compilers may reject it; they may, however   */
56
/*       accept the following two lines.  An implementation may comment  */
57
/*       out the above function definition and uncomment the following   */
58
/*       one.  Otherwise, an implementation must provide the necessary   */
59
/*       modifications to this C code to satisfy the function            */
60
/*       requirements (see Function Description).                        */
61
/*                                                                       */
62
/*  char CXB30040 (val)                                                  */
63
/*     int     val;                                                      */
64
/*                                                                       */
65
 
66
{  char return_value = ';';
67
 
68
   switch (val)
69
   {
70
      case 0:
71
         return_value = '0';
72
         break;
73
      case 1:
74
         return_value = '1';
75
         break;
76
      case 2:
77
         return_value = '2';
78
         break;
79
      case 3:
80
         return_value = '3';
81
         break;
82
      case 4:
83
         return_value = '4';
84
         break;
85
      case 5:
86
         return_value = '5';
87
         break;
88
      case 6:
89
         return_value = '6';
90
         break;
91
      case 7:
92
         return_value = '7';
93
         break;
94
      case 8:
95
         return_value = '8';
96
         break;
97
      case 9:
98
         return_value = '9';
99
         break;
100
      case 10:
101
         return_value = 'A';
102
         break;
103
      case 11:
104
         return_value = 'B';
105
         break;
106
      case 12:
107
         return_value = 'C';
108
         break;
109
      case 13:
110
         return_value = 'D';
111
         break;
112
      case 14:
113
         return_value = 'E';
114
         break;
115
      case 15:
116
         return_value = 'F';
117
         break;
118
      case 16:
119
         return_value = 'G';
120
         break;
121
      case 17:
122
         return_value = 'H';
123
         break;
124
      case 18:
125
         return_value = 'I';
126
         break;
127
      case 19:
128
         return_value = 'J';
129
         break;
130
      case 20:
131
         return_value = 'k';
132
         break;
133
      case 21:
134
         return_value = 'l';
135
         break;
136
      case 22:
137
         return_value = 'm';
138
         break;
139
      case 23:
140
         return_value = 'n';
141
         break;
142
      case 24:
143
         return_value = 'o';
144
         break;
145
      case 25:
146
         return_value = 'p';
147
         break;
148
      case 26:
149
         return_value = 'q';
150
         break;
151
      case 27:
152
         return_value = 'r';
153
         break;
154
      case 28:
155
         return_value = 's';
156
         break;
157
      case 29:
158
         return_value = 't';
159
         break;
160
      case 30:
161
         return_value = ' ';
162
         break;
163
      case 31:
164
         return_value = '.';
165
         break;
166
      case 32:
167
         return_value = ',';
168
         break;
169
   }
170
 
171
   return (return_value); /* Return character value */
172
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.