Changeset 225
- Timestamp:
- Jun 22, 2023, 12:17:46 AM (17 months ago)
- Location:
- branches/interpreter2
- Files:
-
- 3 added
- 3 deleted
- 3 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/interpreter2
- Property svn:ignore
-
old new 1 1 lib 2 interpreter 3 interpreter.lps4 interpreter.res2 xpascal 3 xpascal.lps 4 xpascal.res 5 5 heaptrclog.trc 6 6 Generated
-
- Property svn:ignore
-
branches/interpreter2/Forms/FormMain.pas
r224 r225 87 87 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); 88 88 begin 89 90 89 end; 91 90 … … 141 140 FormMessages.Clear; 142 141 Parser := TParserPascal.Create; 143 Parser.OnError := InterpreterError; 144 Parser.Source := FormSource.SynEditSource.Lines.Text; 145 Parser.Parse; 146 if Assigned(Prog) then Prog.Free; 147 Prog := Parser.Prog; 148 Parser.Free; 142 try 143 Parser.OnError := InterpreterError; 144 Parser.Source := FormSource.SynEditSource.Lines.Text; 145 Parser.Parse; 146 if Assigned(Prog) then Prog.Free; 147 Prog := Parser.Prog; 148 finally 149 Parser.Free; 150 end; 149 151 UpdateInterface; 150 152 end; -
branches/interpreter2/Interpreter.pas
r224 r225 1 unit UInterpreter;1 unit Interpreter; 2 2 3 3 interface -
branches/interpreter2/Parser.pas
r224 r225 231 231 destructor TParser.Destroy; 232 232 begin 233 Tokenizer.Free;233 FreeAndNil(Tokenizer); 234 234 inherited; 235 235 end;
Note:
See TracChangeset
for help on using the changeset viewer.