4 anni fa · 95addf15ce
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -2984,8 +2984,6 @@ Procedure TPascalScanner.PopStackItem;
 
				 
			
 
				 var
			
 
				   IncludeStackItem: TIncludeStackItem;
			
 
				-  aFileName : String;
			
 
				-
			
 
				 begin
			
 
				   IncludeStackItem :=
			
 
				     TIncludeStackItem(FIncludeStack[FIncludeStack.Count - 1]);