paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 04:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added $if defined(..) for 2.0.

Browse Source
This commit is contained in:
olle 2004-09-19 19:04:11 +00:00
parent a23c3f4dd9
commit 1120c598aa
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/inc/cmem.pp
View File

@ -19,6 +19,22 @@ unit cmem;
interface
Const
{$ifndef ver1_0}
{$if defined(win32)}
LibName = 'msvcrt';
{$elseif defined(netware)}
LibName = 'clib';
{$elseif defined(netwlibc)}
LibName = 'libc';
{$elseif defined(macos)}
LibName = 'StdCLib';
{$else}
LibName = 'c';
{$endif}
{$else}
{$ifndef win32}
{$ifdef netware}
LibName = 'clib';
@ -37,6 +53,8 @@ Const
LibName = 'msvcrt';
{$endif}
{$endif}
Function Malloc (Size : ptrint) : Pointer; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName name 'malloc';
Procedure Free (P : pointer); {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName name 'free';
function ReAlloc (P : Pointer; Size : ptrint) : pointer; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName name 'realloc';
@ -173,7 +191,10 @@ end.
{
$Log$
Revision 1.8 2004-09-19 08:16:03 olle
Revision 1.9 2004-09-19 19:04:11 olle
* added $if defined(..) for 2.0.
Revision 1.8 2004/09/19 08:16:03 olle
* reverted to $ifdef style, so 1.0.x can eat it.
Revision 1.7 2004/09/18 08:40:26 olle