Prechádzať zdrojové kódy

improved code: moved to low level system connect code

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6904 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 rokov pred
rodič
commit
31262e0151
1 zmenil súbory, kde vykonal 3 pridanie a 3 odobranie
  1. 3 3
      source/ActiveCellsRuntime.mod

+ 3 - 3
source/ActiveCellsRuntime.mod

@@ -500,17 +500,17 @@ type
 	
 	operator ">>"* (pout: Pout; pin: Pin); 
 	begin
-		connect(pout, pin);
+		Connect(system.val(any, pout), system.val(any, pin), 0);
 	end ">>";
 	
 	operator ">>"* (p0: Pout; p1: Pout); 
 	begin
-		delegate(p0,p1);
+		Delegate(system.val(any, p0), system.val(any, p1));
 	end ">>";
 	
 	operator ">>"* (p0: Pin; p1: Pin); 
 	begin
-		delegate(p0,p1);
+		Delegate(system.val(any, p0), system.val(any, p1));
 	end ">>";
 end ActiveCellsRuntime.