浏览代码

fixed a bug in patching integer values - probably a copy paste bug

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6690 8c9fc860-2736-0410-a75d-ab315db34111
eth.morozova 9 年之前
父节点
当前提交
fcf73a5266
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      source/FoxIntermediateLinker.Mod

+ 1 - 1
source/FoxIntermediateLinker.Mod

@@ -94,7 +94,7 @@ TYPE
 				TRACE(sectionName);
 				RETURN FALSE 
 			END; (* nothing to patch *)
-			itype := IntermediateCode.GetType(backend.system, backend.system.booleanType);
+			itype := IntermediateCode.GetType(backend.system, type);
 			IntermediateCode.InitImmediate(op1,itype, value);
 			IntermediateCode.InitInstruction1(instruction, 0,  IntermediateCode.data, op1);
 			EmitAt(section(IntermediateCode.Section),index, instruction);