浏览代码

Hardcode runtime module in cooperative case

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8040 8c9fc860-2736-0410-a75d-ab315db34111
negelef 7 年之前
父节点
当前提交
0f0687d9f6
共有 1 个文件被更改,包括 4 次插入4 次删除
  1. 4 4
      source/FoxIntermediateBackend.Mod

+ 4 - 4
source/FoxIntermediateBackend.Mod

@@ -1603,7 +1603,7 @@ TYPE
 		BEGIN
 			IF backend.cooperative THEN
 				Emit(Push(position,IntermediateCode.Immediate(sizeType,trapNo)));
-				CallThis(position,DefaultRuntimeModuleName,"Trap",1); 
+				CallThis(position,"Runtime","Trap",1); 
 			ELSE
 				Emit(Trap(position,trapNo));
 			END;
@@ -3485,7 +3485,7 @@ TYPE
 			ReleaseOperand(right);
 
 			IF backend.cooperative THEN
-				CallThis(position,DefaultRuntimeModuleName,procedureName, 4);
+				CallThis(position,"Runtime",procedureName, 4);
 			ELSE
 				CallThis(position,runtimeModuleName,procedureName, 4);
 			END;
@@ -3528,7 +3528,7 @@ TYPE
 			ReleaseOperand(right);
 
 			IF backend.cooperative THEN
-				CallThis(position,DefaultRuntimeModuleName,procedureName, 4);
+				CallThis(position,"Runtime",procedureName, 4);
 			ELSE
 				CallThis(position,runtimeModuleName,procedureName,4);
 			END;
@@ -7874,7 +7874,7 @@ TYPE
 				Designate(p0,s0);
 				Emit(Push(position,s0.op));
 				ReleaseOperand(s0);
-				CallThis(position,DefaultRuntimeModuleName,"Dispose", 1);
+				CallThis(position,"Runtime","Dispose", 1);
 			(* ---- GETPROCEDURE ----- *)
 			|Global.GetProcedure:
 				Designate(p0,s0);