development/compilers/freepascal/rtl/inc/wstrings.inc

   1 {
   2     $Id$
   3     This file is part of the Free Pascal run time library.
   4     Copyright (c) 1999-2000 by Florian Klaempfl,
   5     member of the Free Pascal development team.
   6
   7     This file implements support routines for WideStrings with FPC
   8
   9     See the file COPYING.FPC, included in this distribution,
  10     for details about the copyright.
  11
  12     This program is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  15
  16  **********************************************************************}
  17 {
  18 Type
  19   PWideRec = ^TWideRec;
  20   TWideRec = Packed Record
  21     Maxlen,
  22     len,
  23     ref   : Longint;
  24     First : WChar;
  25   end;
  26 }
  27
  28 Procedure UniqueWideString(Var S : WideString); [Public,Alias : 'FPC_WIDESTR_UNIQUE'];
  29 {
  30   Make sure reference count of S is 1,
  31   using copy-on-write semantics.
  32 }
  33
  34 begin
  35 end;
  36
  37 {
  38   $Log$
  39   Revision 1.1  2002/02/19 08:25:30  sasu
  40   Initial revision
  41
  42   Revision 1.1  2000/07/13 06:30:49  michael
  43   + Initial import
  44
  45   Revision 1.2  2000/01/07 16:41:37  daniel
  46     * copyright 2000
  47
  48   Revision 1.1  1999/12/18 14:55:53  florian
  49     + initial version
  50
  51 }