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