Explorar o código

haiku: fix clib value in sysos.inc

git-svn-id: trunk@40828 -
Károly Balogh %!s(int64=6) %!d(string=hai) anos
pai
achega
72ee37e03b
Modificáronse 1 ficheiros con 3 adicións e 2 borrados
  1. 3 2
      rtl/haiku/sysos.inc

+ 3 - 2
rtl/haiku/sysos.inc

@@ -19,12 +19,13 @@
 {$error There's no support on Haiku for building without libc/libroot}
 {$error There's no support on Haiku for building without libc/libroot}
 {$endif}
 {$endif}
 
 
-const clib = 'c';
+const
+  clib = 'root';
 
 
 type libcint=longint;
 type libcint=longint;
      plibcint=^libcint;
      plibcint=^libcint;
 
 
-function geterrnolocation: Plibcint; cdecl;external 'root' name '_errnop';
+function geterrnolocation: Plibcint; cdecl;external clib name '_errnop';
 
 
 function geterrno:libcint; [public, alias: 'FPC_SYS_GETERRNO'];
 function geterrno:libcint; [public, alias: 'FPC_SYS_GETERRNO'];