minimal performance issue

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

source/FoxIntermediateCode.Mod

@@ -802,7 +802,7 @@ TYPE
 		AddFormat(special,"special",Any, Any, Any, {} );
 	END InitInstructions;
 
-	PROCEDURE InitInstruction*(VAR instr: Instruction; textPosition: Basic.Position; opcode: SHORTINT; op1,op2,op3: Operand);
+	PROCEDURE InitInstruction*(VAR instr: Instruction; textPosition: Basic.Position; opcode: SHORTINT; CONST op1,op2,op3: Operand);
 	VAR format: InstructionFormat; mode1, mode2, mode3: LONGINT; (* debugging *)
 	BEGIN
 		IF instr = NIL THEN NEW(instr) END;