@@ -161,6 +161,7 @@ implementation
oldcodegenerror:=codegenerror;
oldlocalswitches:=current_settings.localswitches;
oldpos:=current_filepos;
+ current_filepos:=p.fileinfo;
current_settings.localswitches:=p.localswitches;
codegenerror:=false;
{$ifdef EXTDEBUG}