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

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

Browse Source 
git-svn-id: trunk@38943 -
This commit is contained in:
svenbarth 2018-05-07 19:48:23 +00:00
parent 56f36e6509
commit 295ca4de4b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/compiler.pas
View File

@ -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); WriteCmdStrList(general_t_unitpath,unitsearchpath);
WritePathList(general_t_includepath,includesearchpath); WriteCmdStrList(general_t_includepath,includesearchpath);
WritePathList(general_t_librarypath,librarysearchpath); WriteCmdStrList(general_t_librarypath,librarysearchpath);
WritePathList(general_t_objectpath,objectsearchpath); WriteCmdStrList(general_t_objectpath,objectsearchpath);
{ Compile the program } { Compile the program }
{$ifdef PREPROCWRITE} {$ifdef PREPROCWRITE}