From af12f432588be4e231c53cd2902b639bebbc80bd Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 27 Feb 2012 22:39:10 +0200
Subject: agg-linux: reduce dependency on libc unit.

libc unit is really a Kylix dependency unit, and i386 only.
---
 .../software/platform/linux/agg_linux_mini_libc.pas | 21 +++++++++++++++++++++
 .../platform/linux/agg_platform_support.pas         |  5 +++--
 2 files changed, 24 insertions(+), 2 deletions(-)
 create mode 100644 src/corelib/render/software/platform/linux/agg_linux_mini_libc.pas

(limited to 'src/corelib/render/software/platform')

diff --git a/src/corelib/render/software/platform/linux/agg_linux_mini_libc.pas b/src/corelib/render/software/platform/linux/agg_linux_mini_libc.pas
new file mode 100644
index 00000000..314983f1
--- /dev/null
+++ b/src/corelib/render/software/platform/linux/agg_linux_mini_libc.pas
@@ -0,0 +1,21 @@
+unit agg_linux_mini_libc;
+
+{$mode delphi}
+
+interface
+
+uses
+  ctypes;
+
+const
+  clib = 'c';
+  CLOCKS_PER_SEC = 1000000;
+type
+  clock_t = clong;
+
+function clock:clock_t;cdecl;external clib name 'clock';
+
+implementation
+
+end.
+
diff --git a/src/corelib/render/software/platform/linux/agg_platform_support.pas b/src/corelib/render/software/platform/linux/agg_platform_support.pas
index c82fae89..bbe3e832 100644
--- a/src/corelib/render/software/platform/linux/agg_platform_support.pas
+++ b/src/corelib/render/software/platform/linux/agg_platform_support.pas
@@ -58,7 +58,8 @@ INTERFACE
 {$I agg_mode.inc }
 {$I- }
 uses
- X ,Xlib ,Xutil ,Xatom ,keysym ,libc ,CTypes ,SysUtils ,
+ X ,Xlib ,Xutil ,Xatom ,keysym ,CTypes ,SysUtils ,
+ agg_linux_mini_libc ,
  agg_basics ,
  agg_ctrl ,
  agg_rendering_buffer ,
@@ -1015,7 +1016,7 @@ begin
 
  p:=p + #0;
 
- libc.__chdir(PChar(@p[1 ] ) );
+ SetCurrentDir(p);
 
 end;
 
-- 
cgit v1.2.3-70-g09d2