Jelajahi Sumber

* default units/rtl paths

peter 26 tahun lalu
induk
melakukan
d1e68e7136
1 mengubah file dengan 11 tambahan dan 1 penghapusan
  1. 11 1
      compiler/options.pas

+ 11 - 1
compiler/options.pas

@@ -1206,6 +1206,13 @@ begin
 {$else}
   AddPathToList(UnitSearchPath,dos.getenv(target_info.unit_env),false);
 {$endif Delphi}
+{$ifdef linux}
+  AddPathToList(UnitSearchPath,'/usr/lib/fpc/'+version_string+'/units/'+lower(target_info.short_name),false);
+  AddPathToList(UnitSearchPath,'/usr/lib/fpc/'+version_string+'/rtl/'+lower(target_info.short_name),false);
+{$else}
+  AddPathToList(UnitSearchPath,ExePath+'../units/'+lower(target_info.short_name),false);
+  AddPathToList(UnitSearchPath,ExePath+'../rtl/'+lower(target_info.short_name),false);
+{$endif}
   AddPathToList(UnitSearchPath,ExePath,false);
   { Add unit dir to the object and library path }
   AddPathToList(objectsearchpath,unitsearchpath,false);
@@ -1238,7 +1245,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.29  1999-10-30 17:35:26  peter
+  Revision 1.30  1999-11-03 23:43:09  peter
+    * default units/rtl paths
+
+  Revision 1.29  1999/10/30 17:35:26  peter
     * fpc_freemem fpc_getmem new callings updated
 
   Revision 1.28  1999/10/28 11:13:36  pierre