Changeset 26 for trunk/Compiler/Produce


Ignore:
Timestamp:
Dec 8, 2010, 10:00:30 AM (14 years ago)
Author:
george
Message:
  • Removed: Generic template usage form project code. Replaced by TListObject descendants.
Location:
trunk/Compiler/Produce
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Compiler/Produce/UProducer.pas

    r17 r26  
    77
    88uses
    9   USourceCode, Classes, SysUtils, StrUtils;
     9  USourceCode, Classes, SysUtils, StrUtils, SpecializedObjectList;
    1010
    1111type
    … …  
    2727
    2828  // TListProducer = TGObjectList<Integer, TProducer>
    29   {$DEFINE TGObjectListIndex := Integer}
    30   {$DEFINE TGObjectListItem := TProducer}
    31   {$DEFINE TGObjectListList := TObjectListProducer}
    32   {$DEFINE TGObjectList := TListProducer}
    33   {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProducer}
    34   {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProducer}
    35   {$DEFINE INTERFACE}
    36   {$I 'GenericObjectList.inc'}
     29  TListProducer = class(TListObject);
    3730
    3831implementation
    39 
    40 {$DEFINE IMPLEMENTATION_USES}
    41 {$I 'GenericObjectList.inc'}
    42 
    43 // TListProducer = TGObjectList<Integer, TProducer>
    44 {$DEFINE TGObjectListIndex := Integer}
    45 {$DEFINE TGObjectListItem := TProducer}
    46 {$DEFINE TGObjectListList := TObjectListProducer}
    47 {$DEFINE TGObjectList := TListProducer}
    48 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProducer}
    49 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProducer}
    50 {$DEFINE IMPLEMENTATION}
    51 {$I 'GenericObjectList.inc'}
    5232
    5333{ TProducer }

  • trunk/Compiler/Produce/UProducerPascal.pas

    r21 r26  
    137137    with TTypeRecord(AType).CommonBlock do
    138138    for I := 0 to Variables.Count - 1 do begin
    139       Emit(Variables[I].Name + ': ');
    140       GenerateType(Variables[I].ValueType);
     139      Emit(TVariable(Variables[I]).Name + ': ');
     140      GenerateType(TVariable(Variables[I]).ValueType);
    141141      EmitLn(';');
    142142    end;
    … …  
    259259    Inc(Indetation);
    260260    for I := 0 to Constants.Count - 1 do
    261       GenerateConstant(Constants[I]);
     261      GenerateConstant(TConstant(Constants[I]));
    262262    Dec(Indetation);
    263263    Emit('');
Note: See TracChangeset for help on using the changeset viewer.