Changeset 44 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Aug 9, 2010, 10:22:30 AM (14 years ago)

Author:

george

Message:

Reworked tokenizer code with state machine instead of direct sequence analyze.
Parser classes with class methods rewrited back to single class TPaascalParser which inherit from TBasePascal.

File:

• branches/DelphiToC/UPascalSource.pas (modified) (2 diffs)

branches/DelphiToC/UPascalSource.pas

@@ -241 +241 @@
   TFunction = class(TCommonBlock)
   public
-    Parameters: TObjectList; // TObjectList<TVariable>
+    Parameters: TParameterList;
     ResultType: TType;
     constructor Create; override;
@@ -296 +296 @@
   inherited;
   Parameters := TParameterList.Create;
-  TParameterList(Parameters).Parent := Self;
+  Parameters.Parent := Self;
   //ResultType := TType.Create;
 end;