/**
 * Mupen64 - compare_core.c
 * Copyright (C) 2002 Hacktarux
 *
 * Mupen64 homepage: http://mupen64.emulation64.com
 * email address: hacktarux@yahoo.fr
 * 
 * If you want to contribute to the project please contact
 * me first (maybe someone is already making what you are
 * planning to do).
 *
 *
 * This program is free software; you can redistribute it and/
 * or modify it under the terms of the GNU General Public Li-
 * cence as published by the Free Software Foundation; either
 * version 2 of the Licence, or any later version.
 *
 * This program is distributed in the hope that it will be use-
 * ful, but WITHOUT ANY WARRANTY; without even the implied war-
 * ranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public Licence for more details.
 *
 * You should have received a copy of the GNU General Public
 * Licence along with this program; if not, write to the Free
 * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
 * USA.
 *
**/

#include <sys/stat.h>
#include "r4300.h"
#include "../memory/memory.h"
#include "../main/winlnxdefs.h"
#include "../main/plugin.h"
#include "../r4300/recomph.h"

static FILE *f;
static int pipe_opened = 0;
static long long int comp_reg[32];
extern unsigned int op;
extern unsigned int interp_addr;
static unsigned int old_op;

void display_error(char *txt)
{
   int i;
   unsigned int *comp_reg2 = (unsigned int *)comp_reg;
   printf("err: %6s  ", txt);
   if (interpcore)
     {
    printf("addr:%x\t ", (int)interp_addr);
    if (!strcmp(txt, "PC")) printf("My PC: %x  Ref PC: %x\t ", (int)interp_addr, *(int*)&comp_reg[0]);
     }
   else
     {
    printf("addr:%x\t ", (int)PC->addr);
    if (!strcmp(txt, "PC")) printf("My PC: %x  Ref PC: %x\t ", (int)PC->addr, *(int*)&comp_reg[0]);
     }
   
   if (!strcmp(txt, "gpr"))
       {
      for (i=0; i<32; i++)
        {
           if (reg[i] != comp_reg[i])
         printf("My: reg[%d]=%llx\t Ref: reg[%d]=%llx\t ",
            i, reg[i], i, comp_reg[i]);
        }
       }
   if (!strcmp(txt, "cop0"))
       {
      for (i=0; i<32; i++)
        {
           if (reg_cop0[i] != comp_reg2[i])
         printf("My: reg_cop0[%d]=%x\t Ref: reg_cop0[%d]=%x\t ",
            i, (unsigned int)reg_cop0[i], i, (unsigned int)comp_reg2[i]);
        }
       }
   printf("\n");
   /*for (i=0; i<32; i++)
     {
    if (reg_cop0[i] != comp_reg[i])
      printf("reg_cop0[%d]=%llx != reg[%d]=%llx\n",
         i, reg_cop0[i], i, comp_reg[i]);
     }*/
   
   stop_it();
}

void check_input_sync(unsigned char *value)
{
   if (dynacore || interpcore)
     {
    fread(value, 4, 1, f);
     }
   else
     {
    
    fwrite(value, 4, 1, f);
     }
}

void compare_core()
{   
   static int comparecnt = 0;
   int iFirst = 1;
   char errHead[128];
   sprintf(errHead, "Compare #%i  old_op: %x op: %x\n", comparecnt++, (int) old_op, (int) op);

   if (dynacore || interpcore)
     {
    if (!pipe_opened)
      {
         mkfifo("compare_pipe", 0600);
         printf("Waiting to read pipe.\n");
         f = fopen("compare_pipe", "r");
         pipe_opened = 1;
      }
    
    fread (comp_reg, 4, sizeof(int), f);
    if (interpcore)
      {
         if (memcmp(&interp_addr, comp_reg, 4))
         {
           if (iFirst) { printf(errHead); iFirst = 0; }
           display_error("PC");
         }
      }
    else
      {
         if (memcmp(&PC->addr, comp_reg, 4))
         {
           if (iFirst) { printf(errHead); iFirst = 0; }
           display_error("PC");
         }
      }
    fread (comp_reg, 32, sizeof(long long int), f);
    if (memcmp(reg, comp_reg, 32*sizeof(long long int)))
    {
      if (iFirst) { printf(errHead); iFirst = 0; }
      display_error("gpr");
    }
    fread (comp_reg, 32, sizeof(int), f);
    if (memcmp(reg_cop0, comp_reg, 32*sizeof(int)))
    {
      if (iFirst) { printf(errHead); iFirst = 0; }
      display_error("cop0");
      }
    fread (comp_reg, 32, sizeof(long long int), f);
    if (memcmp(reg_cop1_fgr_64, comp_reg, 32*sizeof(long long int)))
    {
      if (iFirst) { printf(errHead); iFirst = 0; }
      display_error("cop1");
    }
    /*fread(comp_reg, 1, sizeof(int), f);
    if (memcmp(&rdram[0x31280/4], comp_reg, sizeof(int)))
      display_error("mem");*/
    /*fread (comp_reg, 4, 1, f);
    if (memcmp(&FCR31, comp_reg, 4))
      display_error();*/
    old_op = op;
     }
   else
     {
    if (!pipe_opened)
      {
         printf("Waiting to write pipe.\n");
         f = fopen("compare_pipe", "w");
         pipe_opened = 1;
      }
    
    fwrite(&PC->addr, 4, sizeof(int), f);
    fwrite(reg, 32, sizeof(long long int), f);
    fwrite(reg_cop0, 32, sizeof(int), f);
    fwrite(reg_cop1_fgr_64, 32, sizeof(long long int), f);
    //fwrite(&rdram[0x31280/4], 1, sizeof(int), f);
    /*fwrite(&FCR31, 4, 1, f);*/
     }
}