paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 22:31:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation with latest stat record

Browse Source 
git-svn-id: trunk@5130 -
This commit is contained in:
micha 2006-10-31 19:22:45 +00:00
parent aa17ce4b39
commit 03b6c5a89b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/grab_vcsa.pp
View File

@ -110,21 +110,21 @@ begin
tty:='/dev/tty'+s;
if fpstat(tty,ttystat)<>0 then
halt(result_stat_error);
if ttystat.uid<>fpgetuid then
if ttystat.st_uid<>fpgetuid then
halt(result_not_owner_error);
vcs:='/dev/vcs'+s;
vcsa:='/dev/vcsa'+s;
{Change owner and group to that of /dev/tty??.}
if fpchown(vcs,ttystat.uid,ttystat.gid)<>0 then
if fpchown(vcs,ttystat.st_uid,ttystat.st_gid)<>0 then
halt(result_chown_error);
if fpchown(vcsa,ttystat.uid,ttystat.gid)<>0 then
if fpchown(vcsa,ttystat.st_uid,ttystat.st_gid)<>0 then
halt(result_chown_error);
{Change permissions to that of /dev/tty??.}
if fpchmod(vcs,ttystat.mode)<>0 then
if fpchmod(vcs,ttystat.st_mode)<>0 then
halt(result_chmod_error);
if fpchmod(vcsa,ttystat.mode)<>0 then
if fpchmod(vcsa,ttystat.st_mode)<>0 then
halt(result_chmod_error);
exitcode:=result_success;
end;