|
@@ -290,7 +290,7 @@ begin
|
|
4. global object path
|
|
4. global object path
|
|
5. exepath }
|
|
5. exepath }
|
|
found:=false;
|
|
found:=false;
|
|
- findobjectfile:=FindFile(s,'.',found)+s;
|
|
|
|
|
|
+ findobjectfile:=FindFile(s,'.'+DirSep,found)+s;
|
|
if (not found) then
|
|
if (not found) then
|
|
findobjectfile:=UnitSearchPath.FindFile(s,found)+s;
|
|
findobjectfile:=UnitSearchPath.FindFile(s,found)+s;
|
|
if (not found) then
|
|
if (not found) then
|
|
@@ -325,7 +325,7 @@ begin
|
|
3. global libary dir
|
|
3. global libary dir
|
|
4. exe path of the compiler }
|
|
4. exe path of the compiler }
|
|
found:=false;
|
|
found:=false;
|
|
- findlibraryfile:=FindFile(s,'.',found)+s;
|
|
|
|
|
|
+ findlibraryfile:=FindFile(s,'.'+DirSep,found)+s;
|
|
if (not found) then
|
|
if (not found) then
|
|
findlibraryfile:=current_module^.locallibrarysearchpath.FindFile(s,found)+s;
|
|
findlibraryfile:=current_module^.locallibrarysearchpath.FindFile(s,found)+s;
|
|
if (not found) then
|
|
if (not found) then
|
|
@@ -522,7 +522,10 @@ end;
|
|
end.
|
|
end.
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.81 2000-01-12 10:38:18 peter
|
|
|
|
|
|
+ Revision 1.82 2000-01-14 14:40:37 pierre
|
|
|
|
+ * use ./ instead of . to look into startup dir
|
|
|
|
+
|
|
|
|
+ Revision 1.81 2000/01/12 10:38:18 peter
|
|
* smartlinking fixes for binary writer
|
|
* smartlinking fixes for binary writer
|
|
* release alignreg code and moved instruction writing align to cpuasm,
|
|
* release alignreg code and moved instruction writing align to cpuasm,
|
|
but it doesn't use the specified register yet
|
|
but it doesn't use the specified register yet
|
|
@@ -618,4 +621,4 @@ end.
|
|
Revision 1.54.2.2 1999/06/18 09:51:55 peter
|
|
Revision 1.54.2.2 1999/06/18 09:51:55 peter
|
|
* always use shell() for go32v2 to support LFN
|
|
* always use shell() for go32v2 to support LFN
|
|
|
|
|
|
-}
|
|
|
|
|
|
+}
|