Changeset 203 for branches/interpreter2/USource.pas

Timestamp:

Apr 17, 2020, 10:16:25 PM (5 years ago)

Author:

chronos

Message:

• Added: Simple pascal code generator.

File:

• branches/interpreter2/USource.pas (modified) (5 diffs)

branches/interpreter2/USource.pas

@@ -12 +12 @@
   TFunctions = class;
 
+  { TValue }
+
   TValue = class
-  end;
+    function Clone: TValue; virtual;
+  end;
+
+  { TValueString }
 
   TValueString = class(TValue)
     Value: string;
-  end;
+    function Clone: TValue; override;
+  end;
+
+  { TValueInteger }
 
   TValueInteger = class(TValue)
     Value: Integer;
-  end;
+    function Clone: TValue; override;
+  end;
+
+  { TValueBoolean }
 
   TValueBoolean = class(TValue)
     Value: Boolean;
+    function Clone: TValue; override;
   end;
 
@@ -140 +152 @@
   end;
 
-  TExpressionOperandType = (otVariable, otConstant, otFunctionCall);
+  TExpressionOperandType = (otVariableRef, otConstantRef, otConstantDirect, otFunctionCall);
 
   { TExpressionOperand }
@@ -148 +160 @@
     VariableRef: TVariable;
     ConstantRef: TConstant;
+    ConstantDirect: TConstant;
     FunctionCall: TFunctionCall;
     function GetType: TType; override;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -225 +240 @@
 implementation
 
+{ TValueBoolean }
+
+function TValueBoolean.Clone: TValue;
+begin
+  Result := TValueBoolean.Create;
+  TValueBoolean(Result).Value := Value;
+end;
+
+{ TValueInteger }
+
+function TValueInteger.Clone: TValue;
+begin
+  Result := TValueInteger.Create;
+  TValueInteger(Result).Value := Value;
+end;
+
+{ TValueString }
+
+function TValueString.Clone: TValue;
+begin
+  Result := TValueString.Create;
+  TValueString(Result).Value := Value;
+end;
+
+{ TValue }
+
+function TValue.Clone: TValue;
+begin
+  Result := nil;
+end;
+
 { TForToDo }
 
@@ -254 +300 @@
 begin
   if OperandType = otFunctionCall then Result := FunctionCall.FunctionDef.ResultType
-  else if OperandType = otConstant then Result := ConstantRef.TypeRef
-  else if OperandType = otVariable then Result := VariableRef.TypeRef
+  else if OperandType = otConstantRef then Result := ConstantRef.TypeRef
+  else if OperandType = otConstantDirect then Result := ConstantDirect.TypeRef
+  else if OperandType = otVariableRef then Result := VariableRef.TypeRef
   else raise Exception.Create('Unsupported operand type');
+end;
+
+constructor TExpressionOperand.Create;
+begin
+end;
+
+destructor TExpressionOperand.Destroy;
+begin
+  if Assigned(ConstantDirect) then ConstantDirect.Free;
 end;