[r100]: / branches / i-campbell / mqttsparkplugb / mqttsparkplugb / SparkplugB / Function Blocks / FB_Payload_1 / FB_Payload / Pool / ClaimNextFreeElement / svnobj  Maximize  Restore  History

Download this file

7 lines (6 with data), 1.8 kB 

1
2
3
4
5
6
IF ElementsPoolFreeIndex <= UPPER_BOUND(ElementsPool,1) THEN
	ClaimNextFreeElement := ElementsPool[ElementsPoolFreeIndex];
	ElementsPoolFreeIndex := ElementsPoolFreeIndex +1;
ELSE
	eError := ERROR.PayloadNotEnoughElementsPool;
END_IF