Changeset 26 for trunk/Compiler/Produce/UProducerPascal.pas

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.

File:

• trunk/Compiler/Produce/UProducerPascal.pas (modified) (2 diffs)

trunk/Compiler/Produce/UProducerPascal.pas

@@ -137 +137 @@
     with TTypeRecord(AType).CommonBlock do
     for I := 0 to Variables.Count - 1 do begin
-      Emit(Variables[I].Name + ': ');
-      GenerateType(Variables[I].ValueType);
+      Emit(TVariable(Variables[I]).Name + ': ');
+      GenerateType(TVariable(Variables[I]).ValueType);
       EmitLn(';');
     end;
@@ -259 +259 @@
     Inc(Indetation);
     for I := 0 to Constants.Count - 1 do
-      GenerateConstant(Constants[I]);
+      GenerateConstant(TConstant(Constants[I]));
     Dec(Indetation);
     Emit('');