Changeset 50 for branches/DelphiToC/UPascalSource.pas

Timestamp:

Aug 9, 2010, 3:05:26 PM (14 years ago)

Author:

george

Message:

Added support for loop for-to-do.
System types and functions are not generated to output code.

File:

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

branches/DelphiToC/UPascalSource.pas

@@ -91 +91 @@
   end;
 
+  { TForToDo }
+
   TForToDo = class(TCommand)
     ControlVariable: TVariable;
@@ -96 +98 @@
     Stop: TExpression;
     Command: TCommand;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -149 +153 @@
 
   TType = class
+    System: Boolean;
     Parent: TTypeList;
     Name: string;
@@ -243 +248 @@
   TFunction = class(TCommonBlock)
   public
+    System: Boolean;
     HaveResult: Boolean;
     Parameters: TParameterList;
@@ -641 +647 @@
 end;
 
+{ TForToDo }
+
+constructor TForToDo.Create;
+begin
+  inherited;
+  Start := TExpression.Create;
+  Stop := TExpression.Create;
+end;
+
+destructor TForToDo.Destroy;
+begin
+  Start.Free;
+  Stop.Free;;
+  inherited Destroy;
+end;
+
 end.