Browse Source

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

olle 21 years ago
parent
commit
1120c598aa
1 changed files with 22 additions and 1 deletions
  1. 22 1
      rtl/inc/cmem.pp

+ 22 - 1
rtl/inc/cmem.pp

@@ -19,6 +19,22 @@ unit cmem;
 interface
 interface
 
 
 Const
 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}
 {$ifndef win32}
   {$ifdef netware}
   {$ifdef netware}
   LibName = 'clib';
   LibName = 'clib';
@@ -37,6 +53,8 @@ Const
   LibName = 'msvcrt';
   LibName = 'msvcrt';
 {$endif}
 {$endif}
 
 
+{$endif}
+
 Function Malloc (Size : ptrint) : Pointer; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName name 'malloc';
 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';
 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';
 function ReAlloc (P : Pointer; Size : ptrint) : pointer; {$ifdef win32}stdcall{$else}cdecl{$endif}; external LibName name 'realloc';
@@ -173,7 +191,10 @@ end.
 
 
 {
 {
  $Log$
  $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.
    * reverted to $ifdef style, so 1.0.x can eat it.
 
 
  Revision 1.7  2004/09/18 08:40:26  olle
  Revision 1.7  2004/09/18 08:40:26  olle