Changeset 142 for branches/easy compiler/USourceCode.pas

Timestamp:

Jan 16, 2018, 3:19:23 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for begin end block.

File:

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

branches/easy compiler/USourceCode.pas

@@ -116 +116 @@
   end;
 
-  { TSourceInstructionFunction }
-
-  TSourceInstructionFunction = class(TSourceInstruction)
+  { TSourceFunctionCall }
+
+  TSourceFunctionCall = class(TSourceInstruction)
     Name: string;
     Parameters: array of TSourceReference;
     procedure AddParameter(Value: TSourceReference);
+  end;
+
+  TSourceCode = class;
+
+  { TSourceBeginEnd }
+
+  TSourceBeginEnd = class(TSourceInstruction)
+    SourceCode: TSourceCode;
+    Instructions: TSourceInstructions;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -134 +145 @@
     Constants: TSourceConstants;
     Functions: TSourceFunctions;
-    Instructions: TSourceInstructions;
+    Main: TSourceBeginEnd;
     constructor Create;
     destructor Destroy; override;
@@ -141 +152 @@
 
 implementation
+
+{ TSourceBeginEnd }
+
+constructor TSourceBeginEnd.Create;
+begin
+  Instructions := TSourceInstructions.Create;
+end;
+
+destructor TSourceBeginEnd.Destroy;
+begin
+  Instructions.Free;
+  inherited Destroy;
+end;
 
 { TSourceTypes }
@@ -290 +314 @@
 end;
 
-{ TSourceInstructionFunction }
-
-procedure TSourceInstructionFunction.AddParameter(Value: TSourceReference);
+{ TSourceFunctionCall }
+
+procedure TSourceFunctionCall.AddParameter(Value: TSourceReference);
 begin
   SetLength(Parameters, Length(Parameters) + 1);
@@ -339 +363 @@
   Constants := TSourceConstants.Create;
   Functions := TSourceFunctions.Create;
-  Instructions := TSourceInstructions.Create;
+  Main := TSourceBeginEnd.Create;
+  Main.SourceCode := Self;
   InitFunctions;
 end;
@@ -345 +370 @@
 destructor TSourceCode.Destroy;
 begin
-  Instructions.Free;
+  Main.Free;
   Functions.Free;
   Variables.Free;