Changeset 225 for branches


Ignore:
Timestamp:
Jun 22, 2023, 12:17:46 AM (17 months ago)
Author:
chronos
Message:
  • Modified: Project renamed to xpascal.
Location:
branches/interpreter2
Files:
3 added
3 deleted
3 edited
1 moved

Legend:

Unmodified
Added
Removed

  • branches/interpreter2

    • Property svn:ignore

      •  

        old new  
        11lib
        2 interpreter
        3 interpreter.lps
        4 interpreter.res
         2xpascal
         3xpascal.lps
         4xpascal.res
        55heaptrclog.trc
        66Generated

  • branches/interpreter2/Forms/FormMain.pas

    r224 r225  
    8787procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    8888begin
    89 
    9089end;
    9190
    … …  
    141140  FormMessages.Clear;
    142141  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;
    149151  UpdateInterface;
    150152end;

  • branches/interpreter2/Interpreter.pas

    r224 r225  
    1 unit UInterpreter;
     1unit Interpreter;
    22
    33interface

  • branches/interpreter2/Parser.pas

    r224 r225  
    231231destructor TParser.Destroy;
    232232begin
    233   Tokenizer.Free;
     233  FreeAndNil(Tokenizer);
    234234  inherited;
    235235end;
Note: See TracChangeset for help on using the changeset viewer.