mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 18:29:09 +02:00
+ chmod 755 on executable files produced by internal linker. I missed this "small" detail for half a year because all development was going on a NTFS drive where everything is executable.
git-svn-id: trunk@23374 -
This commit is contained in:
parent
252744ad24
commit
a1503b51f2
@ -147,6 +147,9 @@ Implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
cutils,cfileutl,cstreams,
|
cutils,cfileutl,cstreams,
|
||||||
|
{$ifdef hasUnix}
|
||||||
|
baseunix,
|
||||||
|
{$endif hasUnix}
|
||||||
script,globals,verbose,comphook,ppu,fpccrc,
|
script,globals,verbose,comphook,ppu,fpccrc,
|
||||||
aasmbase,aasmtai,aasmdata,aasmcpu,
|
aasmbase,aasmtai,aasmdata,aasmcpu,
|
||||||
owbase,owar,ogmap;
|
owbase,owar,ogmap;
|
||||||
@ -1484,6 +1487,9 @@ Implementation
|
|||||||
begin
|
begin
|
||||||
IsSharedLibrary:=false;
|
IsSharedLibrary:=false;
|
||||||
result:=RunLinkScript(current_module.exefilename);
|
result:=RunLinkScript(current_module.exefilename);
|
||||||
|
{$ifdef hasUnix}
|
||||||
|
fpchmod(current_module.exefilename,493);
|
||||||
|
{$endif hasUnix}
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user