Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* changed of do_optdeadstoreelim must be passed by reference as noted by Alexey Torgashin

florian 2 years ago
parent
c5f4fe2882
commit
e67670fa70
1 changed files with 2 additions and 2 deletions
Unified View Show Diff Stats
  1. 2 2
      compiler/optdeadstore.pas

+ 2 - 2
compiler/optdeadstore.pas
View File 

@@ -31,7 +31,7 @@ unit optdeadstore;
 
     uses
 
     uses
 
       node;
 
       node;
 
 
 
-    function do_optdeadstoreelim(var rootnode : tnode;changed: boolean) : tnode;
 
+    function do_optdeadstoreelim(var rootnode : tnode;var changed: boolean) : tnode;
 
 
 
   implementation
 
   implementation
 
 
 
@@ -106,7 +106,7 @@ unit optdeadstore;
 
       end;
 
       end;
 
 
 
 
 
-    function do_optdeadstoreelim(var rootnode: tnode;changed: boolean): tnode;
 
+    function do_optdeadstoreelim(var rootnode: tnode;var changed: boolean): tnode;
 
       begin
 
       begin
 
 {$ifdef EXTDEBUG_DEADSTORE}
 
 {$ifdef EXTDEBUG_DEADSTORE}
 
         writeln('******************* Tree before deadstore elimination **********************');
 
         writeln('******************* Tree before deadstore elimination **********************');