agg-linux: reduce dependency on libc unit.

libc unit is really a Kylix dependency unit, and i386 only.

2 files changed, 24 insertions, 2 deletions

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;