Re: rc under hp-ux

[Scott Merrilees <Sm@cerberus.bhpese.oz.au>]

>From:  	Scott Merrilees <Sm@cerberus.bhpese.oz.au>
>We have aquired a hp 9000/817 running hp-ux A.09.00, and I started
>my usual porting sequence, compile rc.  Unfortunately, it doesn't
>work.  More specifically stdargs/varargs seems to be playing up.
>Compiling -O causes the compiler to barf on print.c, compiling -g
>completes, but then execution results in core dumps.

It looks like there is a bug in how the hp compiler handles
stdarg/varargs stuff.   va_start() results in a call to
__builtin_va_start(), which I assume is intercepted by the compiler as
a special function, & it tries to do some magic.  This doesn't seem to
work if the first argument is a structure element reference using . or
->.

The work around was to replace the structure element references with
simple variables.

I have raised this matter with hp support, so hopefully the compiler
will get fixed.

In the interim, if anyone has this problem with a hp, they might like
to try the following patch to print.c.

Sm
--
*** print.c.orig	Mon Apr  6 14:22:28 1992
--- print.c	Wed Jan 13 16:44:05 1993
***************
*** 272,278 ****
  	int n = -format->flushed;
  	va_list saveargs = format->args;
  
! 	va_start(format->args, fmt);
  	n += printfmt(format, fmt);
  	va_end(format->args);
  	format->args = saveargs;
--- 272,278 ----
  	int n = -format->flushed;
  	va_list saveargs = format->args;
  
! 	{ va_list ap; va_start(ap, fmt); format->args = ap; }
  	n += printfmt(format, fmt);
  	va_end(format->args);
  	format->args = saveargs;
***************
*** 300,306 ****
  	format.flushed	= 0;
  	format.u.n	= fd;
  
! 	va_start(format.args, fmt);
  	printfmt(&format, fmt);
  	va_end(format.args);
  
--- 300,306 ----
  	format.flushed	= 0;
  	format.u.n	= fd;
  
! 	{ va_list ap; va_start(ap, fmt); format.args = ap; }
  	printfmt(&format, fmt);
  	va_end(format.args);
  
***************
*** 341,347 ****
  	Format format;
  	char *result;
  	format.u.n = 1;
! 	va_start(format.args, fmt);
  	result = memprint(&format, fmt, ealloc(PRINT_ALLOCSIZE), PRINT_ALLOCSIZE);
  	va_end(format.args);
  	return result;
--- 341,347 ----
  	Format format;
  	char *result;
  	format.u.n = 1;
! 	{ va_list ap; va_start(ap, fmt); format.args = ap; }
  	result = memprint(&format, fmt, ealloc(PRINT_ALLOCSIZE), PRINT_ALLOCSIZE);
  	va_end(format.args);
  	return result;
***************
*** 351,357 ****
  	Format format;
  	char *result;
  	format.u.n = 0;
! 	va_start(format.args, fmt);
  	result = memprint(&format, fmt, nalloc(PRINT_ALLOCSIZE), PRINT_ALLOCSIZE);
  	va_end(format.args);
  	return result;
--- 351,357 ----
  	Format format;
  	char *result;
  	format.u.n = 0;
! 	{ va_list ap; va_start(ap, fmt); format.args = ap; }
  	result = memprint(&format, fmt, nalloc(PRINT_ALLOCSIZE), PRINT_ALLOCSIZE);
  	va_end(format.args);
  	return result;