Subversion Repositories riscv_vhdl

/*

 ****************************************************************************

 *

 *                   "DHRYSTONE" Benchmark Program

 *                   -----------------------------

 *

 *  Version:    C, Version 2.1

 *

 *  File:       dhry_2.c (part 3 of 3)

 *

 *  Date:       May 25, 1988

 *

 *  Author:     Reinhold P. Weicker

 *

 ****************************************************************************

 */

#include "dhry.h"

#ifndef REG

#define REG

        /* REG becomes defined as empty */

        /* i.e. no register variables   */

#endif

#if defined(CONFIG_RISCV64) || defined(CONFIG_LEON3)

#pragma GCC diagnostic push

#pragma GCC diagnostic ignored "-Wimplicit-function-declaration"

#pragma GCC diagnostic ignored "-Wimplicit-int"

#pragma GCC diagnostic ignored "-Wreturn-type"

#endif

extern  int     Int_Glob;

extern  char    Ch_1_Glob;

Proc_6 (Enum_Val_Par, Enum_Ref_Par)

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

    /* executed once */

    /* Enum_Val_Par == Ident_3, Enum_Ref_Par becomes Ident_2 */

Enumeration  Enum_Val_Par;

Enumeration *Enum_Ref_Par;

{

  *Enum_Ref_Par = Enum_Val_Par;

  if (! Func_3 (Enum_Val_Par))

    /* then, not executed */

    *Enum_Ref_Par = Ident_4;

  switch (Enum_Val_Par)

  {

    case Ident_1:

      *Enum_Ref_Par = Ident_1;

      break;

    case Ident_2:

      if (Int_Glob > 100)

        /* then */

      *Enum_Ref_Par = Ident_1;

      else *Enum_Ref_Par = Ident_4;

      break;

    case Ident_3: /* executed */

      *Enum_Ref_Par = Ident_2;

      break;

    case Ident_4: break;

    case Ident_5:

      *Enum_Ref_Par = Ident_3;

      break;

  } /* switch */

} /* Proc_6 */

Proc_7 (Int_1_Par_Val, Int_2_Par_Val, Int_Par_Ref)

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

    /* executed three times                                      */

    /* first call:      Int_1_Par_Val == 2, Int_2_Par_Val == 3,  */

    /*                  Int_Par_Ref becomes 7                    */

    /* second call:     Int_1_Par_Val == 10, Int_2_Par_Val == 5, */

    /*                  Int_Par_Ref becomes 17                   */

    /* third call:      Int_1_Par_Val == 6, Int_2_Par_Val == 10, */

    /*                  Int_Par_Ref becomes 18                   */

One_Fifty       Int_1_Par_Val;

One_Fifty       Int_2_Par_Val;

One_Fifty      *Int_Par_Ref;

{

  One_Fifty Int_Loc;

  Int_Loc = Int_1_Par_Val + 2;

  *Int_Par_Ref = Int_2_Par_Val + Int_Loc;

} /* Proc_7 */

Proc_8 (Arr_1_Par_Ref, Arr_2_Par_Ref, Int_1_Par_Val, Int_2_Par_Val)

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

    /* executed once      */

    /* Int_Par_Val_1 == 3 */

    /* Int_Par_Val_2 == 7 */

Arr_1_Dim       Arr_1_Par_Ref;

Arr_2_Dim       Arr_2_Par_Ref;

int             Int_1_Par_Val;

int             Int_2_Par_Val;

{

  REG One_Fifty Int_Index;

  REG One_Fifty Int_Loc;

  Int_Loc = Int_1_Par_Val + 5;

  Arr_1_Par_Ref [Int_Loc] = Int_2_Par_Val;

  Arr_1_Par_Ref [Int_Loc+1] = Arr_1_Par_Ref [Int_Loc];

  Arr_1_Par_Ref [Int_Loc+30] = Int_Loc;

  for (Int_Index = Int_Loc; Int_Index <= Int_Loc+1; ++Int_Index)

    Arr_2_Par_Ref [Int_Loc] [Int_Index] = Int_Loc;

  Arr_2_Par_Ref [Int_Loc] [Int_Loc-1] += 1;

  Arr_2_Par_Ref [Int_Loc+20] [Int_Loc] = Arr_1_Par_Ref [Int_Loc];

  Int_Glob = 5;

} /* Proc_8 */

Enumeration Func_1 (Ch_1_Par_Val, Ch_2_Par_Val)

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

    /* executed three times                                         */

    /* first call:      Ch_1_Par_Val == 'H', Ch_2_Par_Val == 'R'    */

    /* second call:     Ch_1_Par_Val == 'A', Ch_2_Par_Val == 'C'    */

    /* third call:      Ch_1_Par_Val == 'B', Ch_2_Par_Val == 'C'    */

Capital_Letter   Ch_1_Par_Val;

Capital_Letter   Ch_2_Par_Val;

{

  Capital_Letter        Ch_1_Loc;

  Capital_Letter        Ch_2_Loc;

  Ch_1_Loc = Ch_1_Par_Val;

  Ch_2_Loc = Ch_1_Loc;

  if (Ch_2_Loc != Ch_2_Par_Val)

    /* then, executed */

    return (Ident_1);

  else  /* not executed */

  {

    Ch_1_Glob = Ch_1_Loc;

    return (Ident_2);

   }

} /* Func_1 */

Boolean Func_2 (Str_1_Par_Ref, Str_2_Par_Ref)

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

    /* executed once */

    /* Str_1_Par_Ref == "DHRYSTONE PROGRAM, 1'ST STRING" */

    /* Str_2_Par_Ref == "DHRYSTONE PROGRAM, 2'ND STRING" */

Str_30  Str_1_Par_Ref;

Str_30  Str_2_Par_Ref;

{

  REG One_Thirty        Int_Loc;

      Capital_Letter    Ch_Loc;

  Int_Loc = 2;

  while (Int_Loc <= 2) /* loop body executed once */

    if (Func_1 (Str_1_Par_Ref[Int_Loc],

                Str_2_Par_Ref[Int_Loc+1]) == Ident_1)

      /* then, executed */

    {

      Ch_Loc = 'A';

      Int_Loc += 1;

    } /* if, while */

  if (Ch_Loc >= 'W' && Ch_Loc < 'Z')

    /* then, not executed */

    Int_Loc = 7;

  if (Ch_Loc == 'R')

    /* then, not executed */

    return (true);

  else /* executed */

  {

    if (strcmp (Str_1_Par_Ref, Str_2_Par_Ref) > 0)

      /* then, not executed */

    {

      Int_Loc += 7;

      Int_Glob = Int_Loc;

      return (true);

    }

    else /* executed */

      return (false);

  } /* if Ch_Loc */

} /* Func_2 */

Boolean Func_3 (Enum_Par_Val)

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

    /* executed once        */

    /* Enum_Par_Val == Ident_3 */

Enumeration Enum_Par_Val;

{

  Enumeration Enum_Loc;

  Enum_Loc = Enum_Par_Val;

  if (Enum_Loc == Ident_3)

    /* then, executed */

    return (true);

  else /* not executed */

    return (false);

} /* Func_3 */

#if defined(CONFIG_RISCV64) || defined(CONFIG_LEON3)

#pragma GCC diagnostic pop

#endif