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

* fixed some C-linking problems (the C-prefix is now always added to

Browse Source 
cdecl external functions, also if you define the name explicitly)
This commit is contained in:
Jonas Maebe 2004-11-25 17:37:59 +00:00
parent 8cfa7d1c01
commit 90b8204cec
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/system.pp
View File

@ -811,7 +811,7 @@ end;
System Dependent Exit code System Dependent Exit code
*****************************************************************************} *****************************************************************************}
procedure ___exit(exitcode:longint);cdecl;external name '___exit'; procedure ___exit(exitcode:longint);cdecl;external name '__exit';
procedure do_close(handle : longint);forward; procedure do_close(handle : longint);forward;
@ -898,7 +898,7 @@ end;
Heap Management Heap Management
*****************************************************************************} *****************************************************************************}
function ___sbrk(size:longint):longint;cdecl;external name '___sbrk'; function ___sbrk(size:longint):longint;cdecl;external name '__sbrk';
function SysOSAlloc (size: PtrInt): pointer; assembler; function SysOSAlloc (size: PtrInt): pointer; assembler;
asm asm
@ -1603,7 +1603,11 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.43 2004-11-04 09:32:31 peter Revision 1.44 2004-11-25 17:37:59 jonas
* fixed some C-linking problems (the C-prefix is now always added to
cdecl external functions, also if you define the name explicitly)
Revision 1.43 2004/11/04 09:32:31 peter
ErrOutput added ErrOutput added
Revision 1.42 2004/11/02 13:35:35 peter Revision 1.42 2004/11/02 13:35:35 peter