rebuilt release (patch)

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7401 8c9fc860-2736-0410-a75d-ab315db34111

source/ActiveCellsRuntime.mod

@@ -7,7 +7,7 @@ import
 	system, Heaps, Modules, Diagnostics, Strings, Objects, Reflection, Commands;
 
 const
-	EnableTrace* = false;
+	EnableTrace* = true;
 
 type
 	(* do not inherit from this object -- not supported. This object contains hidden fields instantiated by the compiler that would be lost. *)
@@ -177,6 +177,7 @@ type
 
 	procedure AddPort*(c: Cell; var p: any; const name: array of char; inout: set; width: longint);
 	begin
+		trace(address of p);
 		if EnableTrace then trace(c,p,name, inout, width); end;
 		GetContext().AddPort(c.c, p, name, inout, width);
 	end AddPort;