Browse Source

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 years ago
parent
commit
fef1eb2991
1 changed files with 1 additions and 1 deletions
  1. 1 1
      source/FoxSemanticChecker.Mod

+ 1 - 1
source/FoxSemanticChecker.Mod

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