|
@@ -1,7 +1,7 @@
|
|
|
{ %target=linux }
|
|
|
uses
|
|
|
ctypes,baseunix,linux;
|
|
|
-
|
|
|
+
|
|
|
var
|
|
|
un : utsname;
|
|
|
mystatx : statx;
|
|
@@ -21,13 +21,13 @@ begin
|
|
|
major:=system.copy(st,1,p-1);
|
|
|
system.val(major,major_release,err);
|
|
|
if err<>0 then
|
|
|
- begin
|
|
|
+ begin
|
|
|
writeln('Unable to parse first part of linux version ',st,'(',major,') correctly');
|
|
|
halt(2);
|
|
|
end;
|
|
|
break;
|
|
|
end;
|
|
|
-
|
|
|
+
|
|
|
for i:=p+1 to UTSNAME_LENGTH do
|
|
|
if st[i]='.' then
|
|
|
begin
|
|
@@ -35,20 +35,20 @@ begin
|
|
|
minor:=system.copy(st,p+1,e-p-1);
|
|
|
system.val(minor,minor_release,err);
|
|
|
if err<>0 then
|
|
|
- begin
|
|
|
+ begin
|
|
|
writeln('Unable to second part of parse linux version ',st,'i(',minor,') correctly');
|
|
|
halt(2);
|
|
|
end;
|
|
|
break;
|
|
|
end;
|
|
|
- if (major_release<4) or (minor_release<11) then
|
|
|
+ if (major_release<4) or ((major_release=4) and (minor_release<11)) then
|
|
|
begin
|
|
|
writeln('This version of Linux: ',st,' does not have fstatx syscall');
|
|
|
halt(0);
|
|
|
end
|
|
|
else
|
|
|
writeln('This linux version ',st,' should support statx syscall');
|
|
|
-
|
|
|
+
|
|
|
assign(f,'test.txt');
|
|
|
rewrite(f);
|
|
|
write(f,'ccccc');
|