The R Project SVN R

Rev

Rev 76592 | Rev 77702 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 76592 Rev 76595
Line 1144... Line 1144...
1144 
{
 1144 
{
1145 
   /* srname is not null-terminated.  It will be 6 characters for
 1145 
   /* srname is not null-terminated.  It will be 6 characters for
1146 
      mainstream BLAS/LAPACK routines (for those with < 6 the name
 1146 
      mainstream BLAS/LAPACK routines (for those with < 6 the name
1147 
      is right space-padded), and > 6 for recentish additions from
 1147 
      is right space-padded), and > 6 for recentish additions from
1148 
      LAPACK, 7 for a few used with R ). */
 1148 
      LAPACK, 7 for a few used with R ). */
1149 
#ifdef USE_FC_LEN_T
 1149 
#ifdef FC_LEN_T
1150 
    char buf[21];
 1150 
    char buf[21];
1151 
    // Precaution for incorrectly passed length type
 1151 
    // Precaution for incorrectly passed length type
1152 
    int len = (srname_len > 20) ? (int)srname_len : 20;
 1152 
    int len = (srname_len > 20) ? (int)srname_len : 20;
1153 
    strncpy(buf, srname, len);
 1153 
    strncpy(buf, srname, len);
1154 
    buf[len] = '\0';
 1154 
    buf[len] = '\0';