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:
4 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

  • 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

  • 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.