Переглянути джерело

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;