Browse Source

+ Added header and log

michael 26 years ago
parent
commit
82d08fba5d
3 changed files with 35 additions and 1 deletions
  1. 7 1
      rtl/i386/strings.inc
  2. 6 0
      rtl/i386/stringss.inc
  3. 22 0
      rtl/inc/stringsi.inc

+ 7 - 1
rtl/i386/strings.inc

@@ -1,7 +1,7 @@
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    Copyright (c) 1998 by the Free Pascal development team
+    Copyright (c) 1999 by the Free Pascal development team
 
     Processor dependent part of strings.pp, that can be shared with 
     sysutils unit.
@@ -370,3 +370,9 @@
             ret $4
          end;
       end;
+{
+  $Log$
+  Revision 1.2  1999-02-25 10:07:01  michael
+  + Added header and log
+
+}

+ 6 - 0
rtl/i386/stringss.inc

@@ -75,3 +75,9 @@
          end ['EDI','ESI','EBX','EAX','ECX'];
       end;
 
+{
+  $Log$
+  Revision 1.2  1999-02-25 10:07:02  michael
+  + Added header and log
+
+}

+ 22 - 0
rtl/inc/stringsi.inc

@@ -1,3 +1,19 @@
+{
+    $Id$
+    This file is part of the Free Pascal run time library.
+    Copyright (c) 1999 by the Free Pascal development team
+
+    Processor independent part for strings and sysutils units
+    
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
     function strcat(dest,source : pchar) : pchar;
 
       begin
@@ -61,3 +77,9 @@
          if strnew<>nil then
            strmove(strnew,p,len);
       end;
+{
+  $Log$
+  Revision 1.2  1999-02-25 10:05:07  michael
+  + Added header and log
+
+}