|  |  | @ -190,8 +190,8 @@ let remove_locals_ret tenv (curr_f: Procdesc.t) p => | 
			
		
	
		
		
			
				
					
					|  |  |  | /** Remove locals and formal parameters from the prop. |  |  |  | /** Remove locals and formal parameters from the prop. | 
			
		
	
		
		
			
				
					
					|  |  |  |     Return the list of stack variables whose address was still present after deallocation. */ |  |  |  |     Return the list of stack variables whose address was still present after deallocation. */ | 
			
		
	
		
		
			
				
					
					|  |  |  | let remove_locals_formals tenv (curr_f: Procdesc.t) p => { |  |  |  | let remove_locals_formals tenv (curr_f: Procdesc.t) p => { | 
			
		
	
		
		
			
				
					
					|  |  |  |   let (pvars1, p1) = remove_formals tenv curr_f p; |  |  |  |   let (pvars1, p1) = remove_locals tenv curr_f p; | 
			
				
				
			
		
	
		
		
			
				
					
					|  |  |  |   let (pvars2, p2) = remove_locals tenv curr_f p1; |  |  |  |   let (pvars2, p2) = remove_formals tenv curr_f p1; | 
			
				
				
			
		
	
		
		
	
		
		
	
		
		
			
				
					
					|  |  |  |   (pvars1 @ pvars2, p2) |  |  |  |   (pvars1 @ pvars2, p2) | 
			
		
	
		
		
			
				
					
					|  |  |  | }; |  |  |  | }; | 
			
		
	
		
		
			
				
					
					|  |  |  | 
 |  |  |  | 
 | 
			
		
	
	
		
		
			
				
					|  |  | 
 |