paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +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;
current_module:=nil;
compiled_module:=nil;
loaded_units.init;
@ -184,6 +185,7 @@ unit parser;
oldaktoptprocessor : tprocessors;
oldaktasmmode : tasmmode;
oldaktmodeswitches : tmodeswitches;
old_compiled_module : pmodule;
prev_name : pstring;
{$ifdef USEEXCEPT}
recoverpos : jmp_buf;
@ -197,6 +199,7 @@ unit parser;
inc(compile_level);
prev_name:=stringdup(parser_current_file);
parser_current_file:=filename;
old_compiled_module:=compiled_module;
{ save symtable state }
oldsymtablestack:=symtablestack;
oldrefsymtable:=refsymtable;
@ -271,6 +274,7 @@ unit parser;
main_module:=current_module;
end;
compiled_module:=current_module;
current_module^.in_compile:=true;
{ Load current state from the init values }
aktlocalswitches:=initlocalswitches;
@ -444,8 +448,7 @@ unit parser;
{$ifdef BrowserCol}
{ Write Browser Collections }
if (cs_browser in aktmoduleswitches) then
CreateBrowserCol;
CreateBrowserCol;
{$endif}
end;
@ -472,6 +475,7 @@ unit parser;
dec(compile_level);
parser_current_file:=prev_name^;
stringdispose(prev_name);
compiled_module:=old_compiled_module;
{$ifdef USEEXCEPT}
if longjump_used then
longjmp(recoverpospointer^,1);
@ -481,7 +485,10 @@ unit parser;
end.
{
$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.
they are handled like an implicit property