Changeset 75 for branches/Transpascal/Compiler/UCompiler.pas

Timestamp:

Oct 21, 2010, 7:56:25 AM (14 years ago)

Author:

george

Message:

• Modified: Parsing sections in record type.

File:

• branches/Transpascal/Compiler/UCompiler.pas (modified) (1 diff)

branches/Transpascal/Compiler/UCompiler.pas

@@ -67 +67 @@
     Parser.Process;
     //ShowMessage(IntToHex(Integer(Addr(Parser.OnGetSource)), 8));
-    NewModule := Parser.ParseModule(ProgramCode);
-    ProgramCode.Modules.Add(NewModule);
+    Parser.ParseModule(ProgramCode);
     for I := 0 to ProgramCode.Modules.Count - 1 do begin
       Producer.Produce(TModule(ProgramCode.Modules[I]));