zdoom/qzdoom-gpl
0
0
Fork 0
mirror of https://github.com/ZDoom/qzdoom-gpl.git synced 2024-11-17 09:41:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

- Fixed VMParamFiller to use proper A register tags.

Browse source 
- Changed RET so that it will still work if the caller expects fewer return values.

SVN r1843 (scripting)
This commit is contained in:
Randy Heit 2009-09-16 02:53:05 +00:00
parent fefc306a54
commit b7ad95446f
2 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
zscript/vm.h
View file

@ -104,6 +104,7 @@ enum
ATAG_SREGISTER, // pointer to a string register
ATAG_AREGISTER, // pointer to an address register
ATAG_STATE, // pointer to FState
};
class VMFunction : public DObject
@ -758,14 +759,14 @@ public:
void ParamObject(DObject *obj)
{
Reg.a[RegA] = obj;
Reg.atag[RegA] = true;
Reg.atag[RegA] = ATAG_OBJECT;
RegA++;
}
void ParamPointer(void *ptr)
void ParamPointer(void *ptr, VM_UBTYE atag)
{
Reg.a[RegA] = ptr;
Reg.atag[RegA] = false;
Reg.atag[RegA] = atag;
RegA++;
}

9
zscript/vmexec.h
View file

@ -533,11 +533,14 @@ begin:
{ // No return values
return 0;
}
assert(a < numret);
SetReturn(reg, f, &ret[a], B, C);
assert(ret != NULL || numret == 0);
if (a < numret)
{
SetReturn(reg, f, &ret[a], B, C);
}
if (B & REGT_FINAL)
{
return a + 1;
return MIN(numret, a + 1);
}
NEXTOP;
OP(RESULT):