pascal-strings-1.c

Mac OS X 10.4.9 for x86 Source Code gcc 实现源代码

/* APPLE LOCAL file pascal strings */
/* Positive C++ test cases.  */
/* Origin: Ziemowit Laski <[e-mail]> */
/* { dg-do run } */
/* { dg-options "-fpascal-strings" } */

typedef __SIZE_TYPE__ size_t;
extern "C" void abort (void);
extern "C" size_t strlen (const char *s);

const unsigned char *pascalStr1 = "\pHello, World!";
const unsigned char *concat1 = "\pConcatenated" "string" "\pliteral";

const unsigned char msg1[] = "\pHello";   /* ok */
const unsigned char *msg2 = "\pHello";    /* ok */
const signed char msg3[] = "\pHello";     /* ok */
const char msg4[] = "\pHello";            /* ok */
unsigned char msg5[] = "\pHello";   /* ok */
signed char msg7[] = "\pHello";     /* ok */
char msg8[] = "\pHello";            /* ok */
   
int
main (void)
{
  const unsigned char *pascalStr2 = "\pGood-bye!";

  if (strlen ((const char *)pascalStr1) != 14)
    abort ();
  if (*pascalStr1 != 13)
    abort ();  /* the length byte does not include trailing null */

  if (strlen ((const char *)pascalStr2) != 10)
    abort ();
  if (*pascalStr2 != 9)
    abort ();

  if (strlen ((const char *)concat1) != 26)
    abort ();
  if (*concat1 != 25)
    abort ();

  return 0;
}