paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 22:59:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Use exepath on all platforms

Browse Source 
git-svn-id: trunk@44699 -
This commit is contained in:
michael 2020-04-12 10:51:14 +00:00
parent 02ed51ea25
commit 39fa965790
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/globals.pas
View File

@ -941,9 +941,7 @@ implementation
Replace(s,'$FPCDATE',date_string); Replace(s,'$FPCDATE',date_string);
Replace(s,'$FPCCPU',target_cpu_string); Replace(s,'$FPCCPU',target_cpu_string);
Replace(s,'$FPCOS',target_os_string); Replace(s,'$FPCOS',target_os_string);
{$ifndef darwin} Replace(s,'$FPCBINDIR',ExtractFilePath(exepath));
Replace(s,'$FPCBINDIR',ExtractFilePath(FixFileName(system.paramstr(0))));
{$endif}
if (tf_use_8_3 in Source_Info.Flags) or if (tf_use_8_3 in Source_Info.Flags) or
(tf_use_8_3 in Target_Info.Flags) then (tf_use_8_3 in Target_Info.Flags) then
Replace(s,'$FPCTARGET',target_os_string) Replace(s,'$FPCTARGET',target_os_string)