diff --git a/.gitignore b/.gitignore index cd2946a..3a54fad 100644 --- a/.gitignore +++ b/.gitignore @@ -45,3 +45,6 @@ $RECYCLE.BIN/ Network Trash Folder Temporary Items .apdisk + +backup/ +lib/ diff --git a/lazsynaser.pas b/lazsynaser.pas index 0389ea0..db1ed26 100644 --- a/lazsynaser.pas +++ b/lazsynaser.pas @@ -2297,16 +2297,17 @@ function TBlockSerial.cpomComportAccessible: boolean; exit; // done. end; // Is port owned by orphan? Then it's time for error recovery. - //FPC forgot to add getsid.. :-( {$IFNDEF FPC} if Libc.getsid(ReadLockfile) = -1 then + {$ELSE} + if FpGetSid(ReadLockfile) = -1 then + {$ENDIF} begin // Lockfile was left from former desaster DeleteFile(Filename); // error recovery CreateLockfile(MyPid); result := true; exit; end; - {$ENDIF} result := false // Sorry, port is owned by living PID and locked end;