SCL编译通过不了，求解答

CONST
LIMITED := 7;
QUANTITY := LIMITED + 1;
END_CONST
VAR_INPUT
measval_in : INT ; // 新测量值
newval : BOOL; // 在环形缓冲区"measvals"中的测量值
resort : BOOL; // 对测量值进行排序
funct_sel : BOOL; // Select calculation square root/square
newsel : BOOL; // 取得输出地址
selection : WORD; // 输出地址

END_VAR
VAR_OUTPUT
result_out : INT; // 计算值
measval_out : INT; // 相应的测量值
END_VAR

// Block Parameters

VAR_IN_OUT
   // I/O Parameters
END_VAR

VAR
measvals : ARRAY[0..LIMITED] OF INT := 8(0);
resultbuffer: ARRAY[0..LIMITED] OF
STRUCT
squareroot : INT;
square : INT;
END_STRUCT;
point  : INT := 0;
oldval : BOOL := TRUE;
oldsort : BOOL := TRUE;
oldsel : BOOL := TRUE;
address : INT := 0; // 转换后的输出地址
 eval_instance: EVALUATE;
END_VAR

BEGIN
(*****************************************************************
第1部分：获取测量值。
如果"newval"值发生改变，则输入了测量值。MOD运算是用来实现测量值用的环形缓冲区。
******************************************************************)
IF newval <> oldval THEN
point := point MOD QUANTITY;
measvals[point] := measval_in;
point := point + 1;
END_IF;
oldval := newval;
(*****************************************************************
第2部分：启动排序和计算
如果"resort"发生改变，则启动对环形缓冲区的排序和运行对测量值的计算。
结果存贮在一个新的叫"calcbuffer"的数组里。
******************************************************************)
IF resort <> oldsort THEN
point  := 0; //复位缓冲区指针
eval_instance(sortbuffer := measvals); //调用EVALUATE
END_IF;
oldsort  := resort;
resultbuffer := eval_instance.calcbuffer; //平方值和均方根
(*****************************************************************
第3部分：求代码值和准备输出
如果"newsel"发生改变，则计算用来输出的数组元素的寻址代码：屏蔽"selection"
的相应位并转换为整数。 依据"funct_sel"开关的设置，选择"squareroot"或
"square"用于输出。
******************************************************************)
IF newsel <> oldsel THEN
address := WORD_TO_INT(SHR(IN := selection, N := 12) AND 16#0007);
END_IF;
oldsel := newsel;
IF funct_sel THEN
result_out := resultbuffer[address].square;
ELSE
result_out := resultbuffer[address].squareroot;
END_IF;
measval_out := measvals[address]; //Measured value display
END_FUNCTION_BLOCK

编译通过不了，不知道是哪里出错的