Changeset 149 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 18, 2018, 1:30:58 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Now arrays of string and integer are supported and executed correctly by executor.
• Added: IfNotEqual command.

File:

• branches/easy compiler/USourceCode.pas (modified) (5 diffs)

branches/easy compiler/USourceCode.pas

@@ -26 +26 @@
   TSourceValue = class
     procedure Assign(Source: TSourceValue); virtual;
+    constructor Create; virtual;
   end;
 
@@ -113 +114 @@
     Items: TSourceValues;
     procedure Assign(Source: TSourceValue); override;
-    constructor Create;
+    constructor Create; override;
     destructor Destroy; override;
   end;
@@ -188 +189 @@
 
   TCommandIfEqual = class(TSourceCommand)
+    Reference1: TSourceReference;
+    Reference2: TSourceReference;
+    destructor Destroy; override;
+  end;
+
+  { TCommandIfNotEqual }
+
+  TCommandIfNotEqual = class(TSourceCommand)
     Reference1: TSourceReference;
     Reference2: TSourceReference;
@@ -223 +232 @@
 
 implementation
+
+{ TCommandIfNotEqual }
+
+destructor TCommandIfNotEqual.Destroy;
+begin
+  Reference1.Free;
+  Reference2.Free;
+  inherited Destroy;
+end;
 
 { TSourceType }
@@ -364 +382 @@
 end;
 
+constructor TSourceValue.Create;
+begin
+end;
+
 { TSourceValueInteger }