Browse Source

+ 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 -
sergei 12 years ago
parent
commit
a1503b51f2
1 changed files with 6 additions and 0 deletions
  1. 6 0
      compiler/link.pas

+ 6 - 0
compiler/link.pas

@@ -147,6 +147,9 @@ Implementation
 
     uses
       cutils,cfileutl,cstreams,
+{$ifdef hasUnix}
+      baseunix,
+{$endif hasUnix}
       script,globals,verbose,comphook,ppu,fpccrc,
       aasmbase,aasmtai,aasmdata,aasmcpu,
       owbase,owar,ogmap;
@@ -1484,6 +1487,9 @@ Implementation
       begin
         IsSharedLibrary:=false;
         result:=RunLinkScript(current_module.exefilename);
+{$ifdef hasUnix}
+        fpchmod(current_module.exefilename,493);
+{$endif hasUnix}
       end;