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

* add const

Rika Ichinose 3 years ago
parent
92771760b7
commit
0634d5349d
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      compiler/optdfa.pas

+ 1 - 1
compiler/optdfa.pas
View File 

@@ -185,7 +185,7 @@ unit optdfa;
 
         { update life entry of a node with l, set changed if this changes
 
         { update life entry of a node with l, set changed if this changes
 
           life info for the node
 
           life info for the node
 
         }
 
         }
 
-        procedure updatelifeinfo(n : tnode;l : TDFASet);
 
+        procedure updatelifeinfo(n : tnode;const l : TDFASet);
 
           var
 
           var
 
             b : boolean;
 
             b : boolean;
 
           begin
 
           begin