Fixed explicit runtime call with proper built-in procedure

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

source/FoxDocumentationBackend.Mod

@@ -588,7 +588,7 @@ TYPE
 			PROCEDURE InBounds(val: HUGEINT; bits: LONGINT): BOOLEAN;
 			VAR m: HUGEINT;
 			BEGIN
-				m := Runtime.AslH(1,bits-1);
+				m := ASH(HUGEINT(1),bits-1);
 				RETURN (val < m) & (-val <= m)
 			END InBounds;
 		BEGIN