/*------------------------------------------------------------------------*/
/*                                                                        */
/*  CTOR8.CPP                                                             */
/*                                                                        */
/*  TStringRef::TStringRef( char c, size_t n );                           */
/*                                                                        */
/*------------------------------------------------------------------------*/

/*
 *      C/C++ Run Time Library - Version 6.5
 *
 *      Copyright (c) 1992, 1994 by Borland International
 *      All Rights Reserved.
 *
 */


#include <string.h>
#include <cstring.h>

extern xalloc __xalloc;

TStringRef::TStringRef( char c, size_t n ) : TReference(1), flags(0)
{
    nchars = n;
    capacity = round_capacity( nchars );
    array = (char _FAR *)malloc( capacity + 1 );
    if( array == 0 )
        __xalloc.raise();
    memset( array, c, nchars );
    array[nchars] = '\0';
}


