Browse Source

* adjust WritePathList() to work with TCmdStrList instead of TSearchPathList (and rename it accordingly)

git-svn-id: trunk@38943 -
svenbarth 7 years ago
parent
commit
295ca4de4b
1 changed files with 5 additions and 5 deletions
  1. 5 5
      compiler/compiler.pas

+ 5 - 5
compiler/compiler.pas

@@ -225,7 +225,7 @@ function Compile(const cmd:TCmdStr):longint;
 
 
 {$maxfpuregisters 0}
 {$maxfpuregisters 0}
 
 
-  procedure writepathlist(w:longint;l:TSearchPathList);
+  procedure writecmdstrlist(w:longint;l:TCmdStrList);
   var
   var
     hp : TCmdStrListItem;
     hp : TCmdStrListItem;
   begin
   begin
@@ -263,10 +263,10 @@ begin
        Message1(general_d_sourceos,source_info.name);
        Message1(general_d_sourceos,source_info.name);
        Message1(general_i_targetos,target_info.name);
        Message1(general_i_targetos,target_info.name);
        Message1(general_t_exepath,exepath);
        Message1(general_t_exepath,exepath);
-       WritePathList(general_t_unitpath,unitsearchpath);
-       WritePathList(general_t_includepath,includesearchpath);
-       WritePathList(general_t_librarypath,librarysearchpath);
-       WritePathList(general_t_objectpath,objectsearchpath);
+       WriteCmdStrList(general_t_unitpath,unitsearchpath);
+       WriteCmdStrList(general_t_includepath,includesearchpath);
+       WriteCmdStrList(general_t_librarypath,librarysearchpath);
+       WriteCmdStrList(general_t_objectpath,objectsearchpath);
 
 
        { Compile the program }
        { Compile the program }
   {$ifdef PREPROCWRITE}
   {$ifdef PREPROCWRITE}