Selaa lähdekoodia

patched INCL / EXCL with HUGEINT argument

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6845 8c9fc860-2736-0410-a75d-ab315db34111
felixf 9 vuotta sitten
vanhempi
commit
9e675a60f6
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      source/FoxSemanticChecker.Mod

+ 1 - 1
source/FoxSemanticChecker.Mod

@@ -5152,7 +5152,7 @@ TYPE
 					END;
 				(* ---- EXCL, INCL----- *)
 				ELSIF ((id = Global.Excl) OR (id = Global.Incl)) & CheckArity(2,2) THEN
-					IF CheckVariable(parameter0) & CheckSetType(parameter0) & CheckSizeType(parameter1) THEN
+					IF CheckVariable(parameter0) & CheckSetType(parameter0) & CheckIntegerType(parameter1) THEN
 						IF IsIntegerValue(parameter1,i0) THEN
 							IF (i0 < 0) OR (i0>= system.setType.sizeInBits) THEN
 								Error(position,Diagnostics.Invalid,"parameter out of SET range")