Changeset 150 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 18, 2018, 2:36:23 PM (7 years ago)

Author:

chronos

Message:

• Added: Load/Save example source code from/to file instead of hardcoded text in application source code.

File:

• branches/easy compiler/USourceGenerator.pas (modified) (1 diff)

branches/easy compiler/USourceGenerator.pas

@@ -91 +91 @@
     end else
     if Name = 'assign' then begin
+      if TSourceReference(Parameters[0]) is TSourceReferenceArray then
+        Result := Result + IndentStr + 'SetLength(' + TSourceReferenceArray(Parameters[0]).ArrayRef.Name +
+          ', ' + GenerateRef(TSourceReferenceArray(Parameters[0]).Index) + ' + 1);' + LineEnding;
       Result := Result + IndentStr + GenerateRef(TSourceReference(Parameters[0])) + ' := ' +
         GenerateRef(TSourceReference(Parameters[1])) + ';' + LineEnding;