소스 검색

made ActiveCellsRuntime.mod compilable and working

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6716 8c9fc860-2736-0410-a75d-ab315db34111
eth.morozova 9 년 전
부모
커밋
ecfb2431ef
1개의 변경된 파일3개의 추가작업 그리고 2개의 파일을 삭제
  1. 3 2
      source/ActiveCellsRuntime.mod

+ 3 - 2
source/ActiveCellsRuntime.mod

@@ -398,7 +398,8 @@ type
 
 		copy(typeName, name);
 		Strings.Append(name, ".@Body");
-		if Reflection.FindByName(m.refs, offset, name) then
+		offset := Reflection.FindByName(m.refs, 0, name, true);
+		if offset # 0 then
 			if Reflection.GetChar(m.refs,offset) = Reflection.sfProcedure then
 				Reflection.SkipSize(offset);
 				Reflection.SkipString(m.refs,offset);
@@ -419,7 +420,7 @@ type
 			new(launcher, context); 
 			launcher.Start(starter.P, true);
 		else 
-			Reflection.Report(Commands.GetContext().out, m.refs);
+			Reflection.Report(Commands.GetContext().out, m.refs, offset);
 		end;
 	end Execute;