tsc.c

//#define _TSC	// do this in the project settings!

/****************************************************************************************/
/*  TSC                                                                                 */
/*                                                                                      */
/*  Author: Charles Bloom                                                               */
/*  Description: tsc accessors                                                          */
/*                                                                                      */
/*  The contents of this file are subject to the Genesis3D Public License               */
/*  Version 1.01 (the "License"); you may not use this file except in                   */
/*  compliance with the License. You may obtain a copy of the License at                */
/*  http://www.genesis3d.com                                                            */
/*                                                                                      */
/*  Software distributed under the License is distributed on an "AS IS"                 */
/*  basis, WITHOUT WARRANTY OF ANY KIND, either express or implied.  See                */
/*  the License for the specific language governing rights and limitations              */
/*  under the License.                                                                  */
/*                                                                                      */
/*  The Original Code is Genesis3D, released March 25, 1999.                            */
/*Genesis3D Version 1.1 released November 15, 1999                            */
/*  Copyright (C) 1999 WildTangent, Inc. All Rights Reserved           */
/*                                                                                      */
/****************************************************************************************/

typedef unsigned long ulong;

// {
#ifdef _TSC

#pragma message("TSC on")

#include "ram.h"
#include "log.h"
#include <stdio.h>	//sprintf
#include <windows.h>	//outputdebug

#define MemAlloc(size)	geRam_Allocate(size)
#define MemFree(mem)	geRam_Free(mem)

#undef  new
#define new(type)		MemAlloc(sizeof(type))
#undef  destroy
#define destroy(mem)	MemFree(mem)

#include "tsc.h"

typedef struct tscNode tscNode;
struct tscNode 
{
	tscNode *next;
	ulong tsc[2];
};
tscNode * head = NULL;

void pushTSC(void)
{
tscNode *tn;
	tn = new(tscNode);
	if ( !tn ) return;
	tn->next = head;
	head = tn;
	readTSC(tn->tsc);
}

double popTSC(void)
{
tscNode *tn;
ulong tsc[2];
	readTSC(tsc);
	if ( ! head ) return 0.0;
	tn = head;
	head = head->next;
return diffTSC(tn->tsc,tsc);
}

void showPopTSC(const char *tag)
{
double time;
	time = popTSC();
	Log_Printf("%s : %f seconds\n",tag,time);
}

void showPopTSCper(const char *tag,int items,const char *itemTag)
{
double time,per;
	time = popTSC();
	per = (time/(double)items);
	if ( per < 0.000001 ) 
		Log_Printf("%s : %f = %e per %s\n",tag,time,per,itemTag);
	else
		Log_Printf("%s : %f = %f per %s\n",tag,time,per,itemTag);
}

void readTSC(ulong *hi)
{
ulong *lo = hi + 1;
	__asm 
	{
		_emit 0x0F;
		_emit 0x31;	// rdtsc
		mov EBX,hi
		mov DWORD PTR [EBX],EDX;
		mov EBX,lo
		mov DWORD PTR [EBX],EAX;
	}
	return;
}

#define CPU_HZ (_TSC_CPU_MHZ*1000000.0)
#define msw_scale (4294967296.0/CPU_HZ)
#define lsw_scale (1.0/CPU_HZ)

double diffTSC(ulong *tsc1,ulong *tsc2)
{

 return	(tsc2[1] - tsc1[1])*lsw_scale +
		(tsc2[0] - tsc1[0])*msw_scale;

}

#else // _TSC
// }{

#pragma message("TSC off")

void pushTSC(void) {}
double popTSC(void) { return 0.0; }
void showPopTSC(const char *tag) { }
void showPopTSCper(const char *tag,int items,const char *itemTag) { }
void readTSC(ulong *hi) {}
double diffTSC(ulong *tsc1,ulong *tsc2) { return 0; }

#endif // _TSC
// }