Added a new built-in type called WORDSET which is a SET with the same amount of bits as WORD

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7712 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxGlobal.Mod

@@ -243,7 +243,7 @@ TYPE
 			A good concept has to be derived.
 		*)
 
-		addressType-, sizeType-, shortintType-, integerType-, longintType-, hugeintType-, wordType-, longWordType-, characterType-, characterType8-, characterType16-, characterType32-, setType-, booleanType-, anyType-,byteType-,
+		addressType-, sizeType-, shortintType-, integerType-, longintType-, hugeintType-, wordType-, longWordType-, wordSetType-, characterType-, characterType8-, characterType16-, characterType32-, setType-, booleanType-, anyType-,byteType-,
 		realType-, longrealType-, complexType-, longcomplexType-, objectType-, nilType-, rangeType-, lenType-: SyntaxTree.Type;
 
 
@@ -720,6 +720,7 @@ TYPE
 		system.hugeintType := SyntaxTree.NewIntegerType(64, TRUE);
 		system.wordType := SyntaxTree.NewIntegerType(MIN(system.addressSize,32),TRUE);
 		system.longWordType := SyntaxTree.NewIntegerType(system.addressSize,TRUE);
+		system.wordSetType := SyntaxTree.NewSetType(system.wordType.sizeInBits);
 		system.realType := SyntaxTree.NewFloatType(32);
 		system.longrealType := SyntaxTree.NewFloatType(64);
 		(*
@@ -831,6 +832,7 @@ TYPE
 		DeclareType(system.hugeintType,"HUGEINT",system.globalScope);
 		DeclareType(system.wordType,"WORD",system.globalScope);
 		DeclareType(system.longWordType,"LONGWORD",system.globalScope);
+		DeclareType(system.wordSetType,"WORDSET",system.globalScope);
 
 		DeclareType(Integer8, "SIGNED8", system.globalScope);
 		DeclareType(Integer16, "SIGNED16", system.globalScope);