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

* first bug with ORDERSOURCES corrected :(

Browse Source
This commit is contained in:
pierre 2000-02-29 22:32:13 +00:00
parent 431941d1ec
commit 6bad578fb6
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/symppu.inc
View File

@ -592,15 +592,6 @@
temp:=unitsearchpath.FindFile(hs,main_found) temp:=unitsearchpath.FindFile(hs,main_found)
else else
temp:=includesearchpath.FindFile(hs,incfile_found); temp:=includesearchpath.FindFile(hs,incfile_found);
{$ifdef ORDERSOURCES}
if is_main then
begin
stringdispose(current_module^.mainsource);
current_module^.mainsource:=stringdup(hs);
if main_found then
main_dir:=temp;
end;
{$endif ORDERSOURCES}
if incfile_found or main_found then if incfile_found or main_found then
begin begin
hs:=temp+hs; hs:=temp+hs;
@ -634,6 +625,15 @@
{ the indexing is wrong here PM } { the indexing is wrong here PM }
current_module^.sourcefiles^.register_file(hp); current_module^.sourcefiles^.register_file(hp);
end; end;
{$ifdef ORDERSOURCES}
if is_main then
begin
stringdispose(current_module^.mainsource);
current_module^.mainsource:=stringdup(hs);
if main_found then
main_dir:=temp;
end;
{$endif ORDERSOURCES}
Message1(unit_u_ppu_source,hs+temp); Message1(unit_u_ppu_source,hs+temp);
{$ifdef ORDERSOURCES} {$ifdef ORDERSOURCES}
is_main:=false; is_main:=false;
@ -734,7 +734,10 @@
{ {
$Log$ $Log$
Revision 1.60 2000-02-29 21:58:31 pierre Revision 1.61 2000-02-29 22:32:13 pierre
* first bug with ORDERSOURCES corrected :(
Revision 1.60 2000/02/29 21:58:31 pierre
* ORDERSOURCES released * ORDERSOURCES released
Revision 1.59 2000/02/09 13:23:05 peter Revision 1.59 2000/02/09 13:23:05 peter