Changeset 58 for trunk/Compiler/Target/Delphi/UProducerPascal.pas

Timestamp:

Jul 17, 2012, 6:05:13 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Wrong expression analyzing.

File:

• trunk/Compiler/Target/Delphi/UProducerPascal.pas (modified) (1 diff)

trunk/Compiler/Target/Delphi/UProducerPascal.pas

@@ -73 +73 @@
   ModuleName: string;
 begin
+  if UsedModules.Count = 0 then Exit;
   EmitLn('uses');
   Inc(Indentation);