Changeset 105 for branches/interpreter/interpreter4/Source.pas

Timestamp:

Feb 17, 2017, 11:19:22 PM (8 years ago)

Author:

chronos

Message:

• Modified: More work on record functions.

File:

• branches/interpreter/interpreter4/Source.pas (modified) (6 diffs)

branches/interpreter/interpreter4/Source.pas

@@ -18 +18 @@
   PEnumerationStates = ^TEnumerationStates;
   PFunction = ^TFunction;
+  PVariables = ^TVariables;
 
   TOperator = (opNone, opAdd, opSubtract, opAnd, opOr, opNot, opEqual, opNotEqual);
@@ -58 +59 @@
     DataType: PType;
     Index: Integer;
+    RecordVariables: PVariables;
   end;
 
@@ -63 +65 @@
 
   TVariables = record
+    ParentList: PVariables;
     Items: array of TVariable;
     procedure Add(Variable: TVariable);
     function GetByName(Name: string): PVariable;
-  end;
-  PVariables = ^TVariables;
+    function GetLast: PVariable;
+  end;
 
   TConstant = record
@@ -173 +176 @@
     BeginEnd: TBeginEnd;
     Variables: TVariables;
+    Types: TTypes;
+    ParentRecord: PType;
   end;
 
@@ -210 +215 @@
     Constants: TConstants;
     UsesSection: TUses;
+    Functions: TFunctions;
   end;
   PUnit = ^TUnit;
@@ -343 +349 @@
   while (I < Length(Items)) and (Items[I].Name <> Name) do I := I + 1;
   if I < Length(Items) then Result := @Items[I]
-    else Result := nil;
+    else begin
+      if ParentList <> nil then Result := ParentList^.GetByName(Name)
+        else Result := nil;
+    end;
+end;
+
+function TVariables.GetLast: PVariable;
+begin
+  Result := @Items[Length(Items) - 1];
 end;