#include "calc.h"

PrintValue (val)
     Value *val;
{
  printf ("(");
  PrintType (val->type);
  printf (")");

  switch (val->type->typeClass) {
  case Integer:
    printf ("%d", val->data.integer);
    break;
  case Real:
    printf ("%lf", val->data.real);
    break;
  case Pointer:
  case Array:
  case Function:
    printf ("<%08X>", val->data.ptrdata);
    break;
  default:
    printf ("???");
  }    
}