paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reset aktfilepos when setting new module for compile

Browse Source
This commit is contained in:
peter 2003-04-26 00:30:52 +00:00
parent 2b888374ce
commit 6720314fc5
2 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/fppu.pas
View File

@ -1133,6 +1133,7 @@ uses
second_time:=false;
current_module:=self;
SetCompileModule(current_module);
Fillchar(aktfilepos,0,sizeof(aktfilepos));
{ we are loading a new module, save the state of the scanner
and reset scanner+module }
@ -1258,7 +1259,12 @@ uses
current_module:=old_current_module;
current_scanner:=tscannerfile(current_module.scanner);
if assigned(current_scanner) then
current_scanner.tempopeninputfile;
begin
current_scanner.tempopeninputfile;
current_scanner.gettokenpos;
end
else
fillchar(aktfilepos,sizeof(aktfilepos),0);
SetCompileModule(current_module);
end;
@ -1332,7 +1338,10 @@ uses
end.
{
$Log$
Revision 1.30 2003-03-27 17:44:13 peter
Revision 1.31 2003-04-26 00:30:52 peter
* reset aktfilepos when setting new module for compile
Revision 1.30 2003/03/27 17:44:13 peter
* fixed small mem leaks
Revision 1.29 2002/12/29 14:57:50 peter

10
compiler/parser.pas
View File

@ -402,10 +402,11 @@ implementation
loaded_units.insert(current_module);
{ Set the module to use for verbose }
SetCompileModule(current_module);
compiled_module:=current_module;
SetCompileModule(current_module);
Fillchar(aktfilepos,0,sizeof(aktfilepos));
{ Load current state from the init values }
{ Load current state from the init values }
aktlocalswitches:=initlocalswitches;
aktmoduleswitches:=initmoduleswitches;
aktmodeswitches:=initmodeswitches;
@ -625,7 +626,10 @@ implementation
end.
{
$Log$
Revision 1.49 2003-04-25 20:59:33 peter
Revision 1.50 2003-04-26 00:30:52 peter
* reset aktfilepos when setting new module for compile
Revision 1.49 2003/04/25 20:59:33 peter
* removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter