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

* fixed setting of output names with includefile

Browse Source
This commit is contained in:
peter 2000-05-08 13:18:09 +00:00
parent 325b9acfa2
commit 6d282de1d4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pmodules.pas
View File

@ -1458,6 +1458,10 @@ unit pmodules;
aktmoduleswitches:=aktmoduleswitches-[cs_debuginfo]; aktmoduleswitches:=aktmoduleswitches-[cs_debuginfo];
end; end;
end; end;
{ get correct output names }
current_module^.SetFileName(current_scanner^.inputfile^.path^+current_scanner^.inputfile^.name^,true);
if islibrary then if islibrary then
begin begin
consume(_LIBRARY); consume(_LIBRARY);
@ -1491,8 +1495,6 @@ unit pmodules;
{ global switches are read, so further changes aren't allowed } { global switches are read, so further changes aren't allowed }
current_module^.in_global:=false; current_module^.in_global:=false;
{ get correct output names }
current_module^.SetFileName(current_scanner^.inputfile^.path^+current_scanner^.inputfile^.name^,true);
{ setup things using the global switches } { setup things using the global switches }
setupglobalswitches; setupglobalswitches;
@ -1704,7 +1706,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.193 2000-05-04 20:43:33 peter Revision 1.194 2000-05-08 13:18:09 peter
* fixed setting of output names with includefile
Revision 1.193 2000/05/04 20:43:33 peter
* don't write rst files if errors found * don't write rst files if errors found
Revision 1.192 2000/05/03 14:39:51 pierre Revision 1.192 2000/05/03 14:39:51 pierre