Ignore:
Timestamp:
Aug 9, 2010, 10:34:09 AM (14 years ago)
Author:
george
Message:

Fixed comparasion of name of identificators as types, variables, consts, methods using lowercase.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DelphiToC/UPascalCompiler.pas

    r44 r45  
    1818    FOnErrorMessage: TOnErrorMessage;
    1919    procedure ErrorMessage(Text: string);
    20     procedure Init;
     20    procedure InitSystem;
    2121  public
    2222    ProgramCode: TProgram;
    … …  
    3636procedure TCompiler.Compile;
    3737begin
    38   Init;
     38  InitSystem;
    3939  Parser.Init;
    40   try
    41     Parser.ParseAll(ProgramCode);
    42   except
    43     on EEndOfData do ;
    44   end;
     40  Parser.ParseAll(ProgramCode);
    4541  Producer.Produce;
    4642end;
    … …  
    7066end;
    7167
    72 procedure TCompiler.Init;
     68procedure TCompiler.InitSystem;
    7369begin
    7470  with Parser do begin
Note: See TracChangeset for help on using the changeset viewer.