Removed duplicated semicolons

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

source/Decoder.Mod

@@ -1063,7 +1063,7 @@ TYPE
 			w.String("Pointers in Procs"); w.Ln;
 			FOR i := 0 TO LEN(gcInfo)-1 DO
 				w.String("code offset "); w.Hex(gcInfo[i].codeOffset,-8); w.Ln;
-				w.String("begin offset "); w.Hex(gcInfo[i].beginOffset,-8); w.Ln;;
+				w.String("begin offset "); w.Hex(gcInfo[i].beginOffset,-8); w.Ln;
 				w.String("end offset "); w.Hex(gcInfo[i].endOffset,-8); w.Ln;
 				w.String("pointers: "); w.Ln;
 				FOR j := 0 TO LEN(gcInfo[i].pointers) - 1 DO

source/FoxArrayBase.Mod

@@ -7283,7 +7283,7 @@ Sufficient (but not necessary) conditions:
 		WHILE (len > 0) DO
 			SYSTEM.GET( ladr, lval );
 			INC( ladr, linc ); DEC( len );
-			IF lval>val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;;
+			IF lval>val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;
 			INC(dadr,dinc); 
 		END;
 	END MaxAXSXLoop;
@@ -7302,7 +7302,7 @@ Sufficient (but not necessary) conditions:
 		WHILE (len > 0) DO
 			SYSTEM.GET( ladr, lval );
 			INC( ladr, linc ); DEC( len );
-			IF lval>val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;;
+			IF lval>val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;
 			INC(dadr,dinc); 
 		END;
 	END MaxARSRLoop;
@@ -7381,7 +7381,7 @@ Sufficient (but not necessary) conditions:
 		WHILE (len > 0) DO
 			SYSTEM.GET( ladr, lval );
 			INC( ladr, linc ); DEC( len );
-			IF lval<val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;;
+			IF lval<val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;
 			INC(dadr,dinc); 
 		END;
 	END MinAXSXLoop;
@@ -7401,7 +7401,7 @@ Sufficient (but not necessary) conditions:
 		WHILE (len > 0) DO
 			SYSTEM.GET( ladr, lval );
 			INC( ladr, linc ); DEC( len );
-			IF lval<val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;;
+			IF lval<val THEN SYSTEM.PUT( dadr, lval) ELSE SYSTEM.PUT(dadr, val) END;
 			INC(dadr,dinc); 
 		END;
 	END MinARSRLoop;

source/FoxGlobal.Mod

@@ -751,10 +751,10 @@ TYPE
 			system.integerType := SyntaxTree.NewIntegerType(16, TRUE);
 			system.booleanType := SyntaxTree.NewBooleanType(8);
 			system.byteType := SyntaxTree.NewByteType(8);
-			system.characterType := SyntaxTree.NewCharacterType(8);;
-			system.characterType8 := SyntaxTree.NewCharacterType(8);;
-			system.characterType16 := SyntaxTree.NewCharacterType(16);;
-			system.characterType32 := SyntaxTree.NewCharacterType(32);;
+			system.characterType := SyntaxTree.NewCharacterType(8);
+			system.characterType8 := SyntaxTree.NewCharacterType(8);
+			system.characterType16 := SyntaxTree.NewCharacterType(16);
+			system.characterType32 := SyntaxTree.NewCharacterType(32);
 			(*
 			system.shortintType := Integer8;
 			system.integerType := Integer16;

source/FoxIntermediateBackend.Mod

@@ -1195,7 +1195,7 @@ TYPE
 		PROCEDURE GetVariable(i: LONGINT): SyntaxTree.Variable;
 		VAR any: ANY;
 		BEGIN
-			any := Get(i);;
+			any := Get(i);
 			IF any = NIL THEN RETURN NIL ELSE RETURN any(SyntaxTree.Variable) END;
 		END GetVariable;
 		

source/FoxScanner.Mod

@@ -891,7 +891,7 @@ TYPE
 			stringMaker.Clear;
 			CASE ch OF  (* ch > " " *)
 			EOT: s := EndOfText
-			|ESC: s := Escape;; GetNextCharacter
+			|ESC: s := Escape; GetNextCharacter
 			| DoubleQuote:
 					s := String; GetString(symbol,TRUE, TRUE, FALSE);
 			| SingleQuote:

source/FoxTRMBackend.Mod

@@ -283,7 +283,7 @@ TYPE
 		BEGIN
 			CheckStackPointer(op1);
 			instructionSet.InitImmediate(op2,0,n);
-			Emit(op, op1, op2);;
+			Emit(op, op1, op2);
 		END Emit2N;
 
 		PROCEDURE Emit1(op: LONGINT; CONST op1: InstructionSet.Operand);

source/Generic.Linux.I386.Unix.Mod

@@ -783,7 +783,7 @@ VAR
 
 		sigemptyset( ADDRESS OF sasuspend.sa_mask );
 		sigaddset(  ADDRESS OF sasuspend.sa_mask, T_SIGRESUME );
-		sasuspend.sa_flags := SA_SIGINFO + (*SA_ONSTACK +*) SA_NODEFER;;
+		sasuspend.sa_flags := SA_SIGINFO + (*SA_ONSTACK +*) SA_NODEFER;
 		sasuspend.sa_handler := suspend_handler;
 		ASSERT(sigaction( T_SIGSUSPEND, ADDRESS OF sasuspend, NIL ) = 0);
 

source/Generic.Reflection.Mod

@@ -401,7 +401,7 @@ CONST
 			SYSTEM.GET(adr, word); Signed(word);
 		| sfTypeLONGWORD: 
 			size := SIZEOF(LONGWORD);
-			SYSTEM.GET(adr, lword); Signed(lword);;
+			SYSTEM.GET(adr, lword); Signed(lword);
 		| sfTypeSIGNED8:
 			size := SIZEOF(SIGNED8);
 			SYSTEM.GET(adr, s8); Signed(s8);

source/Loader.Mod

@@ -540,7 +540,7 @@ BEGIN
 			startAddr := startAddr + tdSize;
 			totTdSize := totTdSize + tdSize;
 		END;
-		ASSERT(totTdSize  = LEN(m.staticTypeDescs));;
+		ASSERT(totTdSize  = LEN(m.staticTypeDescs));
 		RETURN TRUE
 	ELSE
 		RETURN FALSE

source/OZip.mod

@@ -382,7 +382,7 @@ type
 	(* Borrows Wheeler Transformation, Decode*)	
 	procedure BWDecode( var buf: array of char; length, index: longint );
 	var 
-		l, f: pointer to array of char;; 
+		l, f: pointer to array of char;
 		lc, fc: pointer to array of longint;
 		xn: array 256 of longint;  i, j, n: longint;
 		ch: char;

source/Oberon.Compilation.Test

@@ -30597,7 +30597,7 @@ positive: return statement with value in procedure with return type
 negative: return statement without value in procedure with return type
 
 	MODULE Test;
-	PROCEDURE Procedure (): INTEGER;;
+	PROCEDURE Procedure (): INTEGER;
 	BEGIN RETURN
 	END Procedure;
 	END Test.

source/SerialsVirtual.Mod

@@ -442,7 +442,7 @@ VAR rate, divisor: LONGINT;
 BEGIN
 	IF context.arg.GetInteger(rate,FALSE) & context.arg.GetInteger(divisor,FALSE) THEN
 		errorRate := rate  / divisor;
-	END;;
+	END;
 END SetErrorRate;
 
 

source/Unix.BootLinker.Mod

@@ -78,7 +78,7 @@ VAR
 		out.String( "UnixAos BootLinker creating " );  out.String( fullPath );  out.Ln;
 		
 		Heaps.Initialize( context.error );
-		Modules.Initialize( context.error );;
+		Modules.Initialize( context.error );
 		Loader.Initialize( context.error );
 						
 		res := Ok;

source/Unix.Clipboard.Mod

@@ -120,7 +120,7 @@ VAR
 	BEGIN
 		e := pos + 4;  unicode := 0;
 		REPEAT
-			c := buf[pos];  INC( pos );;
+			c := buf[pos];  INC( pos );
 			IF (c >= '0') & (c <= '9' ) THEN unicode := unicode*10H + ORD( c ) - ORD( '0' )
 			ELSIF (c >= 'a') & (c <= 'f') THEN unicode := unicode*10H + ORD( c ) - ORD( 'a' ) + 10
 			ELSIF (c >= 'A') & (c <= 'F') THEN unicode := unicode*10H + ORD( c ) - ORD( 'A' ) + 10

source/UsbEhci.Mod

@@ -513,7 +513,7 @@ TYPE
 
 			(*
 			pipe.qh := Align(pipe.qh, alignQh);
-			pipe.tdBase := pipe.qh + alignQh;;
+			pipe.tdBase := pipe.qh + alignQh;
 			*)
 			(*
 			IF ~CheckBoundary(pipe.qh, sizeQh) THEN

source/Win32.Objects.Mod

@@ -193,7 +193,7 @@ TYPE
 				state.ContextFlags := Kernel32.SetToDW(Kernel32.ContextControl + Kernel32.ContextInteger);
 				res := Kernel32.GetThreadContext( handle, state );
 				
-				context.ContextFlags := Kernel32.SetToDW(Kernel32.ContextControl + Kernel32.ContextInteger);;
+				context.ContextFlags := Kernel32.SetToDW(Kernel32.ContextControl + Kernel32.ContextInteger);
 				IF isWow64 THEN 
 					res := Kernel32.Wow64GetThreadContext( handle, context );
 				ELSE

source/srVoxel.Mod

@@ -995,7 +995,7 @@ BEGIN
 			bx := ray.lx + ray.dx; by := ray.ly+ ray.dy; bz := ray.lz+ ray.dz;
 			x := (ax+bx)/2; y := (ay+by)/2; z := (az + bz)/2;
 			FOR i := 0 TO 12 DO
-				r2 := (cx-x)*(cx-x) + (cy-y)*(cy-y) + (cz-z)*(cz-z);;
+				r2 := (cx-x)*(cx-x) + (cy-y)*(cy-y) + (cz-z)*(cz-z);
 				IF r2 > R2 THEN
 					bx := x; by := y; bz := z
 				ELSE