paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed missing cdecl procedure directive

Browse Source
This commit is contained in:
Jonas Maebe 2004-06-01 10:30:03 +00:00
parent a75a9bf0c0
commit 81adfcccd8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/unix/bunxovl.inc
View File

@ -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