Browse Source

* fixed missing cdecl procedure directive

Jonas Maebe 21 years ago
parent
commit
81adfcccd8
1 changed files with 5 additions and 2 deletions
  1. 5 2
      rtl/unix/bunxovl.inc

+ 5 - 2
rtl/unix/bunxovl.inc

@@ -144,7 +144,7 @@ begin
 end;
 end;
 
 
 {$ifdef FPC_USE_LIBC} // can't remember why this is the case. Might be legacy.
 {$ifdef FPC_USE_LIBC} // can't remember why this is the case. Might be legacy.
-function xFpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; external clib name 'read';
+function xFpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; cdecl; external clib name 'read';
 {$else}
 {$else}
 function xFpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; external name 'FPC_SYSC_READ';
 function xFpread(fd: cint; buf: pchar; nbytes : size_t): ssize_t; external name 'FPC_SYSC_READ';
 {$endif}
 {$endif}
@@ -331,7 +331,10 @@ end;
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.10  2004-03-28 19:36:19  marco
+ Revision 1.11  2004-06-01 10:30:03  jonas
+   * fixed missing cdecl procedure directive
+
+ Revision 1.10  2004/03/28 19:36:19  marco
   * fix for recursive fpc.exe ?
   * fix for recursive fpc.exe ?
 
 
  Revision 1.9  2004/01/04 21:04:08  jonas
  Revision 1.9  2004/01/04 21:04:08  jonas