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

    r16 r18  
    7070    // Variable section
    7171    for I := 0 to Variables.Count - 1 do
    72       with TVariable(Variables[I]) do
     72      with Variables[I] do
    7373        Output.Add(Indent + ConvertType(VarType.Name) + ' ' + Name + ';');
    7474    if Variables.Count > 0 then Output.Add('');
    … …  
    7676    // Code block
    7777    for I := 0 to BeginEnd.Commands.Count - 1 do
    78       with TCommand(BeginEnd.Commands[I]) do begin
     78      with BeginEnd.Commands[I] do begin
    7979        if Name = 'Assignment' then Output.Add(Indent +
    80           TVariableValue(Parameters[0]).VariableDef.Name + ' = ' +
     80          Parameters[0].VariableDef.Name + ' = ' +
    8181          GenerateVariableValue(TVariableValue(Parameters[1])) + ';')
    8282        else begin
Note: See TracChangeset for help on using the changeset viewer.