From 1a0a2c8adc3f59d7af672f6c95441de4cb804ef0 Mon Sep 17 00:00:00 2001
From: micha <micha@idefix.freepascal.org>
Date: Sat, 24 Feb 2007 09:42:27 +0000
Subject: [PATCH] * fix lstat for x86_64 linux syscall, has no 32 bit variant

git-svn-id: trunk@6625 -
---
 rtl/linux/bunxsysc.inc | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/rtl/linux/bunxsysc.inc b/rtl/linux/bunxsysc.inc
index c97042b150..075895eea7 100644
--- a/rtl/linux/bunxsysc.inc
+++ b/rtl/linux/bunxsysc.inc
@@ -406,7 +406,13 @@ Function fpLstat(path:pchar;Info:pstat):cint;
 }
 
 begin
- fpLStat:=do_syscall(syscall_nr_lstat64,TSysParam(path),TSysParam(info));
+ fpLStat:=do_syscall(
+{$ifdef cpux86_64}
+    syscall_nr_lstat,
+{$else}
+    syscall_nr_lstat64,
+{$endif}
+    TSysParam(path),TSysParam(info));
 end;
 
 Function fpLstat(Filename: ansistring;Info:pstat):cint;
@@ -415,7 +421,13 @@ Function fpLstat(Filename: ansistring;Info:pstat):cint;
 }
 
 begin
- fpLStat:=do_syscall(syscall_nr_lstat64,TSysParam(pchar(filename)),TSysParam(info));
+ fpLStat:=do_syscall(
+{$ifdef cpux86_64}
+    syscall_nr_lstat,
+{$else}
+    syscall_nr_lstat64,
+{$endif}
+    TSysParam(pchar(filename)),TSysParam(info));
 end;