From 1d381958d4fcb0a8cfa84aa0d117e222a993b40e Mon Sep 17 00:00:00 2001 From: mazen Date: Wed, 20 Nov 2002 11:12:46 +0000 Subject: [PATCH] + module path is now passed to AddPath to fix relative unit path --- compiler/scandir.pas | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/compiler/scandir.pas b/compiler/scandir.pas index 7ebdb8a2ad..5051864c6f 100644 --- a/compiler/scandir.pas +++ b/compiler/scandir.pas @@ -740,10 +740,11 @@ implementation if not current_module.in_global then Message(scan_w_switch_is_global) else - begin - current_scanner.skipspace; - current_module.localunitsearchpath.AddPath(current_scanner.readcomment,false); - end; + with current_scanner,current_module,localunitsearchpath do + begin + skipspace; + AddPath(path^,readcomment,false); + end; end; procedure dir_varstringchecks; @@ -966,7 +967,10 @@ implementation end. { $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 implicit exception frames for procedures with initialized variables and for constructors. The default is on for compatibility