Ignore:
Timestamp:
Nov 10, 2009, 3:38:32 PM (15 years ago)
Author:
george
Message:
  • Upraveno: Nasazení generického TFPGObjectList pro použité seznamy typu TList.
  • Přidáno: Kostra tříd pro gramatickou analýzu.
Location:
branches/Void
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/Void

    • Property svn:ignore

      •  

        old new  
        1111Output.dpr
        1212Output.exe
         13Output.asm

  • branches/Void/Generators/UPascalGenerator.pas

    r16 r18  
    5555    Inc(IndentCount);
    5656    for I := 0 to Variables.Count - 1 do
    57       with TVariable(Variables[I]) do
     57      with Variables[I] do
    5858        Output.Add(Indent + Name + ': ' + VarType.Name + ';');
    5959    Dec(IndentCount);
    … …  
    6363    Inc(IndentCount);
    6464    for I := 0 to BeginEnd.Commands.Count - 1 do
    65       with TCommand(BeginEnd.Commands[I]) do begin
     65      with BeginEnd.Commands[I] do begin
    6666        if Name = 'Assignment' then Output.Add(Indent +
    67           TVariableValue(Parameters[0]).VariableDef.Name + ' := ' +
     67          Parameters[0].VariableDef.Name + ' := ' +
    6868          GenerateVariableValue(TVariableValue(Parameters[1])) + ';')
    6969        else begin
Note: See TracChangeset for help on using the changeset viewer.