Changeset 40 for branches/DelphiToC/UPascalCompiler.pas
- Timestamp:
- Aug 5, 2010, 11:32:36 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DelphiToC/UPascalCompiler.pas
r39 r40 7 7 uses 8 8 SysUtils, Variants, Classes, Graphics, Controls, Forms, 9 Dialogs, UPascalSource, UCodeProducer, UPascalParser, UAssemblerSource,9 Dialogs, UPascalSource, UCodeProducer, UPascalParser, 10 10 UCSource; 11 11 … … 33 33 begin 34 34 Parser.CodePosition := 1; 35 TParserProgram (ProgramCode).Parse(Parser);35 TParserProgram.Parse(Parser, ProgramCode); 36 36 Producer.Produce; 37 37 end; … … 44 44 Producer.ProgramCode := ProgramCode; 45 45 Parser := TPascalParser.Create; 46 Parser.SourceCode := SourceCode;46 Parser.SourceCodeText := SourceCode; 47 47 Parser.OnErrorMessage := ErrorMessage; 48 48 end;
Note:
See TracChangeset
for help on using the changeset viewer.