]> git.sur5r.net Git - u-boot/blob - lib/dhry/dhry_2.c
ARM64: zynqmp: Adjust to new SMC interface to get silicon version
[u-boot] / lib / dhry / dhry_2.c
1 /*
2  * (C) Copyright 2015 Google, Inc
3  *
4  * SPDX-License-Identifier:     GPL-2.0+
5  *
6  * Dhrystone is widely available in the public domain. A GPL license is
7  * chosen for U-Boot.
8  */
9
10 /*****************************************************************************
11  *  The BYTE UNIX Benchmarks - Release 3
12  *          Module: dhry_2.c   SID: 3.4 5/15/91 19:30:22
13  *          
14  *****************************************************************************
15  * Bug reports, patches, comments, suggestions should be sent to:
16  *
17  *      Ben Smith, Rick Grehan or Tom Yager
18  *      ben@bytepb.byte.com   rick_g@bytepb.byte.com   tyager@bytepb.byte.com
19  *
20  *****************************************************************************
21  *  Modification Log:
22  *  10/22/97 - code cleanup to remove ANSI C compiler warnings
23  *             Andy Kahn <kahn@zk3.dec.com>
24  *
25  *  Adapted from:
26  *
27  *                   "DHRYSTONE" Benchmark Program
28  *                   -----------------------------
29  *
30  * **** WARNING **** See warning in n.dhry_1.c
31  *                                                                            
32  *  Version:    C, Version 2.1
33  *                                                                            
34  *  File:       dhry_2.c (part 3 of 3)
35  *
36  *  Date:       May 25, 1988
37  *
38  *  Author:     Reinhold P. Weicker
39  *
40  ****************************************************************************/
41 /* SCCSid is defined in dhry_1.c */
42
43 #include <common.h>
44 #include "dhry.h"
45
46 #ifndef REG
47 #define REG
48         /* REG becomes defined as empty */
49         /* i.e. no register variables   */
50 #endif
51
52 extern  int     Int_Glob;
53 extern  char    Ch_1_Glob;
54
55 void Proc_6(Enumeration, Enumeration *);
56 void Proc_7(One_Fifty, One_Fifty, One_Fifty *);
57 void Proc_8(Arr_1_Dim, Arr_2_Dim, int, int);
58 Enumeration Func_1(Capital_Letter, Capital_Letter);
59 Boolean Func_2(Str_30, Str_30);
60 Boolean Func_3(Enumeration);
61
62 void Proc_6 (Enumeration Enum_Val_Par, Enumeration *Enum_Ref_Par)
63     /* executed once */
64     /* Enum_Val_Par == Ident_3, Enum_Ref_Par becomes Ident_2 */
65 {
66   *Enum_Ref_Par = Enum_Val_Par;
67   if (! Func_3 (Enum_Val_Par))
68     /* then, not executed */
69     *Enum_Ref_Par = Ident_4;
70   switch (Enum_Val_Par)
71   {
72     case Ident_1: 
73       *Enum_Ref_Par = Ident_1;
74       break;
75     case Ident_2: 
76       if (Int_Glob > 100)
77         /* then */
78       *Enum_Ref_Par = Ident_1;
79       else *Enum_Ref_Par = Ident_4;
80       break;
81     case Ident_3: /* executed */
82       *Enum_Ref_Par = Ident_2;
83       break;
84     case Ident_4: break;
85     case Ident_5: 
86       *Enum_Ref_Par = Ident_3;
87       break;
88   } /* switch */
89 } /* Proc_6 */
90
91 void Proc_7 (Int_1_Par_Val, Int_2_Par_Val, Int_Par_Ref)
92 One_Fifty       Int_1_Par_Val;
93 One_Fifty       Int_2_Par_Val;
94 One_Fifty      *Int_Par_Ref;
95 /**********************************************/
96     /* executed three times                                      */ 
97     /* first call:      Int_1_Par_Val == 2, Int_2_Par_Val == 3,  */
98     /*                  Int_Par_Ref becomes 7                    */
99     /* second call:     Int_1_Par_Val == 10, Int_2_Par_Val == 5, */
100     /*                  Int_Par_Ref becomes 17                   */
101     /* third call:      Int_1_Par_Val == 6, Int_2_Par_Val == 10, */
102     /*                  Int_Par_Ref becomes 18                   */
103 {
104   One_Fifty Int_Loc;
105
106   Int_Loc = Int_1_Par_Val + 2;
107   *Int_Par_Ref = Int_2_Par_Val + Int_Loc;
108 } /* Proc_7 */
109
110
111 void Proc_8 (Arr_1_Par_Ref, Arr_2_Par_Ref, Int_1_Par_Val, Int_2_Par_Val)
112 /*********************************************************************/
113     /* executed once      */
114     /* Int_Par_Val_1 == 3 */
115     /* Int_Par_Val_2 == 7 */
116 Arr_1_Dim       Arr_1_Par_Ref;
117 Arr_2_Dim       Arr_2_Par_Ref;
118 int             Int_1_Par_Val;
119 int             Int_2_Par_Val;
120 {
121   REG One_Fifty Int_Index;
122   REG One_Fifty Int_Loc;
123
124   Int_Loc = Int_1_Par_Val + 5;
125   Arr_1_Par_Ref [Int_Loc] = Int_2_Par_Val;
126   Arr_1_Par_Ref [Int_Loc+1] = Arr_1_Par_Ref [Int_Loc];
127   Arr_1_Par_Ref [Int_Loc+30] = Int_Loc;
128   for (Int_Index = Int_Loc; Int_Index <= Int_Loc+1; ++Int_Index)
129     Arr_2_Par_Ref [Int_Loc] [Int_Index] = Int_Loc;
130   Arr_2_Par_Ref [Int_Loc] [Int_Loc-1] += 1;
131   Arr_2_Par_Ref [Int_Loc+20] [Int_Loc] = Arr_1_Par_Ref [Int_Loc];
132   Int_Glob = 5;
133 } /* Proc_8 */
134
135
136 Enumeration Func_1 (Capital_Letter Ch_1_Par_Val, Capital_Letter Ch_2_Par_Val)
137 /*************************************************/
138     /* executed three times                                         */
139     /* first call:      Ch_1_Par_Val == 'H', Ch_2_Par_Val == 'R'    */
140     /* second call:     Ch_1_Par_Val == 'A', Ch_2_Par_Val == 'C'    */
141     /* third call:      Ch_1_Par_Val == 'B', Ch_2_Par_Val == 'C'    */
142 {
143   Capital_Letter        Ch_1_Loc;
144   Capital_Letter        Ch_2_Loc;
145
146   Ch_1_Loc = Ch_1_Par_Val;
147   Ch_2_Loc = Ch_1_Loc;
148   if (Ch_2_Loc != Ch_2_Par_Val)
149     /* then, executed */
150     return (Ident_1);
151   else  /* not executed */
152   {
153     Ch_1_Glob = Ch_1_Loc;
154     return (Ident_2);
155    }
156 } /* Func_1 */
157
158
159
160 Boolean Func_2 (Str_1_Par_Ref, Str_2_Par_Ref)
161 /*************************************************/
162     /* executed once */
163     /* Str_1_Par_Ref == "DHRYSTONE PROGRAM, 1'ST STRING" */
164     /* Str_2_Par_Ref == "DHRYSTONE PROGRAM, 2'ND STRING" */
165
166 Str_30  Str_1_Par_Ref;
167 Str_30  Str_2_Par_Ref;
168 {
169   REG One_Thirty        Int_Loc;
170       Capital_Letter    Ch_Loc;
171
172   Ch_Loc = 'A';
173   Int_Loc = 2;
174   while (Int_Loc <= 2) /* loop body executed once */
175     if (Func_1 (Str_1_Par_Ref[Int_Loc],
176                 Str_2_Par_Ref[Int_Loc+1]) == Ident_1)
177       /* then, executed */
178     {
179       Ch_Loc = 'A';
180       Int_Loc += 1;
181     } /* if, while */
182   if (Ch_Loc >= 'W' && Ch_Loc < 'Z')
183     /* then, not executed */
184     Int_Loc = 7;
185   if (Ch_Loc == 'R')
186     /* then, not executed */
187     return (true);
188   else /* executed */
189   {
190     if (strcmp (Str_1_Par_Ref, Str_2_Par_Ref) > 0)
191       /* then, not executed */
192     {
193       Int_Loc += 7;
194       Int_Glob = Int_Loc;
195       return (true);
196     }
197     else /* executed */
198       return (false);
199   } /* if Ch_Loc */
200 } /* Func_2 */
201
202
203 Boolean Func_3 (Enum_Par_Val)
204 /***************************/
205     /* executed once        */
206     /* Enum_Par_Val == Ident_3 */
207 Enumeration Enum_Par_Val;
208 {
209   Enumeration Enum_Loc;
210
211   Enum_Loc = Enum_Par_Val;
212   if (Enum_Loc == Ident_3)
213     /* then, executed */
214     return (true);
215   else /* not executed */
216     return (false);
217 } /* Func_3 */