1/* SPDX-License-Identifier: (GPL-2.0-only OR BSD-2-Clause) */
2/*
3 ****************************************************************************
4 *
5 *                   "DHRYSTONE" Benchmark Program
6 *                   -----------------------------
7 *
8 *  Version:    C, Version 2.1
9 *
10 *  File:       dhry.h (part 1 of 3)
11 *
12 *  Date:       May 25, 1988
13 *
14 *  Author:     Reinhold P. Weicker
15 *                      Siemens AG, AUT E 51
16 *                      Postfach 3220
17 *                      8520 Erlangen
18 *                      Germany (West)
19 *                              Phone:  [+49]-9131-7-20330
20 *                                      (8-17 Central European Time)
21 *                              Usenet: ..!mcsun!unido!estevax!weicker
22 *
23 *              Original Version (in Ada) published in
24 *              "Communications of the ACM" vol. 27., no. 10 (Oct. 1984),
25 *              pp. 1013 - 1030, together with the statistics
26 *              on which the distribution of statements etc. is based.
27 *
28 *              In this C version, the following C library functions are used:
29 *              - strcpy, strcmp (inside the measurement loop)
30 *              - printf, scanf (outside the measurement loop)
31 *              In addition, Berkeley UNIX system calls "times ()" or "time ()"
32 *              are used for execution time measurement. For measurements
33 *              on other systems, these calls have to be changed.
34 *
35 *  Collection of Results:
36 *              Reinhold Weicker (address see above) and
37 *
38 *              Rick Richardson
39 *              PC Research. Inc.
40 *              94 Apple Orchard Drive
41 *              Tinton Falls, NJ 07724
42 *                      Phone:  (201) 389-8963 (9-17 EST)
43 *                      Usenet: ...!uunet!pcrat!rick
44 *
45 *      Please send results to Rick Richardson and/or Reinhold Weicker.
46 *      Complete information should be given on hardware and software used.
47 *      Hardware information includes: Machine type, CPU, type and size
48 *      of caches; for microprocessors: clock frequency, memory speed
49 *      (number of wait states).
50 *      Software information includes: Compiler (and runtime library)
51 *      manufacturer and version, compilation switches, OS version.
52 *      The Operating System version may give an indication about the
53 *      compiler; Dhrystone itself performs no OS calls in the measurement loop.
54 *
55 *      The complete output generated by the program should be mailed
56 *      such that at least some checks for correctness can be made.
57 *
58 ***************************************************************************
59 *
60 *  History:    This version C/2.1 has been made for two reasons:
61 *
62 *              1) There is an obvious need for a common C version of
63 *              Dhrystone, since C is at present the most popular system
64 *              programming language for the class of processors
65 *              (microcomputers, minicomputers) where Dhrystone is used most.
66 *              There should be, as far as possible, only one C version of
67 *              Dhrystone such that results can be compared without
68 *              restrictions. In the past, the C versions distributed
69 *              by Rick Richardson (Version 1.1) and by Reinhold Weicker
70 *              had small (though not significant) differences.
71 *
72 *              2) As far as it is possible without changes to the Dhrystone
73 *              statistics, optimizing compilers should be prevented from
74 *              removing significant statements.
75 *
76 *              This C version has been developed in cooperation with
77 *              Rick Richardson (Tinton Falls, NJ), it incorporates many
78 *              ideas from the "Version 1.1" distributed previously by
79 *              him over the UNIX network Usenet.
80 *              I also thank Chaim Benedelac (National Semiconductor),
81 *              David Ditzel (SUN), Earl Killian and John Mashey (MIPS),
82 *              Alan Smith and Rafael Saavedra-Barrera (UC at Berkeley)
83 *              for their help with comments on earlier versions of the
84 *              benchmark.
85 *
86 *  Changes:    In the initialization part, this version follows mostly
87 *              Rick Richardson's version distributed via Usenet, not the
88 *              version distributed earlier via floppy disk by Reinhold Weicker.
89 *              As a concession to older compilers, names have been made
90 *              unique within the first 8 characters.
91 *              Inside the measurement loop, this version follows the
92 *              version previously distributed by Reinhold Weicker.
93 *
94 *              At several places in the benchmark, code has been added,
95 *              but within the measurement loop only in branches that
96 *              are not executed. The intention is that optimizing compilers
97 *              should be prevented from moving code out of the measurement
98 *              loop, or from removing code altogether. Since the statements
99 *              that are executed within the measurement loop have NOT been
100 *              changed, the numbers defining the "Dhrystone distribution"
101 *              (distribution of statements, operand types and locality)
102 *              still hold. Except for sophisticated optimizing compilers,
103 *              execution times for this version should be the same as
104 *              for previous versions.
105 *
106 *              Since it has proven difficult to subtract the time for the
107 *              measurement loop overhead in a correct way, the loop check
108 *              has been made a part of the benchmark. This does have
109 *              an impact - though a very minor one - on the distribution
110 *              statistics which have been updated for this version.
111 *
112 *              All changes within the measurement loop are described
113 *              and discussed in the companion paper "Rationale for
114 *              Dhrystone version 2".
115 *
116 *              Because of the self-imposed limitation that the order and
117 *              distribution of the executed statements should not be
118 *              changed, there are still cases where optimizing compilers
119 *              may not generate code for some statements. To a certain
120 *              degree, this is unavoidable for small synthetic benchmarks.
121 *              Users of the benchmark are advised to check code listings
122 *              whether code is generated for all statements of Dhrystone.
123 *
124 *              Version 2.1 is identical to version 2.0 distributed via
125 *              the UNIX network Usenet in March 1988 except that it corrects
126 *              some minor deficiencies that were found by users of version 2.0.
127 *              The only change within the measurement loop is that a
128 *              non-executed "else" part was added to the "if" statement in
129 *              Func_3, and a non-executed "else" part removed from Proc_3.
130 *
131 ***************************************************************************
132 *
133 *  Compilation model and measurement (IMPORTANT):
134 *
135 *  This C version of Dhrystone consists of three files:
136 *  - dhry.h (this file, containing global definitions and comments)
137 *  - dhry_1.c (containing the code corresponding to Ada package Pack_1)
138 *  - dhry_2.c (containing the code corresponding to Ada package Pack_2)
139 *
140 *  The following "ground rules" apply for measurements:
141 *  - Separate compilation
142 *  - No procedure merging
143 *  - Otherwise, compiler optimizations are allowed but should be indicated
144 *  - Default results are those without register declarations
145 *  See the companion paper "Rationale for Dhrystone Version 2" for a more
146 *  detailed discussion of these ground rules.
147 *
148 *  For 16-Bit processors (e.g. 80186, 80286), times for all compilation
149 *  models ("small", "medium", "large" etc.) should be given if possible,
150 *  together with a definition of these models for the compiler system used.
151 *
152 **************************************************************************
153 *
154 *  Dhrystone (C version) statistics:
155 *
156 *  [Comment from the first distribution, updated for version 2.
157 *   Note that because of language differences, the numbers are slightly
158 *   different from the Ada version.]
159 *
160 *  The following program contains statements of a high level programming
161 *  language (here: C) in a distribution considered representative:
162 *
163 *    assignments                  52 (51.0 %)
164 *    control statements           33 (32.4 %)
165 *    procedure, function calls    17 (16.7 %)
166 *
167 *  103 statements are dynamically executed. The program is balanced with
168 *  respect to the three aspects:
169 *
170 *    - statement type
171 *    - operand type
172 *    - operand locality
173 *         operand global, local, parameter, or constant.
174 *
175 *  The combination of these three aspects is balanced only approximately.
176 *
177 *  1. Statement Type:
178 *  -----------------             number
179 *
180 *     V1 = V2                     9
181 *       (incl. V1 = F(..)
182 *     V = Constant               12
183 *     Assignment,                 7
184 *       with array element
185 *     Assignment,                 6
186 *       with record component
187 *                                --
188 *                                34       34
189 *
190 *     X = Y +|-|"&&"|"|" Z        5
191 *     X = Y +|-|"==" Constant     6
192 *     X = X +|- 1                 3
193 *     X = Y *|/ Z                 2
194 *     X = Expression,             1
195 *           two operators
196 *     X = Expression,             1
197 *           three operators
198 *                                --
199 *                                18       18
200 *
201 *     if ....                    14
202 *       with "else"      7
203 *       without "else"   7
204 *           executed        3
205 *           not executed    4
206 *     for ...                     7  |  counted every time
207 *     while ...                   4  |  the loop condition
208 *     do ... while                1  |  is evaluated
209 *     switch ...                  1
210 *     break                       1
211 *     declaration with            1
212 *       initialization
213 *                                --
214 *                                34       34
215 *
216 *     P (...)  procedure call    11
217 *       user procedure      10
218 *       library procedure    1
219 *     X = F (...)
220 *             function  call      6
221 *       user function        5
222 *       library function     1
223 *                                --
224 *                                17       17
225 *                                        ---
226 *                                        103
227 *
228 *    The average number of parameters in procedure or function calls
229 *    is 1.82 (not counting the function values as implicit parameters).
230 *
231 *
232 *  2. Operators
233 *  ------------
234 *                          number    approximate
235 *                                    percentage
236 *
237 *    Arithmetic             32          50.8
238 *
239 *       +                     21          33.3
240 *       -                      7          11.1
241 *       *                      3           4.8
242 *       / (int div)            1           1.6
243 *
244 *    Comparison             27           42.8
245 *
246 *       ==                     9           14.3
247 *       /=                     4            6.3
248 *       >                      1            1.6
249 *       <                      3            4.8
250 *       >=                     1            1.6
251 *       <=                     9           14.3
252 *
253 *    Logic                   4            6.3
254 *
255 *       && (AND-THEN)          1            1.6
256 *       |  (OR)                1            1.6
257 *       !  (NOT)               2            3.2
258 *
259 *                           --          -----
260 *                           63          100.1
261 *
262 *
263 *  3. Operand Type (counted once per operand reference):
264 *  ---------------
265 *                          number    approximate
266 *                                    percentage
267 *
268 *     Integer               175        72.3 %
269 *     Character              45        18.6 %
270 *     Pointer                12         5.0 %
271 *     String30                6         2.5 %
272 *     Array                   2         0.8 %
273 *     Record                  2         0.8 %
274 *                           ---       -------
275 *                           242       100.0 %
276 *
277 *  When there is an access path leading to the final operand (e.g. a record
278 *  component), only the final data type on the access path is counted.
279 *
280 *
281 *  4. Operand Locality:
282 *  -------------------
283 *                                number    approximate
284 *                                          percentage
285 *
286 *     local variable              114        47.1 %
287 *     global variable              22         9.1 %
288 *     parameter                    45        18.6 %
289 *        value                        23         9.5 %
290 *        reference                    22         9.1 %
291 *     function result               6         2.5 %
292 *     constant                     55        22.7 %
293 *                                 ---       -------
294 *                                 242       100.0 %
295 *
296 *
297 *  The program does not compute anything meaningful, but it is syntactically
298 *  and semantically correct. All variables have a value assigned to them
299 *  before they are used as a source operand.
300 *
301 *  There has been no explicit effort to account for the effects of a
302 *  cache, or to balance the use of long or short displacements for code or
303 *  data.
304 *
305 ***************************************************************************
306 */
307
308typedef enum {
309	Ident_1,
310	Ident_2,
311	Ident_3,
312	Ident_4,
313	Ident_5
314} Enumeration;	/* for boolean and enumeration types in Ada, Pascal */
315
316/* General definitions: */
317
318typedef int One_Thirty;
319typedef int One_Fifty;
320typedef char Capital_Letter;
321typedef int Boolean;
322typedef char Str_30[31];
323typedef int Arr_1_Dim[50];
324typedef int Arr_2_Dim[50][50];
325
326typedef struct record {
327	struct record *Ptr_Comp;
328	Enumeration    Discr;
329	union {
330		struct {
331			Enumeration Enum_Comp;
332			int Int_Comp;
333			char Str_Comp[31];
334		} var_1;
335		struct {
336			Enumeration E_Comp_2;
337			char Str_2_Comp[31];
338		} var_2;
339		struct {
340			char Ch_1_Comp;
341			char Ch_2_Comp;
342		} var_3;
343	} variant;
344} Rec_Type, *Rec_Pointer;
345
346
347extern int Int_Glob;
348extern char Ch_1_Glob;
349
350void Proc_6(Enumeration  Enum_Val_Par, Enumeration *Enum_Ref_Par);
351void Proc_7(One_Fifty Int_1_Par_Val, One_Fifty Int_2_Par_Val,
352	    One_Fifty *Int_Par_Ref);
353void Proc_8(Arr_1_Dim Arr_1_Par_Ref, Arr_2_Dim Arr_2_Par_Ref,
354	    int Int_1_Par_Val, int Int_2_Par_Val);
355Enumeration Func_1(Capital_Letter Ch_1_Par_Val, Capital_Letter Ch_2_Par_Val);
356Boolean Func_2(Str_30 Str_1_Par_Ref, Str_30 Str_2_Par_Ref);
357
358int dhry(int n);
359