Ignore:
Timestamp:
Aug 5, 2010, 11:32:36 AM (14 years ago)
Author:
george
Message:

Parser classes inheriting pascal source tree classes rewrited using class methods and source tree as parametr. This solve problem "class x not related to y.".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DelphiToC/UPascalCompiler.pas

    r39 r40  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, UPascalSource, UCodeProducer, UPascalParser, UAssemblerSource,
     9  Dialogs, UPascalSource, UCodeProducer, UPascalParser,
    1010  UCSource;
    1111
     
    3333begin
    3434  Parser.CodePosition := 1;
    35   TParserProgram(ProgramCode).Parse(Parser);
     35  TParserProgram.Parse(Parser, ProgramCode);
    3636  Producer.Produce;
    3737end;
     
    4444  Producer.ProgramCode := ProgramCode;
    4545  Parser := TPascalParser.Create;
    46   Parser.SourceCode := SourceCode;
     46  Parser.SourceCodeText := SourceCode;
    4747  Parser.OnErrorMessage := ErrorMessage;
    4848end;
Note: See TracChangeset for help on using the changeset viewer.