// Copyright (c) 1996-2009 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of the License "Eclipse Public License v1.0"

// which accompanies this distribution, and is available

// at the URL "http://www.eclipse.org/legal/epl-v10.html".

//

// Initial Contributors:

// Nokia Corporation - initial contribution.

//

// Contributors:

//

// Description:

// e32test\bench\t_dhry.cpp

// *      "DHRYSTONE" Benchmark Program

// *      Version:        C/1

// *      Date:           12/01/84, RESULTS updated 10/22/85

// *      Author:         Reinhold P. Weicker,  CACM Vol 27, No 10, 10/84 pg. 1013

// *                      Translated from ADA by Rick Richardson

// *                      Every method to preserve ADA-likeness has been used,

// *                      at the expense of C-ness.

// *      Compile:        cc -O dry.c -o drynr                    : No registers

// *                      cc -O -DREG=register dry.c -o dryr      : Registers

// *      Defines:        Defines are provided for old C compiler's

// *                      which don't have enums, and can't assign structures.

// *                      The time(2) function is library dependant; One is

// *                      provided for CI-C86.  Your compiler may be different.

// *                      The LOOPS define is initially set for 50000 loops.

// *                      If you have a machine with large integers and is

// *                      very fast, please change this number to 500000 to

// *                      get better accuracy.  Please select the way to

// *                      measure the execution time using the TIME define.

// *                      For single user machines, time(2) is adequate. For

// *                      multi-user machines where you cannot get single-user

// *                      access, use the times(2) function.  If you have

// *                      neither, use a stopwatch in the dead of night.

// *                      Use a "printf" at the point marked "start timer"

// *                      to begin your timings. DO NOT use the UNIX "time(1)"

// *                      command, as this will measure the total time to

// *                      run this program, which will (erroneously) include

// *                      the time to malloc(3) storage and to compute the

// *                      time it takes to do nothing.

// *      Run:            drynr; dryr

// *      Results:        If you get any new machine/OS results, please send to:

// *                      {ihnp4,vax135,..}!houxm!vaximile!rer

// *                      and thanks to all that do.  Space prevents listing

// *                      the names of those who have provided some of these

// *                      results.

// *      Note:           I order the list in increasing performance of the

// *                      "with registers" benchmark.  If the compiler doesn't

// *                      provide register variables, then the benchmark

// *                      is the same for both REG and NOREG.  I'm not going

// *                      to list a compiler in a better place because if it

// *                      had register variables it might do better. No

// *                      register variables is a big loss in my book.

// *      PLEASE:         Send complete information about the machine type,

// *                      clock speed, OS and C manufacturer/version.  If

// *                      the machine is modified, tell me what was done.

// *                      Otherwise, I won't include it in this list.  My

// *                      favorite flame on this subject was a machine that

// *                      was listed as an IBM PC/XT 8086-9.54Mhz.  That must

// *                      have been some kind of co-processor board that ran

// *                      the benchmark, not the XT.  Tell me what it was!

// * MACHINE      MICROPROCESSOR  OPERATING       COMPILER        DHRYSTONES/SEC.

// * TYPE                         SYSTEM                          NO REG  REGS

// * IBM PC/XT    8088-4.77Mhz    PC/IX           cc               257     287

// * Cosmos       68000-8Mhz      UniSoft         cc               305     322

// * IBM PC/XT    8088-4.77Mhz    VENIX/86 2.0    cc               297     324

// * IBM PC       8088-4.77Mhz    MSDOS 2.0       b16cc 2.0        310     340

// * IBM PC       8088-4.77Mhz    MSDOS 2.0       CI-C86 2.20M     390     390

// * IBM PC/XT    8088-4.77Mhz    PCDOS 2.1       Lattice 2.15     403      -  @

// * PDP-11/34    -               UNIX V7M        cc               387     438

// * Onyx C8002   Z8000-4Mhz      IS/1 1.1 (V7)   cc               476     511

// * ATT PC6300   8086-8Mhz       MSDOS 2.11      b16cc 2.0        632     684

// * IBM PC/AT    80286-6Mhz      PCDOS 3.0       CI-C86 2.1       666     684

// * Macintosh    68000-7.8Mhz 2M Mac Rom         Mac C 32 bit int 694     704

// * Macintosh    68000-7.7Mhz    -               MegaMax C 2.0    661     709

// * NEC PC9801F  8086-8Mhz       PCDOS 2.11      Lattice 2.15     768      -  @

// * ATT PC6300   8086-8Mhz       MSDOS 2.11      CI-C86 2.20M     769     769

// * ATT 3B2/300  WE32000-?Mhz    UNIX 5.0.2      cc               735     806

// * IBM PC/AT    80286-6Mhz      PCDOS 3.0       MS 3.0(large)    833     847 LM

// * VAX 11/750   -               Unix 4.2bsd     cc               862     877

// * IBM PC/AT    80286-6Mhz      PCDOS 3.0       MS 3.0(small)   1063    1086

// * ATT PC7300   68010-10Mhz     UNIX 5.2        cc              1041    1111

// * ATT PC6300+  80286-6Mhz      MSDOS 3.1       b16cc 2.0       1111    1219

// * Sun2/120     68010-10Mhz     Sun 4.2BSD      cc              1136    1219

// * IBM PC/AT    80286-6Mhz      PCDOS 3.0       CI-C86 2.20M    1219    1219

// * MASSCOMP 500 68010-10MHz     RTU V3.0        cc (V3.2)       1156    1238

// * Cyb DataMate 68010-12.5Mhz   Uniplus 5.0     Unisoft cc      1162    1250

// * PDP 11/70    -               UNIX 5.2        cc              1162    1250

// * IBM PC/AT    80286-6Mhz      PCDOS 3.1       Lattice 2.15    1250      -  @

// * IBM PC/AT    80286-7.5Mhz    VENIX/86 2.1    cc              1190    1315 *

// * Sun2/120     68010-10Mhz     Standalone      cc              1219    1315

// * ATT 3B2/400  WE32100-?Mhz    UNIX 5.2        cc              1315    1315

// * HP-110       8086-5.33Mhz    MSDOS 2.11      Aztec-C         1282    1351 ?

// * IBM PC/AT    80286-6Mhz      ?               ?               1250    1388 ?

// * ATT PC6300+  80286-6Mhz      MSDOS 3.1       CI-C86 2.20M    1428    1428

// * Cyb DataMate 68010-12.5Mhz   Uniplus 5.0     Unisoft cc      1470    1562 S

// * VAX 11/780   -               UNIX 5.2        cc              1515    1562

// * MicroVAX-II  -               -               -               1562    1612

// * ATT 3B20     -               UNIX 5.2        cc              1515    1724

// * HP9000-500   B series CPU    HP-UX 4.02      cc              1724    -

// * IBM PC/STD   80286-8Mhz      ?               ?               1724    1785

// * Gould PN6005 -               UTX 1.1(4.2BSD) cc              1675    1964

// * VAX 11/785   -               UNIX 5.2        cc              2083    2083

// * VAX 11/785   -               VMS             VAX-11 C 2.0    2083    2083

// * SUN 3/75     68020-16.67Mhz  SUN 4.2 V3      cc              3333    3571

// * Sun 3/180    68020-16.67Mhz  Sun 4.2         cc              3333    3846

// * MC 5400      68020-16.67MHz  RTU V3.0        cc (V4.0)       3952    4054

// * SUN-3/160C   68020-16.67Mhz  Sun3.0ALPHA1 Un*x               3333    4166

// * Gould PN9080 -               UTX-32 1.1c     cc              -       4629

// * MC 5600/5700 68020-16.67MHz  RTU V3.0        cc (V4.0)       4504    4746 %

// * VAX 8600     -               VMS             VAX-11 C 2.0    7142    7142

// * Amdahl 470 V/8               ?               ?               -      15015

// * Amdahl 580   -               UTS 5.0 Rel 1.2 cc Ver. 1.5    23076   23076

// * Amdahl 5860                  ?               ?               -      28355

// *   *  15Mhz crystal substituted for original 12Mhz;

// *   +  This Macintosh was upgraded from 128K to 512K in such a way that

// *      the new 384K of memory is not slowed down by video generator accesses.

// *   %  Single processor; MC == MASSCOMP

// *   &  Seattle Telecom STD-286 board

// *   @  vanilla Lattice compiler used with MicroPro standard library

// *   S  Shorts used instead of ints

// *   LM Large Memory Model. (Otherwise, all 80x8x results are small model)

// *   ?  I don't trust results marked with '?'.  These were sent to me with

// *      either incomplete information, or with times that just don't make sense.

// *      If anybody can confirm these figures, please respond.

// *      The following program contains statements of a high-level programming

// *      language (C) in a distribution considered representative:

// *      assignments                     53%

// *      control statements              32%

// *      procedure, function calls       15%

// *      100 statements are dynamically executed.  The program is balanced with

// *      respect to the three aspects:

// *              - statement type

// *              - operand type (for simple data types)

// *              - operand access

// *                      operand global, local, parameter, or constant.

// *      The combination of these three aspects is balanced only approximately.

// *      The program does not compute anything meaningfull, but it is

// *      syntactically and semantically correct.

// 

//

#include <e32test.h>

#include <e32std.h>

#include <e32std_private.h>

//Accuracy of timings and human fatigue controlled by next two lines

#if defined(__EPOC32)

#define LOOPS   50000 /* Use this for slow or 16 bit machines */

#else

#define LOOPS 10000000 /* Use this for faster machines */

#endif

// Compiler dependent options

#undef  NOENUM /* Define if compiler has no enum's */

#undef  NOSTRUCTASSIGN /* Define if compiler can't assign structures */

// define only one of the next three defines

#define NOTIME /* Define if no time() function in library */

//#define TIMES /* Use times(2) time function */

//#define TIME /* Use time(2) time function */

// define the granularity of your times(2) function (when used)

//#define HZ 60 /* times(2) returns 1/60 second (most) */

//#define HZ 100 /* times(2) returns 1/100 second (WECo) */

#ifdef  NOSTRUCTASSIGN

#define structassign(d,s)      memcpy(&(d),&(s),sizeof(d))

#else

#define structassign(d,s)      d=s

#endif

#ifdef  NOENUM

#define Ident1 1

#define Ident2 2

#define Ident3 3

#define Ident4 4

#define Ident5 5

typedef int Enumeration;

#else

typedef enum {Ident1, Ident2, Ident3, Ident4, Ident5} Enumeration;

#endif

typedef int OneToThirty;

typedef int OneToFifty;

typedef char CapitalLetter;

typedef char String30[31];

typedef int Array1Dim[51];

typedef int Array2Dim[51][51];

struct Record

	{

	struct Record *PtrComp;

	Enumeration Discr;

	Enumeration EnumComp;

	OneToFifty IntComp;

	String30 StringComp;

	};

typedef struct Record RecordType;

typedef RecordType* RecordPtr;

typedef int boolean;

#define NULL 0

#define TRUE 1

#define FALSE 0

#ifndef REG

#define REG

#endif

extern Enumeration Func1(CapitalLetter,CapitalLetter);

extern boolean Func2(String30, String30);

#ifdef TIMES

#include <sys/types.h>

#include <sys/times.h>

#endif

int strcmp(const char* aSrc, const char* aDst);

char* strcpy(char* aDest, const char* aSrc);

void Proc0();

void Proc1(REG RecordPtr);

void Proc2(OneToFifty*);

void Proc3(RecordPtr*);

void Proc4();

void Proc5();

void Proc6(REG Enumeration, REG Enumeration*);

void Proc7(OneToFifty, OneToFifty, OneToFifty*);

void Proc8(Array1Dim, Array2Dim, OneToFifty, OneToFifty);

#ifdef NOTIME

TInt64 time();

#endif

LOCAL_D RTest test(_L("DHRY"));

GLDEF_C TInt E32Main()

	{

	test.Title();

	test.Start(_L("Running dhrystone benchmark"));

	Proc0();

	test.End();

	return(KErrNone);

	}

/*

 * Package 1

 */

int IntGlob;

boolean BoolGlob;

char Char1Glob;

char Char2Glob;

Array1Dim Array1Glob;

Array2Dim Array2Glob;

RecordPtr PtrGlb;

RecordPtr PtrGlbNext;

void Proc0()

	{

	OneToFifty IntLoc1;

	REG OneToFifty IntLoc2;

	OneToFifty IntLoc3=1;

	REG char CharIndex;

	Enumeration EnumLoc;

	String30 String1Loc;

	String30 String2Loc;

#ifdef NOTIME

	TInt64 starttime;

	TInt64 benchtime;

	TInt64 nulltime;

	register unsigned int i;

	starttime=time();

	for (i = 0; i < LOOPS; ++i)

		;

	nulltime = time()-starttime; /* Computes overhead of looping */

#endif

#ifdef TIME

	REG char CharLoc;

	long time();

	long starttime;

	long benchtime;

	long nulltime;

	register unsigned int i;

	starttime = time(0);

	for (i = 0; i < LOOPS; ++i)

		;

	nulltime = time(0) - starttime; /* Computes overhead of looping */

#endif

#ifdef TIMES

	REG char CharLoc;

	time_t starttime;

	time_t benchtime;

	time_t nulltime;

	struct tms tms;

	register unsigned int i;

	times(&tms); starttime = tms.tms_utime;

	for (i = 0; i < LOOPS; ++i)

		;

	times(&tms);

	nulltime = tms.tms_utime - starttime; /* Computes overhead of looping */

#endif

//	PtrGlbNext = (RecordPtr) malloc(sizeof(RecordType));

	PtrGlbNext = (RecordPtr) new Record;

//	PtrGlb = (RecordPtr) malloc(sizeof(RecordType));

	PtrGlb = (RecordPtr) new Record;

	PtrGlb->PtrComp = PtrGlbNext;

	PtrGlb->Discr = Ident1;

	PtrGlb->EnumComp = Ident3;

	PtrGlb->IntComp = 40;

	strcpy(String2Loc, "DHRYSTONE PROGRAM, SOME STRING");

// Start the timer

#ifdef NOTIME

        starttime = time();

#endif

#ifdef TIME

        starttime = time(0);

#endif

#ifdef TIMES

        times(&tms); starttime = tms.tms_utime;

#endif

for (i = 0; i < LOOPS; ++i)

{

        Proc5();

        Proc4();

        IntLoc1 = 2;

        IntLoc2 = 3;

        strcpy(String2Loc, "DHRYSTONE PROGRAM, 2'ND STRING");

        EnumLoc = Ident2;

        BoolGlob = ! Func2(String1Loc, String2Loc);

        while (IntLoc1 < IntLoc2)

        {

                IntLoc3 = 5 * IntLoc1 - IntLoc2;

                Proc7(IntLoc1, IntLoc2, &IntLoc3);

                ++IntLoc1;

        }

        Proc8(Array1Glob, Array2Glob, IntLoc1, IntLoc3);

        Proc1(PtrGlb);

        for (CharIndex = 'A'; CharIndex <= Char2Glob; ++CharIndex)

                if (EnumLoc == Func1(CharIndex, 'C'))

                        Proc6(Ident1, &EnumLoc);

        IntLoc3 = IntLoc2 * IntLoc1;

        IntLoc2 = IntLoc3 / IntLoc1;

        IntLoc2 = 7 * (IntLoc3 - IntLoc2) - IntLoc1;

        Proc2(&IntLoc1);

/*****************

-- Stop Timer --

*****************/

}

#ifdef TIME

benchtime = time(0) - starttime - nulltime;

printf("Dhrystone time for %ld passes = %ld\n", (long) LOOPS, benchtime);

printf("This machine benchmarks at %ld dhrystones/second\n",

        ((long) LOOPS) / benchtime);

#endif

#ifdef TIMES

        times(&tms);

        benchtime = tms.tms_utime - starttime - nulltime;

printf("Dhrystone time for %ld passes = %ld\n", (long) LOOPS, benchtime/HZ);

printf("This machine benchmarks at %ld dhrystones/second\n",

        ((long) LOOPS) * HZ / benchtime);

#endif

#ifdef NOTIME

TInt64 timenow = time();

benchtime = (timenow - starttime - nulltime)/1000000;

TInt bench=I64INT(benchtime);

test.Printf(_L("Dhrystone time for %d passes = %d\n"), LOOPS, bench);

test.Printf(_L("This machine benchmarks at %d dhrystones per second\n"), LOOPS/bench);

test.Printf(_L("Press any key to exit (or wait 20 seconds)"));

	{

	TRequestStatus keyStat;

	test.Console()->Read(keyStat);

	RTimer timer;

	test(timer.CreateLocal()==KErrNone);

	TRequestStatus timerStat;

	timer.After(timerStat,20*1000000);

	User::WaitForRequest(timerStat,keyStat);

	if(keyStat!=KRequestPending)

	timer.Cancel();

	test.Console()->ReadCancel();

	User::WaitForAnyRequest();

	}

#endif

}

void Proc1 (REG RecordPtr PtrParIn)

{

#define NextRecord      (*(PtrParIn->PtrComp))

        structassign(NextRecord, *PtrGlb);

        PtrParIn->IntComp = 5;

        NextRecord.IntComp = PtrParIn->IntComp;

        NextRecord.PtrComp = PtrParIn->PtrComp;

        Proc3((RecordPtr*)NextRecord.PtrComp); //Jane - has to cast this

        if (NextRecord.Discr == Ident1)

        {

                NextRecord.IntComp = 6;

                Proc6(PtrParIn->EnumComp, &NextRecord.EnumComp);

                NextRecord.PtrComp = PtrGlb->PtrComp;

                Proc7(NextRecord.IntComp, 10, &NextRecord.IntComp);

        }

        else

                structassign(*PtrParIn, NextRecord);

#undef  NextRecord

}

void Proc2(OneToFifty* IntParIO)

{

        REG OneToFifty IntLoc=0;

        REG Enumeration EnumLoc=Ident3;

        IntLoc = *IntParIO + 10;

        for(;;)

        {

                if (Char1Glob == 'A')

                {

                        --IntLoc;

                        *IntParIO = IntLoc - IntGlob;

                        EnumLoc = Ident1;

                }

                if (EnumLoc == Ident1)

                        break;

        }

}

void Proc3(RecordPtr* PtrParOut)

{

        if (PtrGlb != NULL)

                *PtrParOut = PtrGlb->PtrComp;

        else

                IntGlob = 100;

        Proc7(10, IntGlob, &PtrGlb->IntComp);

}

void Proc4()

{

        REG boolean     BoolLoc;

        BoolLoc = Char1Glob == 'A';

        BoolLoc |= BoolGlob;

        Char2Glob = 'B';

}

void Proc5()

{

        Char1Glob = 'A';

        BoolGlob = FALSE;

}

extern boolean Func3(REG Enumeration EnumParIn);

void Proc6(REG Enumeration EnumParIn, REG Enumeration* EnumParOut)

{

        *EnumParOut = EnumParIn;

        if (! Func3(EnumParIn) )

                *EnumParOut = Ident4;

        switch (EnumParIn)

        {

        case Ident1:    *EnumParOut = Ident1; break;

        case Ident2:    if (IntGlob > 100) *EnumParOut = Ident1;

                        else *EnumParOut = Ident4;

                        break;

        case Ident3:    *EnumParOut = Ident2; break;

        case Ident4:    break;

        case Ident5:    *EnumParOut = Ident3;

        }

}

void Proc7(OneToFifty IntParI1, OneToFifty IntParI2, OneToFifty* IntParOut)

{

        REG OneToFifty  IntLoc;

        IntLoc = IntParI1 + 2;

        *IntParOut = IntParI2 + IntLoc;

}

void Proc8(Array1Dim Array1Par, Array2Dim Array2Par, OneToFifty IntParI1, OneToFifty IntParI2)

{

        REG OneToFifty  IntLoc;

        REG OneToFifty  IntIndex;

        IntLoc = IntParI1 + 5;

        Array1Par[IntLoc] = IntParI2;

        Array1Par[IntLoc+1] = Array1Par[IntLoc];

        Array1Par[IntLoc+30] = IntLoc;

        for (IntIndex = IntLoc; IntIndex <= (IntLoc+1); ++IntIndex)

                Array2Par[IntLoc][IntIndex] = IntLoc;

        ++Array2Par[IntLoc][IntLoc-1];

        Array2Par[IntLoc+20][IntLoc] = Array1Par[IntLoc];

        IntGlob = 5;

}

Enumeration Func1(CapitalLetter CharPar1, CapitalLetter CharPar2)

{

        REG CapitalLetter       CharLoc1;

        REG CapitalLetter       CharLoc2;

        CharLoc1 = CharPar1;

        CharLoc2 = CharLoc1;

        if (CharLoc2 != CharPar2)

                return (Ident1);

        else

                return (Ident2);

}

boolean Func2(String30 StrParI1, String30 StrParI2)

{

        REG OneToThirty IntLoc=0;

        REG CapitalLetter CharLoc=0;

        IntLoc = 1;

        while (IntLoc <= 1)

                if (Func1(StrParI1[IntLoc], StrParI2[IntLoc+1]) == Ident1)

                {

                        CharLoc = 'A';