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/UZ80Generator.pas

    r16 r18  
    5151    // var section
    5252    for I := 0 to Variables.Count - 1 do
    53       with TVariable(Variables[I]) do
     53      with Variables[I] do
    5454        Output.Add(Name + ':  DB ' + VarType.Name + ';');
    5555
    … …  
    5858    Inc(IndentCount);
    5959    for I := 0 to BeginEnd.Commands.Count - 1 do
    60       with TCommand(BeginEnd.Commands[I]) do begin
     60      with BeginEnd.Commands[I] do begin
    6161        if Name = 'Assignment' then Output.Add('  LD ' +
    62           TVariableValue(Parameters[0]).VariableDef.Name + ', ' +
     62          Parameters[0].VariableDef.Name + ', ' +
    6363          GenerateVariableValue(TVariableValue(Parameters[1])))
    6464        else begin
Note: See TracChangeset for help on using the changeset viewer.