Changeset 145 for branches/easy compiler/USourceGenerator.pas

Timestamp:

Jan 17, 2018, 1:11:56 PM (7 years ago)

Author:

chronos

Message:

• Added: Check memory leaks in debug build mode.
• Fixed: Various memory leaks.

Location:

branches/easy compiler

Files:

• . (modified) (1 prop)
• USourceGenerator.pas (modified) (1 diff)

branches/easy compiler

@@ -2 +2 @@
 *.exe
 *.lps
+heaptrclog.trc

@@ -2 +2 @@
 *.exe
 *.lps
+heaptrclog.trc

branches/easy compiler/USourceGenerator.pas

@@ -81 +81 @@
     with TSourceFunctionCall(Instruction) do begin
       if Name = 'print' then begin
-        Result := Result + IndentStr + 'Write(' + GenerateRef(Parameters[0]) + ');' +
+        Result := Result + IndentStr + 'Write(' + GenerateRef(TSourceReference(Parameters[0])) + ');' +
           LineEnding;
       end else
       if Name = 'println' then begin
-        Result := Result + IndentStr + 'WriteLn(' + GenerateRef(Parameters[0]) + ');' +
+        Result := Result + IndentStr + 'WriteLn(' + GenerateRef(TSourceReference(Parameters[0])) + ');' +
           LineEnding;
       end else
       if Name = 'assign' then begin
-        Result := Result + IndentStr + GenerateRef(Parameters[0]) + ' := ' +
-          GenerateRef(Parameters[1]) + ';' + LineEnding;
+        Result := Result + IndentStr + GenerateRef(TSourceReference(Parameters[0])) + ' := ' +
+          GenerateRef(TSourceReference(Parameters[1])) + ';' + LineEnding;
       end else
       if Name = 'inputln' then begin
-        Result := Result + IndentStr + 'ReadLn(' + GenerateRef(Parameters[0]) + ');' + LineEnding;
+        Result := Result + IndentStr + 'ReadLn(' + GenerateRef(TSourceReference(Parameters[0])) + ');' + LineEnding;
       end else
       if Name = 'increment' then begin
-        Result := Result + IndentStr + 'Inc(' + GenerateRef(Parameters[0]) + ', ' +
-          GenerateRef(Parameters[1]) + ');' + LineEnding;
+        Result := Result + IndentStr + 'Inc(' + GenerateRef(TSourceReference(Parameters[0])) + ', ' +
+          GenerateRef(TSourceReference(Parameters[1])) + ');' + LineEnding;
       end else
       raise Exception.Create('Unsupported instruction name.');

@@ -2 +2 @@
 *.exe
 *.lps
+heaptrclog.trc