Jelajahi Sumber

* made strlen wrapper inline

Jonas Maebe 21 tahun lalu
induk
melakukan
28d5238dc1
1 mengubah file dengan 5 tambahan dan 2 penghapusan
  1. 5 2
      rtl/inc/cgenstr.inc

+ 5 - 2
rtl/inc/cgenstr.inc

@@ -21,7 +21,7 @@
 {$define FPC_UNIT_HAS_STRLEN}
  function libc_strlen(const p: pchar): cardinal; cdecl; external 'c' name 'strlen';
 
- function strlen(P : pchar) : longint;
+ function strlen(P : pchar) : longint;{$ifdef SYSTEMINLINE}inline;{$endif}
    begin
      strlen := libc_strlen(p);
    end;
@@ -142,7 +142,10 @@
 
 {
   $Log$
-  Revision 1.2  2004-05-01 23:55:18  peter
+  Revision 1.3  2004-08-24 11:49:56  jonas
+    * made strlen wrapper inline
+
+  Revision 1.2  2004/05/01 23:55:18  peter
     * replace strlenint with sizeint
 
   Revision 1.1  2004/05/01 15:26:33  jonas