Changeset 148 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 17, 2018, 5:27:23 PM (7 years ago)

Author:

chronos

Message:

• Added: Unfinished support for variable arrays.

File:

• branches/easy compiler/USourceGenerator.pas (modified) (3 diffs)

branches/easy compiler/USourceGenerator.pas

@@ -44 +44 @@
     else if ValueType.Name = 'Integer' then
       Result := Result + 'Integer'
+    else if ValueType.Name = 'StringArray' then
+      Result := Result + 'array of string'
+    else if ValueType.Name = 'IntegerArray' then
+      Result := Result + 'array of Integer'
     else raise Exception.Create('Unsupported type');
     Result := Result + ';' + LineEnding;
@@ -66 +70 @@
   if Reference is TSourceReferenceVariable then begin
     Result := Result + TSourceReferenceVariable(Reference).Variable.Name;
+  end else
+  if Reference is TSourceReferenceArray then begin
+    Result := Result + TSourceReferenceArray(Reference).ArrayRef.Name +
+      '[' + GenerateRef(TSourceReferenceArray(Reference).Index) + ']';
   end else raise Exception.Create('Unsupported parameter type');
 end;
@@ -116 +124 @@
     Result := Result + IndentStr + 'until False;' + LineEnding;
   end else
-  if Command is TCommandIfZero then begin
-    Result := Result + IndentStr + 'if ' + TCommandIfZero(Command).Variable.Variable.Name + ' = 0 then ';
+  if Command is TCommandIfEqual then begin
+    Result := Result + IndentStr + 'if ' + GenerateRef(TCommandIfEqual(Command).Reference1) +
+      ' = ' + GenerateRef(TCommandIfEqual(Command).Reference2) + ' then ';
   end else
   raise Exception.Create('Unsupported instruction');