Added EmitParamInt to VMFunctionBuilder

src/zscript/vmbuilder.cpp

@@ -468,6 +468,28 @@ size_t VMFunctionBuilder::Emit(int opcode, int opabc)
 	return Code.Push(op);
 }
 
+//==========================================================================
+//
+// VMFunctionBuilder :: EmitParamInt
+//
+// Passes a constant integer parameter, using either PARAMI and an immediate
+// value or PARAM and a constant register, as appropriate.
+//
+//==========================================================================
+
+size_t VMFunctionBuilder::EmitParamInt(int value)
+{
+	// Immediates for PARAMI must fit in 24 bits.
+	if (((value << 8) >> 8) == value)
+	{
+		return Emit(OP_PARAMI, value);
+	}
+	else
+	{
+		return Emit(OP_PARAM, 0, REGT_INT | REGT_KONST, GetConstantInt(value));
+	}
+}
+
 //==========================================================================
 //
 // VMFunctionBuilder :: EmitLoadInt

src/zscript/vmbuilder.h

@@ -36,6 +36,7 @@ public:
 	size_t Emit(int opcode, int opa, int opb, int opc);
 	size_t Emit(int opcode, int opa, VM_SHALF opbc);
 	size_t Emit(int opcode, int opabc);
+	size_t EmitParamInt(int value);
 	size_t EmitLoadInt(int regnum, int value);
 	size_t EmitRetInt(int retnum, bool final, int value);