Changeset 50 for trunk/Compiler/UCompiler.pas

Timestamp:

Apr 5, 2012, 2:03:52 PM (12 years ago)

Author:

chronos

Message:

• Modified: Interpretter execution partial implementation.

File:

• trunk/Compiler/UCompiler.pas (modified) (1 diff)

trunk/Compiler/UCompiler.pas

@@ -205 +205 @@
   if FTarget = AValue then Exit;
   FTarget := AValue;
-  FTarget.Producer.OnWriteTarget := WriteTarget;
+  FTarget.Compiler := Self;
+  if Assigned(FTarget.Producer) then
+    FTarget.Producer.OnWriteTarget := WriteTarget;
 end;