/* ************************************************************************* * * "DHRYSTONE" Benchmark Program * ----------------------------- * * Version: C, Version 2.1 * * File: dhry_1.c (part 2 of 3) * * Date: May 25, 1988 * * Author: Reinhold P. Weicker * ************************************************************************* */ #include #include #include #include #include #include "dhry.h" /*COMPILER COMPILER COMPILER COMPILER COMPILER COMPILER COMPILER*/ #ifdef COW #define compiler "Watcom C/C++ 10.5 Win386" #define options " -otexan -zp8 -5r -ms" #endif #ifdef CNW #define compiler "Watcom C/C++ 10.5 Win386" #define options " No optimisation" #endif #ifdef COD #define compiler "Watcom C/C++ 10.5 Dos4GW" #define options " -otexan -zp8 -5r -ms" #endif #ifdef CND #define compiler "Watcom C/C++ 10.5 Dos4GW" #define options " No optimisation" #endif #ifdef CONT #define compiler "Watcom C/C++ 10.5 Win32NT" #define options " -otexan -zp8 -5r -ms" #endif #ifdef CNNT #define compiler "Watcom C/C++ 10.5 Win32NT" #define options " No optimisation" #endif #ifdef COO2 #define compiler "Watcom C/C++ 10.5 OS/2-32" #define options " -otexan -zp8 -5r -ms" #endif #ifdef CNO2 #define compiler "Watcom C/C++ 10.5 OS/2-32" #define options " No optimisation" #endif /* Global Variables: */ Rec_Pointer Ptr_Glob, Next_Ptr_Glob; int Int_Glob; Boolean Bool_Glob; char Ch_1_Glob, Ch_2_Glob; int Arr_1_Glob [50]; int Arr_2_Glob [50] [50]; int getinput = 0; char Reg_Define[] = "Register option Selected."; // extern char *malloc (); Enumeration Func_1 (Capital_Letter Ch_1_Par_Val, Capital_Letter Ch_2_Par_Val); /* forward declaration necessary since Enumeration may not simply be int */ #ifndef ROPT #define REG /* REG becomes defined as empty */ /* i.e. no register variables */ #else #define REG register #endif void Proc_1 (REG Rec_Pointer Ptr_Val_Par); void Proc_2 (One_Fifty *Int_Par_Ref); void Proc_3 (Rec_Pointer *Ptr_Ref_Par); void Proc_4 (); void Proc_5 (); void Proc_6 (Enumeration Enum_Val_Par, Enumeration *Enum_Ref_Par); void Proc_7 (One_Fifty Int_1_Par_Val, One_Fifty Int_2_Par_Val, One_Fifty *Int_Par_Ref); void Proc_8 (Arr_1_Dim Arr_1_Par_Ref, Arr_2_Dim Arr_2_Par_Ref, int Int_1_Par_Val, int Int_2_Par_Val); Boolean Func_2 (Str_30 Str_1_Par_Ref, Str_30 Str_2_Par_Ref); /* variables for time measurement: */ #define Too_Small_Time 2 /* Measurements should last at least 2 seconds */ double Begin_Time, End_Time, User_Time; double Microseconds, Dhrystones_Per_Second, Vax_Mips; /* end of variables for time measurement */ void main (int argc, char *argv[]) /*****/ /* main program, corresponds to procedures */ /* Main and Proc_0 in the Ada version */ { double dtime(); One_Fifty Int_1_Loc; REG One_Fifty Int_2_Loc; One_Fifty Int_3_Loc; REG char Ch_Index; Enumeration Enum_Loc; Str_30 Str_1_Loc; Str_30 Str_2_Loc; REG int Run_Index; REG int Number_Of_Runs; int endit, count = 10; char general[9][80] = {" "}; struct dosdate_t date; /* Initializations */ if (argc > 1) { switch (argv[1][0]) { case 'N': getinput = 0; break; case 'n': getinput = 0; break; } } /*********************************************************************** * Change for compiler and optimisation used * ***********************************************************************/ Next_Ptr_Glob = (Rec_Pointer) malloc (sizeof (Rec_Type)); Ptr_Glob = (Rec_Pointer) malloc (sizeof (Rec_Type)); Ptr_Glob->Ptr_Comp = Next_Ptr_Glob; Ptr_Glob->Discr = Ident_1; Ptr_Glob->variant.var_1.Enum_Comp = Ident_3; Ptr_Glob->variant.var_1.Int_Comp = 40; strcpy (Ptr_Glob->variant.var_1.Str_Comp, "DHRYSTONE PROGRAM, SOME STRING"); strcpy (Str_1_Loc, "DHRYSTONE PROGRAM, 1'ST STRING"); Arr_2_Glob [8][7] = 10; /* Was missing in published program. Without this statement, */ /* Arr_2_Glob [8][7] would have an undefined value. */ /* Warning: With 16-Bit processors and Number_Of_Runs > 32000, */ /* overflow may occur for this array element. */ printf ("\n"); printf ("Dhrystone Benchmark, Version 2.1 (Language: C or C++)\n"); printf ("\n"); if (getinput == 0) { printf ("No run time input data\n\n"); } else { printf ("With run time input data\n\n"); } printf ("Compiler %s\n", compiler); printf ("Optimisation %s\n", options); #ifdef ROPT printf ("Register option selected\n\n"); #else printf ("Register option not selected\n\n"); strcpy(Reg_Define, "Register option Not selected."); #endif /* if (Reg) { printf ("Program compiled with 'register' attribute\n"); printf ("\n"); } else { printf ("Program compiled without 'register' attribute\n"); printf ("\n"); } printf ("Please give the number of runs through the benchmark: "); { int n; scanf ("%d", &n); Number_Of_Runs = n; } printf ("\n"); printf ("Execution starts, %d runs through Dhrystone\n", Number_Of_Runs); */ Number_Of_Runs = 5000; do { Number_Of_Runs = Number_Of_Runs * 2; count = count - 1; Arr_2_Glob [8][7] = 10; /***************/ /* Start timer */ /***************/ Begin_Time = dtime(); for (Run_Index = 1; Run_Index <= Number_Of_Runs; ++Run_Index) { Proc_5(); Proc_4(); /* Ch_1_Glob == 'A', Ch_2_Glob == 'B', Bool_Glob == true */ Int_1_Loc = 2; Int_2_Loc = 3; strcpy (Str_2_Loc, "DHRYSTONE PROGRAM, 2'ND STRING"); Enum_Loc = Ident_2; Bool_Glob = ! Func_2 (Str_1_Loc, Str_2_Loc); /* Bool_Glob == 1 */ while (Int_1_Loc < Int_2_Loc) /* loop body executed once */ { Int_3_Loc = 5 * Int_1_Loc - Int_2_Loc; /* Int_3_Loc == 7 */ Proc_7 (Int_1_Loc, Int_2_Loc, &Int_3_Loc); /* Int_3_Loc == 7 */ Int_1_Loc += 1; } /* while */ /* Int_1_Loc == 3, Int_2_Loc == 3, Int_3_Loc == 7 */ Proc_8 (Arr_1_Glob, Arr_2_Glob, Int_1_Loc, Int_3_Loc); /* Int_Glob == 5 */ Proc_1 (Ptr_Glob); for (Ch_Index = 'A'; Ch_Index <= Ch_2_Glob; ++Ch_Index) /* loop body executed twice */ { if (Enum_Loc == Func_1 (Ch_Index, 'C')) /* then, not executed */ { Proc_6 (Ident_1, &Enum_Loc); strcpy (Str_2_Loc, "DHRYSTONE PROGRAM, 3'RD STRING"); Int_2_Loc = Run_Index; Int_Glob = Run_Index; } } /* Int_1_Loc == 3, Int_2_Loc == 3, Int_3_Loc == 7 */ Int_2_Loc = Int_2_Loc * Int_1_Loc; Int_1_Loc = Int_2_Loc / Int_3_Loc; Int_2_Loc = 7 * (Int_2_Loc - Int_3_Loc) - Int_1_Loc; /* Int_1_Loc == 1, Int_2_Loc == 13, Int_3_Loc == 7 */ Proc_2 (&Int_1_Loc); /* Int_1_Loc == 5 */ } /* loop "for Run_Index" */ /**************/ /* Stop timer */ /**************/ End_Time = dtime(); User_Time = End_Time - Begin_Time; printf ("%12.0f runs %6.2f seconds \n",(double) Number_Of_Runs, User_Time); if (User_Time > 5) { count = 0; } else { if (User_Time < 0.1) { Number_Of_Runs = Number_Of_Runs * 5; } } } /* calibrate/run do while */ while (count >0); printf ("\n"); printf ("Final values (* implementation-dependent):\n"); printf ("\n"); printf ("Int_Glob: "); if (Int_Glob == 5) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Int_Glob); printf ("Bool_Glob: "); if (Bool_Glob == 1) printf ("O.K. "); else printf ("WRONG "); printf ("%d\n", Bool_Glob); printf ("Ch_1_Glob: "); if (Ch_1_Glob == 'A') printf ("O.K. "); else printf ("WRONG "); printf ("%c ", Ch_1_Glob); printf ("Ch_2_Glob: "); if (Ch_2_Glob == 'B') printf ("O.K. "); else printf ("WRONG "); printf ("%c\n", Ch_2_Glob); printf ("Arr_1_Glob[8]: "); if (Arr_1_Glob[8] == 7) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Arr_1_Glob[8]); printf ("Arr_2_Glob8/7: "); if (Arr_2_Glob[8][7] == Number_Of_Runs + 10) printf ("O.K. "); else printf ("WRONG "); printf ("%10d\n", Arr_2_Glob[8][7]); printf ("Ptr_Glob-> "); printf (" Ptr_Comp: * %d\n", (int) Ptr_Glob->Ptr_Comp); printf (" Discr: "); if (Ptr_Glob->Discr == 0) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Ptr_Glob->Discr); printf ("Enum_Comp: "); if (Ptr_Glob->variant.var_1.Enum_Comp == 2) printf ("O.K. "); else printf ("WRONG "); printf ("%d\n", Ptr_Glob->variant.var_1.Enum_Comp); printf (" Int_Comp: "); if (Ptr_Glob->variant.var_1.Int_Comp == 17) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Ptr_Glob->variant.var_1.Int_Comp); printf ("Str_Comp: "); if (strcmp(Ptr_Glob->variant.var_1.Str_Comp, "DHRYSTONE PROGRAM, SOME STRING") == 0) printf ("O.K. "); else printf ("WRONG "); printf ("%s\n", Ptr_Glob->variant.var_1.Str_Comp); printf ("Next_Ptr_Glob-> "); printf (" Ptr_Comp: * %d", (int) Next_Ptr_Glob->Ptr_Comp); printf (" same as above\n"); printf (" Discr: "); if (Next_Ptr_Glob->Discr == 0) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Next_Ptr_Glob->Discr); printf ("Enum_Comp: "); if (Next_Ptr_Glob->variant.var_1.Enum_Comp == 1) printf ("O.K. "); else printf ("WRONG "); printf ("%d\n", Next_Ptr_Glob->variant.var_1.Enum_Comp); printf (" Int_Comp: "); if (Next_Ptr_Glob->variant.var_1.Int_Comp == 18) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Next_Ptr_Glob->variant.var_1.Int_Comp); printf ("Str_Comp: "); if (strcmp(Next_Ptr_Glob->variant.var_1.Str_Comp, "DHRYSTONE PROGRAM, SOME STRING") == 0) printf ("O.K. "); else printf ("WRONG "); printf ("%s\n", Next_Ptr_Glob->variant.var_1.Str_Comp); printf ("Int_1_Loc: "); if (Int_1_Loc == 5) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Int_1_Loc); printf ("Int_2_Loc: "); if (Int_2_Loc == 13) printf ("O.K. "); else printf ("WRONG "); printf ("%d\n", Int_2_Loc); printf ("Int_3_Loc: "); if (Int_3_Loc == 7) printf ("O.K. "); else printf ("WRONG "); printf ("%d ", Int_3_Loc); printf ("Enum_Loc: "); if (Enum_Loc == 1) printf ("O.K. "); else printf ("WRONG "); printf ("%d\n", Enum_Loc); printf ("Str_1_Loc: "); if (strcmp(Str_1_Loc, "DHRYSTONE PROGRAM, 1'ST STRING") == 0) printf ("O.K. "); else printf ("WRONG "); printf ("%s\n", Str_1_Loc); printf ("Str_2_Loc: "); if (strcmp(Str_2_Loc, "DHRYSTONE PROGRAM, 2'ND STRING") == 0) printf ("O.K. "); else printf ("WRONG "); printf ("%s\n", Str_2_Loc); printf ("\n"); if (User_Time < Too_Small_Time) { printf ("Measured time too small to obtain meaningful results\n"); printf ("Please increase number of runs\n"); printf ("\n"); } else { Microseconds = User_Time * Mic_secs_Per_Second / (double) Number_Of_Runs; Dhrystones_Per_Second = (double) Number_Of_Runs / User_Time; Vax_Mips = Dhrystones_Per_Second / 1757.0; printf ("Number Of Runs: "); printf ("%12.0lf\n", (double) Number_Of_Runs); printf ("Microseconds for one run through Dhrystone: "); printf ("%12.2lf \n", Microseconds); printf ("Dhrystones per Second: "); printf ("%10.0lf \n", Dhrystones_Per_Second); printf ("VAX MIPS rating = "); printf ("%12.2lf \n",Vax_Mips); printf ("\n"); _dos_getdate( &date ); /************************************************************************ * Type details of hardware, software etc. * ************************************************************************/ if (getinput == 1) { printf ("Enter the following which will be added with results to file DHRY.TXT\n"); printf ("When submitting a number of results you need only provide details once\n"); printf ("but a cross reference such as an abbreviated CPU type would be useful.\n"); printf ("You can kill (exit or close) the program now and no data will be added.\n\n"); printf ("PC Supplier/model ? "); gets(general[1]); printf ("CPU chip ? "); gets(general[2]); printf ("Clock MHz ? "); gets(general[3]); printf ("Cache size ? "); gets(general[4]); printf ("Chipset & H/W options ? "); gets(general[5]); printf ("OS/DOS version ? "); gets(general[6]); printf ("Your name ? "); gets(general[7]); printf ("Company/Location ? "); gets(general[8]); printf ("E-mail address ? "); gets(general[0]); } } if (getinput == 1) { printf("Press any key to exit\n"); endit = getch(); printf ("\nIf this is displayed you must close the window in the normal way\n"); } } void Proc_1 (REG Rec_Pointer Ptr_Val_Par) /******************/ /* executed once */ { REG Rec_Pointer Next_Record = Ptr_Val_Par->Ptr_Comp; /* == Ptr_Glob_Next */ /* Local variable, initialized with Ptr_Val_Par->Ptr_Comp, */ /* corresponds to "rename" in Ada, "with" in Pascal */ structassign (*Ptr_Val_Par->Ptr_Comp, *Ptr_Glob); Ptr_Val_Par->variant.var_1.Int_Comp = 5; Next_Record->variant.var_1.Int_Comp = Ptr_Val_Par->variant.var_1.Int_Comp; Next_Record->Ptr_Comp = Ptr_Val_Par->Ptr_Comp; Proc_3 (&Next_Record->Ptr_Comp); /* Ptr_Val_Par->Ptr_Comp->Ptr_Comp == Ptr_Glob->Ptr_Comp */ if (Next_Record->Discr == Ident_1) /* then, executed */ { Next_Record->variant.var_1.Int_Comp = 6; Proc_6 (Ptr_Val_Par->variant.var_1.Enum_Comp, &Next_Record->variant.var_1.Enum_Comp); Next_Record->Ptr_Comp = Ptr_Glob->Ptr_Comp; Proc_7 (Next_Record->variant.var_1.Int_Comp, 10, &Next_Record->variant.var_1.Int_Comp); } else /* not executed */ structassign (*Ptr_Val_Par, *Ptr_Val_Par->Ptr_Comp); } /* Proc_1 */ void Proc_2 (One_Fifty *Int_Par_Ref) /******************/ /* executed once */ /* *Int_Par_Ref == 1, becomes 4 */ { One_Fifty Int_Loc; Enumeration Enum_Loc; Int_Loc = *Int_Par_Ref + 10; do /* executed once */ if (Ch_1_Glob == 'A') /* then, executed */ { Int_Loc -= 1; *Int_Par_Ref = Int_Loc - Int_Glob; Enum_Loc = Ident_1; } /* if */ while (Enum_Loc != Ident_1); /* true */ } /* Proc_2 */ void Proc_3 (Rec_Pointer *Ptr_Ref_Par) /******************/ /* executed once */ /* Ptr_Ref_Par becomes Ptr_Glob */ { if (Ptr_Glob != Null) /* then, executed */ *Ptr_Ref_Par = Ptr_Glob->Ptr_Comp; Proc_7 (10, Int_Glob, &Ptr_Glob->variant.var_1.Int_Comp); } /* Proc_3 */ void Proc_4 () /* without parameters */ /*******/ /* executed once */ { Boolean Bool_Loc; Bool_Loc = Ch_1_Glob == 'A'; Bool_Glob = Bool_Loc | Bool_Glob; Ch_2_Glob = 'B'; } /* Proc_4 */ void Proc_5 () /* without parameters */ /*******/ /* executed once */ { Ch_1_Glob = 'A'; Bool_Glob = false; } /* Proc_5 */ /* Procedure for the assignment of structures, */ /* if the C compiler doesn't support this feature */ #ifdef NOSTRUCTASSIGN memcpy (d, s, l) register char *d; register char *s; register int l; { while (l--) *d++ = *s++; } #endif /* @caiiiycuk: dtime that based on clock is good for real systems, but not for emdosbox, it can't grantee stable updates of it, and it's not possible to measure time with it. As workaround we will print marker in console to use Date.now in browser environment */ double dtime() { #define HZ CLOCKS_PER_SEC clock_t tnow; double q; printf("~>dtime\n"); tnow = clock(); q = (double)tnow / (double)HZ; return q; }