/* Copyright (c) 1979 Regents of the University of California */
* pxp - Pascal execution profiler
* Version 1.2 January 1979
* STRING SPACE DECLARATIONS
* Strng is the base of the current
* string space and strngp the
* base of the free area therein.
* No array of descriptors is needed
* as string space is never freed.
STATIC
char strings
[STRINC
];
STATIC
char *strng strings
;
STATIC
char *strngp strings
;
* Copy a string into the string area.
if (strngp
+ i
>= strng
+ STRINC
) {
yerror("Ran out of memory (string)");
strngp
= (int)(strngp
+ (sizeof (int) - 1)) &~ (sizeof (int) - 1);