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

+ module path is now passed to AddPath to fix relative unit path

Browse Source
This commit is contained in:
mazen 2002-11-20 11:12:46 +00:00
parent 11b3fa6d81
commit 1d381958d4
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/scandir.pas
View File

@ -740,10 +740,11 @@ implementation
if not current_module.in_global then if not current_module.in_global then
Message(scan_w_switch_is_global) Message(scan_w_switch_is_global)
else else
begin with current_scanner,current_module,localunitsearchpath do
current_scanner.skipspace; begin
current_module.localunitsearchpath.AddPath(current_scanner.readcomment,false); skipspace;
end; AddPath(path^,readcomment,false);
end;
end; end;
procedure dir_varstringchecks; procedure dir_varstringchecks;
@ -966,7 +967,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.21 2002-10-16 19:01:43 peter Revision 1.22 2002-11-20 11:12:46 mazen
+ module path is now passed to AddPath to fix relative unit path
Revision 1.21 2002/10/16 19:01:43 peter
+ $IMPLICITEXCEPTIONS switch to turn on/off generation of the + $IMPLICITEXCEPTIONS switch to turn on/off generation of the
implicit exception frames for procedures with initialized variables implicit exception frames for procedures with initialized variables
and for constructors. The default is on for compatibility and for constructors. The default is on for compatibility