浏览代码

a fix: GreaterGreater and LessLess operators do not return a value

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6591 8c9fc860-2736-0410-a75d-ab315db34111
eth.morozova 9 年之前
父节点
当前提交
fef1eb2991
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      source/FoxSemanticChecker.Mod

+ 1 - 1
source/FoxSemanticChecker.Mod

@@ -6946,7 +6946,7 @@ TYPE
 						| Global.Dim: mustBeUnary := TRUE; mustReturnInteger := TRUE;
 						| Scanner.Alias:
 						| Scanner.GreaterGreater, Scanner.LessLess:
-							mustBeBinary := TRUE;
+							mustBeBinary := TRUE; hasReturnType := FALSE;
 						| Scanner.GreaterGreaterQ, Scanner.LessLessQ:
 							mustBeBinary := TRUE; mustReturnBoolean := TRUE;
 						END;