---------------------------------------------------------squ--------angel----ratio
---------------------------------------------------------time in microseconds
Calling void function from c/c++ to script 10000times    3894        90453    003
Calculating first 30 fibonacii nums in script            1527859     398040   3.99
Computing 100000 float math divisions/multiplications    47549       31603    1.58
Script calls another script void function 100000 times   47347       17613   2.81                       
Integer math storing the results into 1000 int array     429811      528918  0.85
10000 calls to C/C++ function passing an integer         10056       1604    6.24
10000 calls to C/C++ function passing a 32 chars string  9891        8484    1.17
--------------------------------------------------------------------------------

TEST                        SQUIRREL2_1_0  angelscript_2.6.0
----------------------------------------------------------------
1K calls C++    -> Script    S = 2357      A = 5716        
1K calls Script -> Script    S = 843       A = 1104        
1K calls Script -> C++       S = 1686      A = 1357        

//angel
int Main(int k, bstr s)
{
    int h=k;
    return h*100;
}

int CallScript(int v)
{
    int k;
    for(k=0;k<v;k++)
        Main(k,"abcdefghijklmnopqstuvxyz");
    return v;
}

int CallHost(CTest o, int n)
{
    int i;
    for (i = 0; i < n; i++) 
    {
        o.Calla(i,"asdfghjkqwertyuiopasdfghjkqwertyuiopas");
    }
    return i;
}

//squer
function Main(k,s)
{
    local h=k;
    return h*100;
}

function CallScript(v)
{
    local l = 0;
    for (local i = 0; i < v; i+=1) 
        Main(i,"abcdefghijklmnopqstuvxyz");
    return l;
}

function CallHost(o,n)
{
    for (local i = 0; i < n; i+=1) 
    {
        o.Call(i,"asdfghjkqwertyuiopasdfghjkqwertyuiopas");
    }
    return 0;
}


//cpp angel
  int r = s._pengine->RegisterObjectType("CTest", sizeof(CTest), asOBJ_CLASS);
    r = s._pengine->RegisterObjectMethod("CTest", "int Calla(int i, bstr s)", asMETHOD(CTest,Calla),asCALL_THISCALL);

    
    asBSTR pstr = asBStrAlloc(64);
    strcpy((char*)pstr,"asdfasdfasdfas2458 jhflkajsdhflkjasdhflkjadfasdf");


    BOOL b = s.Load("test.ang");

    int Main            =   s.GetFunction("test.ang","int Main(int k, bstr s)");
    int CallScript      =   s.GetFunction("test.ang","int CallScript(int v)");
    int CallHost        =   s.GetFunction("test.ang","int CallHost(CTest o, int n)");

    FFunctor    fMain(Main);
    FFunctor    fCallScript(CallScript);  
    FFunctor    fCallHost(CallHost);
    DECLARE_TIME();
    for(int i=0;i<1000;i++)
    {
        fMain(i,&pstr);
    }
    GETTIME();
...

//cpp sqer
CTest       t;
    SquirrelVM::Init();

    SQClassDef<CTest>("CTest").func(&CTest::Call,"Call");

    SquirrelObject main = SquirrelVM::CompileScript(_SC("test.nut"));
    SquirrelVM::RunScript(main);

    SquirrelFunction<int> fMain("Main");
    SquirrelFunction<int> fCallScript("CallScript");
    SquirrelFunction<int> fCallHost("CallHost");
    const char str[]="asdfasdfasdfas2458 jhflkajsdhflkjasdhflkjadfasdf";

    DECLARE_TIME();
    for(int i=0;i<1000;i++)
    {
        fMain(i, str);
    }

#define sq_argassert(arg,_index_) if (!Match(TypeWrapper<P##arg>(),v,_index_)) return sq_throwerror(v,_T("Incorrect function argument"))

to

#define sq_argassert(arg,_index_)

int Main(int k, bstr s){
    int h=k;
    return h*100;
}
int CallScript(int v){ 
    int k;
    for(k=0;k<v;k++)
        Main(k,"abcdefghijklmnopqstuvxyz");
    return v;
}
int CallHost(CTest o, int n){
    int i;
    for (i = 0; i < n; i++) {
        o.Calla(i,"asdfghjkqwertyuiopasdfghjkqwertyuiopas");
    }
    return i;
}
int Calculus(int v){
    int i;
    float a;
    float b;
    float c;
    float d = 1.0;
    for(i=0; i<v;i++)
    {
        a  = i;
        b  = 10000.0/a;
        c  = a*a;
        d += (b*c);
    }
    return i;
}

function Main(k,s){
    local h=k;
    return h*100;
}
function CallScript(v){
    local l = 0;
    for (local i = 0; i < v; i+=1) 
        Main(i,"abcdefghijklmnopqstuvxyz");
    return l;
}
function CallHost(o,n){
    for (local i = 0; i < n; i+=1){
        o.Call(i,"asdfghjkqwertyuiopasdfghjkqwertyuiopas");
    }
    return 0;
}
function Calculus(v){
    local i;
    local a;
    local b;
    local c;
    local d = 1.0;
    for(i=0; i<v;i+=1){
        a  = i;
        b  = 10000.0/a;
        c  = a*a;
        d += (b*c);
    }
    return i;
}

function Main(k, k){
    var h=k;
    return h*100;
}
function CallScript(v){
    var l = 0;
    for (var i = 0; i < 10; i++) 
        Main(i,"abcdefghijklmnopqstuvxyz");
    return l;
}

function CallHost(){
    for (var i = 0; i < 10; i+=1){
        alert("asdfaksdjfhalksdhfkajsdhf");
    }
    return 0;
}

function Calculus(v){
    var a;
    var b;
    var c;
    var d = 1.0;
    for(var i=0; i<10000; i++){
        a  = i;
        b  = 10000.0/a;
        c  = a*a;
        d += (b*c);
    }
    return 0;
}