Fixed Win32/Win64 compilation after r40351

git-svn-id: trunk@40355 -

packages/pastojs/src/pas2jsfileutilswin.inc

@@ -421,7 +421,7 @@ begin
   Result:=((FileGetAttrUTF8(AFilename) and faReadOnly) = 0);
 end;
 
-function FileIsWritable(const AFilename: string): boolean;
+function FileIsExecutable(const AFilename: string): boolean;
 begin
   Result:=FileExists(AFilename);
 end;