Ignore:
Timestamp:
Apr 20, 2020, 1:10:44 AM (5 years ago)
Author:
chronos
Message:
  • Added: Support for repeat-until.
Location:
branches/interpreter2
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/interpreter2

    • Property svn:ignore

      •  

        old new  
        44interpreter.res
        55heaptrclog.trc
         6Generated

  • branches/interpreter2/UFormMain.pas

    r204 r205  
    66
    77uses
    8   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   SynHighlighterPas, SynEdit, USource;
     8  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
     9  ActnList, SynHighlighterPas, SynEdit, USource;
    1010
    1111type
    … …  
    5151
    5252uses
    53   UParser, UExecutor, UGenerator, UGeneratorPhp;
     53  UParser, UExecutor, UGeneratorPascal, UGeneratorPhp;
    5454
    5555{ TFormMain }
    … …  
    126126procedure TFormMain.ButtonGenerateClick(Sender: TObject);
    127127var
    128   Generator: TGenerator;
     128  Generator: TGeneratorPascal;
    129129begin
    130130  ButtonCompile.Click;
    131131  MemoOutput.Lines.Clear;
    132132  if Assigned(Prog) then begin
    133     Generator := TGenerator.Create;
     133    Generator := TGeneratorPascal.Create;
    134134    Generator.Prog := Prog;
    135135    Generator.Generate;
Note: See TracChangeset for help on using the changeset viewer.