rtl/linux/ostypes.inc
{ mode_t possible values }
S_IRUSR = %0100000000; { Read permission for owner }
S_IWUSR = %0010000000; { Write permission for owner }
S_IXUSR = %0001000000; { Exec permission for owner }
S_IRGRP = %0000100000; { Read permission for group }
S_IWGRP = %0000010000; { Write permission for group }
S_IXGRP = %0000001000; { Exec permission for group }
S_IROTH = %0000000100; { Read permission for world }
S_IWOTH = %0000000010; { Write permission for world }
S_IXOTH = %0000000001; { Exec permission for world }
S_IRWXU = S_IRUSR or S_IWUSR or S_IXUSR;
Ругаится на процент. Говорит некорректный символ.
/usr/share/fpcsrc/rtl/linux/ostypes.inc(267,16) Fatal: illegal character "'%'" ($25)
rtl/unix/bunxh.inc
Function FpSigProcMask(how : cInt; nset : pSigSet; oset : pSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK';
Function FpSigProcMask(how : cInt; Const nset : TSigSet; var oset : TSigSet): cInt; external name 'FPC_SYSC_SIGPROCMASK';
Ругаится на перезагруженный функции. Говорит, что overload отключен.
/usr/share/fpcsrc/rtl/unix/bunxh.inc(24,15) Error: Procedure overloading is switched off
rtl/unix/baseunix.pp
Unit BaseUnix;
Interface
{$inline on}
Uses UnixType;
{$i osdefs.inc} { Compile time defines }
{$i aliasptp.inc}
{$packrecords C}
{$ifndef FPC_USE_LIBC}
{$define FPC_USE_SYSCALL}
{$endif}
{$i errno.inc} { Error numbers }
{$i ostypes.inc}
{$ifdef FPC_USE_LIBC}
const clib = 'c';
{$define FPC_IN_BASEUNIX}
{$i oscdeclh.inc}
{$ELSE}
{$i bunxh.inc} { Functions}
{$ENDIF}
function fpgeterrno:longint; external name 'FPC_SYS_GETERRNO';
procedure fpseterrno(err:longint); external name 'FPC_SYS_SETERRNO';
property errno : cint read fpgeterrno write fpseterrno;
/usr/share/fpcsrc/rtl/unix/baseunix.pp(44,3) Fatal: Syntax error, "IMPLEMENTATION" expected but "PROPERTY" found
Откуда ошибки то взялись и как их побороть????
OpenSuse 10.2
FPC 2.0.4
Lazarus 0.9.22
