Explorar o código

+ Added header and log

michael %!s(int64=26) %!d(string=hai) anos
pai
achega
82d08fba5d
Modificáronse 3 ficheiros con 35 adicións e 1 borrados
  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$
     $Id$
     This file is part of the Free Pascal run time library.
     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 
     Processor dependent part of strings.pp, that can be shared with 
     sysutils unit.
     sysutils unit.
@@ -370,3 +370,9 @@
             ret $4
             ret $4
          end;
          end;
       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 ['EDI','ESI','EBX','EAX','ECX'];
       end;
       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;
     function strcat(dest,source : pchar) : pchar;
 
 
       begin
       begin
@@ -61,3 +77,9 @@
          if strnew<>nil then
          if strnew<>nil then
            strmove(strnew,p,len);
            strmove(strnew,p,len);
       end;
       end;
+{
+  $Log$
+  Revision 1.2  1999-02-25 10:05:07  michael
+  + Added header and log
+
+}