paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:29:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ old_compiled_module to avoid wrong file info when load PPU files

Browse Source
This commit is contained in:
pierre 1999-09-16 08:02:39 +00:00
parent b184fc0d75
commit 84507b72ad
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/parser.pas
View File

@ -81,6 +81,7 @@ unit parser;
aktprocsym:=nil; aktprocsym:=nil;
current_module:=nil; current_module:=nil;
compiled_module:=nil;
loaded_units.init; loaded_units.init;
@ -184,6 +185,7 @@ unit parser;
oldaktoptprocessor : tprocessors; oldaktoptprocessor : tprocessors;
oldaktasmmode : tasmmode; oldaktasmmode : tasmmode;
oldaktmodeswitches : tmodeswitches; oldaktmodeswitches : tmodeswitches;
old_compiled_module : pmodule;
prev_name : pstring; prev_name : pstring;
{$ifdef USEEXCEPT} {$ifdef USEEXCEPT}
recoverpos : jmp_buf; recoverpos : jmp_buf;
@ -197,6 +199,7 @@ unit parser;
inc(compile_level); inc(compile_level);
prev_name:=stringdup(parser_current_file); prev_name:=stringdup(parser_current_file);
parser_current_file:=filename; parser_current_file:=filename;
old_compiled_module:=compiled_module;
{ save symtable state } { save symtable state }
oldsymtablestack:=symtablestack; oldsymtablestack:=symtablestack;
oldrefsymtable:=refsymtable; oldrefsymtable:=refsymtable;
@ -271,6 +274,7 @@ unit parser;
main_module:=current_module; main_module:=current_module;
end; end;
compiled_module:=current_module;
current_module^.in_compile:=true; current_module^.in_compile:=true;
{ Load current state from the init values } { Load current state from the init values }
aktlocalswitches:=initlocalswitches; aktlocalswitches:=initlocalswitches;
@ -444,8 +448,7 @@ unit parser;
{$ifdef BrowserCol} {$ifdef BrowserCol}
{ Write Browser Collections } { Write Browser Collections }
if (cs_browser in aktmoduleswitches) then CreateBrowserCol;
CreateBrowserCol;
{$endif} {$endif}
end; end;
@ -472,6 +475,7 @@ unit parser;
dec(compile_level); dec(compile_level);
parser_current_file:=prev_name^; parser_current_file:=prev_name^;
stringdispose(prev_name); stringdispose(prev_name);
compiled_module:=old_compiled_module;
{$ifdef USEEXCEPT} {$ifdef USEEXCEPT}
if longjump_used then if longjump_used then
longjmp(recoverpospointer^,1); longjmp(recoverpospointer^,1);
@ -481,7 +485,10 @@ unit parser;
end. end.
{ {
$Log$ $Log$
Revision 1.84 1999-09-15 22:09:23 florian Revision 1.85 1999-09-16 08:02:39 pierre
+ old_compiled_module to avoid wrong file info when load PPU files
Revision 1.84 1999/09/15 22:09:23 florian
+ rtti is now automatically generated for published classes, i.e. + rtti is now automatically generated for published classes, i.e.
they are handled like an implicit property they are handled like an implicit property