mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-11-04 10:39:40 +01:00 
			
		
		
		
	* take care of tempinitcode when creating def information for tempcreatenodes
git-svn-id: trunk@26581 -
This commit is contained in:
		
							parent
							
								
									cb8100bccf
								
							
						
					
					
						commit
						c44b5d1043
					
				@ -115,6 +115,14 @@ unit optdfa;
 | 
			
		||||
    function AddDefUse(var n: tnode; arg: pointer): foreachnoderesult;
 | 
			
		||||
      begin
 | 
			
		||||
        case n.nodetype of
 | 
			
		||||
          tempcreaten:
 | 
			
		||||
            begin
 | 
			
		||||
              if assigned(ttempcreatenode(n).tempinfo^.tempinitcode) then
 | 
			
		||||
                begin
 | 
			
		||||
                  pdfainfo(arg)^.map.Add(n);
 | 
			
		||||
                  DFASetInclude(pdfainfo(arg)^.def^,n.optinfo^.index);
 | 
			
		||||
                end;
 | 
			
		||||
            end;
 | 
			
		||||
          temprefn,
 | 
			
		||||
          loadn:
 | 
			
		||||
            begin
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user