Compare PVars, GVars, SVars, properties, locals, and globals.

pvarvvar.pwn

#define INCLUDE_PROFILINGS

#include <a_samp>
#include <YSI_Core\y_profiling>
#include <gvar>

static
	gPlayerid,
	gVar,
	gDest;

#pragma unused gDest

#define LOOP_COUNT (10)
#define REPEAT_10(%0) %0,%0,%0,%0,%0,%0,%0,%0,%0,%0

Profile:WriteGlobals()
{
	REPEAT_10(gVar = 42);
	REPEAT_10(gVar = 42);
	REPEAT_10(gVar = 42);
	REPEAT_10(gVar = 42);
	REPEAT_10(gVar = 42);
}

Profile:WriteLocals()
{
	new local;
	REPEAT_10(local = 42);
	REPEAT_10(local = 42);
	REPEAT_10(local = 42);
	REPEAT_10(local = 42);
	REPEAT_10(local = 42);
	#pragma unused local
}

Profile:WritePVars()
{
	REPEAT_10(SetPVarInt(gPlayerid, "PVar", 42));
	REPEAT_10(SetPVarInt(gPlayerid, "PVar", 42));
	REPEAT_10(SetPVarInt(gPlayerid, "PVar", 42));
	REPEAT_10(SetPVarInt(gPlayerid, "PVar", 42));
	REPEAT_10(SetPVarInt(gPlayerid, "PVar", 42));
}

Profile:WriteSVars()
{
	REPEAT_10(SetSVarInt("SVar", 42));
	REPEAT_10(SetSVarInt("SVar", 42));
	REPEAT_10(SetSVarInt("SVar", 42));
	REPEAT_10(SetSVarInt("SVar", 42));
	REPEAT_10(SetSVarInt("SVar", 42));
}

Profile:WriteGVars()
{
	REPEAT_10(SetGVarInt("GVar", 42));
	REPEAT_10(SetGVarInt("GVar", 42));
	REPEAT_10(SetGVarInt("GVar", 42));
	REPEAT_10(SetGVarInt("GVar", 42));
	REPEAT_10(SetGVarInt("GVar", 42));
}

Profile:WriteProperties()
{
	REPEAT_10(setproperty(.name = "Prop", .value = 42));
	REPEAT_10(setproperty(.name = "Prop", .value = 42));
	REPEAT_10(setproperty(.name = "Prop", .value = 42));
	REPEAT_10(setproperty(.name = "Prop", .value = 42));
	REPEAT_10(setproperty(.name = "Prop", .value = 42));
}

ProfileInit:WriteGlobals()
{
	gVar = 42;
}

ProfileInit:WriteLocals()
{
}

ProfileInit:WritePVars()
{
	SetPVarInt(gPlayerid, "PVar", 42);
}

ProfileInit:WriteSVars()
{
	SetSVarInt("SVar", 42);
}

ProfileInit:WriteGVars()
{
	SetGVarInt("GVar", 42);
}

ProfileInit:WriteProperties()
{
	setproperty(.name = "Prop", .value = 42);
}

Profile:ReadGlobals()
{
	REPEAT_10(gDest = gVar);
	REPEAT_10(gDest = gVar);
	REPEAT_10(gDest = gVar);
	REPEAT_10(gDest = gVar);
	REPEAT_10(gDest = gVar);
}

Profile:ReadLocals()
{
	new local;
	REPEAT_10(gDest = local);
	REPEAT_10(gDest = local);
	REPEAT_10(gDest = local);
	REPEAT_10(gDest = local);
	REPEAT_10(gDest = local);
}

Profile:ReadPVars()
{
	REPEAT_10(gDest = GetPVarInt(gPlayerid, "PVar"));
	REPEAT_10(gDest = GetPVarInt(gPlayerid, "PVar"));
	REPEAT_10(gDest = GetPVarInt(gPlayerid, "PVar"));
	REPEAT_10(gDest = GetPVarInt(gPlayerid, "PVar"));
	REPEAT_10(gDest = GetPVarInt(gPlayerid, "PVar"));
}

Profile:ReadSVars()
{
	REPEAT_10(gDest = GetSVarInt("SVar"));
	REPEAT_10(gDest = GetSVarInt("SVar"));
	REPEAT_10(gDest = GetSVarInt("SVar"));
	REPEAT_10(gDest = GetSVarInt("SVar"));
	REPEAT_10(gDest = GetSVarInt("SVar"));
}

Profile:ReadGVars()
{
	REPEAT_10(gDest = GetGVarInt("GVar"));
	REPEAT_10(gDest = GetGVarInt("GVar"));
	REPEAT_10(gDest = GetGVarInt("GVar"));
	REPEAT_10(gDest = GetGVarInt("GVar"));
	REPEAT_10(gDest = GetGVarInt("GVar"));
}

Profile:ReadProperties()
{
	REPEAT_10(gDest = getproperty(.name = "Prop"));
	REPEAT_10(gDest = getproperty(.name = "Prop"));
	REPEAT_10(gDest = getproperty(.name = "Prop"));
	REPEAT_10(gDest = getproperty(.name = "Prop"));
	REPEAT_10(gDest = getproperty(.name = "Prop"));
}

main()
{
	print("\n------------------");
	printf(" Variables timing ");
	print("------------------\n");
}

public OnPlayerSpawn(playerid)
{
	gPlayerid = playerid;
	Profiling_RunAll();
}