From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 17-MAY-1989 19:18
To:	MRGATE::"ARISIA::EVERHART"
Subj:	compiling GNU C (1.34 with 1.2?) (long)

Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Tue, 16 MAY 89 11:25:39 PDT
Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Tue, 16 May 89 11:16:58 PDT
Received: by ucbvax.Berkeley.EDU (5.61/1.36)
	id AA02826; Tue, 16 May 89 11:15:12 -0700
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 16 May 89 18:30:48 GMT
From: motcsd!dms!albaugh@apple.com  (Mike Albaugh)
Organization: Atari Games Inc., Milpitas, CA
Subject: compiling GNU C (1.34 with 1.2?) (long)
Message-Id: <772@dms.UUCP>
References: <1501*jensen@hsr.uninett>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

From article <1501*jensen@hsr.uninett>, by jensen%hsr.uninett@TOR.NTA.NO ("Tarjei T. Jensen"):
> [asks for info on compiling gcc 1.27 or .130 with 1.24]

	I sent the following to bug-gcc. I never saw it posted, but have
gotten some mail from people who _did_. Anyway, in the hope it will help
others...

	The following notes are on what we needed to do to get Gnu CC 1.34
running under vms, using the version of 1.22 provided on the Decus '88 tapes.
I should maybe mention that this is a locally compiled version of 1.22,
compiled with the bootstrap binaries also included on the tape, but it
does _not_ match the binaries, although it will happily re-compile itself
with no change but the time-stamps.

	The lines producing "extern int yydebug" need to be removed from
bison.simple, both in the bison and the "top" gcc directory. I am not sure
where bison gets the parser from under what circumstances.

	make-cc1.com needs to compile (and link) caller-save.c It would
also help to set verify at the beginning, to allow some hope of tracking
down the problem when it dies.

	The notes say to add `/DEFINE=("inline=")' to all the compilations.
a better way is to add the line:

$ gcc == "gcc/define=(""inline="")"

to make.com.

	We found a way to make the make-cccp.com included with 1.32 work,
which may be helpful in many other situations. In essence, we changed the
way gcc.exe hands -d switches to gcc.com, to handle quoted strings
more gracefully. The files in question are included below. After these changes,
gcc 1.22 under vms will compile gcc 1.34 under vms, and more importantly, 1.34
will re-compile itself.

	Please forgive me if even _this_ doesn't work because I forgot one
or more places where our system logicals don't match yours or because on
our system gcc is already the greenhills compiler, so we call Gnu cc gnucc.
I _think_ I re-editted all the files to take that change out, but one never
knows. There should be no problems that are not obvious and trivial to fix.

				Mike Albaugh

| Mike Albaugh (albaugh@dms.UUCP || {...decwrl!turtlevax!}weitek!dms!albaugh)
| Atari Games Corp (Arcade Games, no relation to the makers of the ST)
| 675 Sycamore Dr. Milpitas, CA 95035		voice: (408)434-1709
| The opinions expressed are my own (Boy, are they ever)

----- Cut here for gcc.c. gcc.com follows -----
/*
 *
 *	A DCL driver for GNU "CC".  It accepts a CLD syntax identical to
 *	VAX-11 "C".
 *
 *	Since GCC consists of more than 1 pass we have to do the parsing
 *	here and have a DCL Command (.COM) file do the real work -- so that
 *	multiple images can be invoked WITHOUT having to resort to LIB$SPAWN.
 *
 *	Mike Albaugh and Steve Suttles at Atari Games changed this code and
 *	gcc.com to handle quoted strings (such as those in make-cccp.com for
 *	version 1.32). We don't care if we get the credit, but we're here
 *	if you need to blame someone.
 */

char *Input_Files[100];		/* Input file specifications */
char *Defines[100];		/* /DEFINE specifications    */
char *Includes[100];		/* /INCLUDE specifications   */
char *Debug;			/* /DEBUG specification	     */
char *Object;			/* Object file name	     */
int Optimize;			/* Do optimized compile	     */
int Machine_Code;		/* Output assembly lang	     */
int Verbose;			/* Make noise while compiling*/
char cc1_Options[100];		/* Options for the CC1 pass  */
char *Undefines[100];		/* /UNDEFINE specifications  */


/*
 *	Save a string in dynamic memory
 */
char *savestr(String)
register char *String;
{
	register char *cp,*New_String;

	/*
	 *	Allocate it
	 */
	New_String = (char *)malloc(strlen(String)+1);
	/*
	 *	Copy it
	 */
	cp = New_String;
	while((*cp++ = *String++) != 0) ;
	/*
	 *	Return it
	 */
	return(New_String);
}


/*
 *	Do the parsing
 */
main()
{
	register char *cp,*cp1;
	int i;
	char Temp[256];

	/*
	 *	Get the Input files
	 */
	i = 0;
	while(cli_get_value("VCG$INPUT",Temp,sizeof(Temp)))
				Input_Files[i++] = savestr(Temp);
	/*
	 *	Do the /DEFINE qualifier
	 */
	if (cli_present("VCG$DEFINE")) {
		i = 0;
		while(cli_get_value("VCG$DEFINE",Temp,sizeof(Temp))) {
					Defines[i++] = savestr(Temp);
#ifdef	notdef
					Euniceify(&Defines[i-1]);
#endif	notdef
		}
	}
	/*
	 *	Do the /DEBUG qualifier
	 */
	if (cli_present("VCG$DEBUG")) {
		/*
		 *	Get the value (Default = ALL)
		 */
		if (!cli_get_value("VCG$DEBUG",Temp,sizeof(Temp)))
			strcpy(Temp,"ALL");
		/*
		 *	Save it
		 */
		Debug = savestr(Temp);
	}
	/*
	 *	Do the "/INCLUDE_DIRECTORY" qualifier
	 */
	if (cli_present("VCG$INCLUDE")) {
		i = 0;
		while(cli_get_value("VCG$INCLUDE",Temp,sizeof(Temp)))
					Includes[i++] = savestr(Temp);
	}
	/*
	 *	Do the /MACHINE_CODE qualifier
	 */
	if (cli_present("VCG$MACHINE")) Machine_Code = 1;
	/*
	 *	Do the /OBJECT qualifier
	 */
	if (cli_present("VCG$OBJECT")) {
		cli_get_value("VCG$OBJECT",Temp,sizeof(Temp));
		Object = savestr(Temp);
	}
	/*
	 *	Do the /OPTIMIZE qualifier
	 */
	if (cli_present("VCG$OPTIM")) Optimize = 1;
	/*
	 *	Do the /UNDEFINE qualifier
	 */
	if (cli_present("VCG$UNDEFINE")) {
		i = 0;
		while(cli_get_value("VCG$UNDEFINE",Temp,sizeof(Temp))) {
					Undefines[i++] = savestr(Temp);
#ifdef	notdef
					Euniceify(&Undefines[i-1]);
#endif	notdef
		}
	}
	/*
	 *	Do the /CC1_OPTIONS qualifier
	 */
	if (cli_present("VCG$CC1_OPTIONS"))
		cli_get_value("VCG$CC1_OPTIONS",cc1_Options,sizeof(cc1_Options));
	/*
	 *	Do the /VERBOSE qualifier
	 */
	if (cli_present("VCG$VERBOSE")) Verbose = 1;
	/*
	 *	Generate the command
	 */
	cp = Temp;

	/* Invoke the .COM file */
	cp1 = "@GNU_CC:[000000]GCC";
	while(*cp1) *cp++ = *cp1++;

	/* P1 = File to compile */
	*cp++ = ' ';
	cp1 = Input_Files[0];
	while(*cp1) *cp++ = *cp1++;

	/* P2 = Options */
	*cp++ = ' ';
	if (Optimize || Debug || Machine_Code || Verbose) {
		if (Optimize)*cp++ = 'O';
		if (Debug)*cp++ = 'D';
		if (Machine_Code)*cp++ = 'M';
		if (Verbose) *cp++ = 'V';
	} else {
		*cp++ = '"';
		*cp++ = '"';
	}

	/* P3 = Defines */
	*cp++ = ' ';
	*cp++ = '"';
	if (Defines[0]) {
		*cp++ = '"';
		*cp++ = '"';
		*cp++ = '-';
		*cp++ = 'D';
		cp1 = Defines[0];
		while(*cp1) if ( (*cp++ = *cp1++ ) == '"' ) {
			*cp++ = '"'; *cp++ = '"'; *cp++ = '"'; }
		i = 1;
		while(Defines[i]) {
			*cp++ = '"';
			*cp++ = '"';
			*cp++ = ' ';
			*cp++ = '"';
			*cp++ = '"';
			*cp++ = '-';
			*cp++ = 'D';
			cp1 = Defines[i++];
		    	while(*cp1) if ( (*cp++ = *cp1++ ) == '"' ) {
				*cp++ = '"'; *cp++ = '"'; *cp++ = '"'; }
		}
		*cp++ = '"';
		*cp++ = '"';
	}
	*cp++ = '"';

	/* P4 = Undefines */
	*cp++ = ' ';
	*cp++ = '"';
	if (Undefines[0]) {
		cp1 = Undefines[0];
		while(*cp1) *cp++ = *cp1++;

		i = 1;
		while(Undefines[i]) {
			*cp++ = ',';
			cp1 = Undefines[i++];
			while(*cp1) *cp++ = *cp1++;
		}
	}
	*cp++ = '"';
	/* P5 = Include directories */
	*cp++ = ' ';
	*cp++ = '"';
	if (Includes[0]) {
		cp1 = Includes[0];
		while(*cp1) *cp++ = *cp1++;

		i = 1;
		while(Includes[i]) {
			*cp++ = ',';
			cp1 = Includes[i++];
			while(*cp1) *cp++ = *cp1++;
		}
	}
	*cp++ = '"';

	/* P6 = CC1 compilation phase options */
	cp1 = cc1_Options;
	*cp++ = ' ';
	*cp++ = '"';
	while(*cp1) *cp++ = *cp1++;
	*cp++ = '"';

	/*
	 *	Do it
	 */
	lib_do_command(Temp, cp - Temp);
}


/*
 *	Execute the given DCL command
 */
lib_do_command(Text,Size)
char *Text;
int Size;
{
	struct {int Size; char *Ptr;} Descr;

	Descr.Ptr = Text;
	Descr.Size = Size;
	lib$do_command(&Descr);
}


/************		DCL PARSING ROUTINES		**********/

/*
 *	See if "NAME" is present
 */
int cli_present(Name)
char *Name;
{
	struct {int Size; char *Ptr;} Descr;

	Descr.Ptr = Name;
	Descr.Size = strlen(Name);
	return((cli$present(&Descr) & 1) ? 1 : 0);
}

/*
 *	Get value of "NAME"
 */
int cli_get_value(Name,Buffer,Size)
char *Name;
char *Buffer;
{
	struct {int Size; char *Ptr;} Descr1,Descr2;

	Descr1.Ptr = Name;
	Descr1.Size = strlen(Name);
	Descr2.Ptr = Buffer;
	Descr2.Size = Size-1;
	if (cli$get_value(&Descr1,&Descr2,&Descr2.Size) & 1) {
		Buffer[Descr2.Size] = 0;
		return(1);
	}
	return(0);
}


#ifdef	notdef
/*
 *	TEMPORARY:  Fixup define/undefine strings for Eunice command line
 *			processing
 */
Euniceify(sp)
char **sp;
{
#define	isupper(c) ((c >= 'A') && (c <= 'Z'))
#define tolower(c) (c - 'A' + 'a')
	register char *cp,*cp1;
	char Local[512];

	cp = *sp;
	cp1 = Local;
	while(*cp) {
		if (isupper(*cp)) {
			*cp1++ = '^';
			*cp1 = tolower(*cp);
		} else {
			*cp1 = *cp;
		}
		cp++;
		cp1++;
	}
	*cp1++ = 0;
	cp = (char *)malloc(strlen(Local)+1);
	strcpy(cp,Local);
	*sp = cp;
}
#endif	notdef
----- Cut here for gcc.com -----
$ Verifying:= 'f$verify(0)'
$! Comments at the bottom to save time (yecch!)
$!
$!  Constants:
$!
$ Version:='f$trnlnm("GNU_CC_VERSION")'
$ gcc_cpp:="$GNU_CC:[000000]GCC-CPP"
$ gcc_cc1:="$GNU_CC:[000000]GCC-CC1"
$ gcc_as:= "$GNU_CC:[000000]GCC-AS ""-vGNU CC  V''Version'"""
$!
$!  Parse the options
$!  -----------------
$ P2_Length = 'f$length(P2)'	! So we only have to calculate it once
$ Optimize := ""		!    Default = No Optimize
$ Debug := ""			!    Default = No Debug
$ Machine_Code = 0		!    Default = No Machine Code
$ Quiet := " -quiet"		!    Default = Silent
$ if 'f$locate("O",p2)' .ne. P2_Length then Optimize = " -opt"
$ if 'f$locate("D",p2)' .ne. P2_Length then Debug = " ""-G"""
$ if 'f$locate("M",p2)' .ne. P2_Length then Machine_Code = 1
$ if 'f$locate("V",p2)' .ne. P2_Length then Quiet = ""
$!
$!	Do the CC1 compilation phase options
$!
$ CC1_Options := "''P6'"
$ Save_R2_R5 := ""
$ if 'f$locate("-mdont-save-r2-r5",P6)' .eq. 'f$length(P6)' then goto 10$
$ Save_R2_R5 := " -fcall-used-r2 -fcall-used-r3 -fcall-used-r4 -fcall-used-r5"
$ l = 'f$locate("-mdont-save-r2-r5",P6)'
$ l1 = l + 17
$ CC1_Options := "''f$extract(0,l,P6)'''f$extract(l1,255,P6)'"
$ 10$:
$ Alignment := " -mvaxc-alignment"
$ if 'f$locate("-mpcc-alignment",P6)' .eq. 'f$length(P6)' then goto 20$
$ Alignment := ""
$ Alignment_Define := " ""-DPCC_ALIGNMENT"""
$ l = 'f$locate("-mpcc-alignment",CC1_Options)'
$ l1 = l + 15
$ CC1_Options := "''f$extract(0,l,CC1_Options)'''f$extract(l1,255,CC1_Options)'"
$ 20$:
$!
$!  Do the filename (default to ".C")
$!
$ Filename:='p1'
$ Extension:='f$parse(p1,,,"TYPE","SYNTAX_ONLY")'
$ if "''Extension'" .eqs. "." then Filename:='p1'.C
$!
$!	Do the object file
$!
$ Object_File:='f$parse(p1,,,"NAME","SYNTAX_ONLY")'
$!
$!	Start the pre-processor invocation string
$!
$ cpp_args:=""
$ cpp_args_length='f$length(cpp_args)'
$!
$!	Do any defines
$!
$! NOT ANY MORE, this is now in the driver
$ goto Defines_done
$ Defines_Loop:
$ if "''p3'" .eqs. "" then goto Defines_Done
$ l='f$locate(",",p3)'
$ l1 = l
$ Define:="''f$extract(0,l,p3)'"
$ l1 = l1 + 1
$ p3:="''f$extract(l1,255,p3)'"
$ l = l+5
$ cpp_args[cpp_args_length,l]:=" ""-D''Define'"""
$ cpp_args_length = cpp_args_length + l
$ goto Defines_Loop
$!
$ Defines_Done:
$!
$!	Do any undefines
$!
$ UnDefines_Loop:
$ if "''p4'" .eqs. "" then goto UnDefines_Done
$ l='f$locate(",",p4)'
$ l1 = l
$ Define:="''f$extract(0,l,p4)'"
$ l1 = l1 + 1
$ p4:="''f$extract(l1,255,p4)'"
$ l = l+5
$ cpp_args[cpp_args_length,l]:=" ""-U''Define'"""
$ cpp_args_length = cpp_args_length + l
$ goto UnDefines_Loop
$!
$ UnDefines_Done:
$!
$!	Do any include directories
$!
$ Includes_Loop:
$ if "''p5'" .eqs. "" then goto Includes_Done
$ l = 'f$locate(",",p5)'
$ l1 = l
$ Include:="''f$extract(0,l,p5)'"
$ l1 = l1 + 1
$ p5:="''f$extract(l1,255,p5)'"
$ l = l + 5
$ cpp_args[cpp_args_length,l]:=" ""-I''Include'"""
$ cpp_args_length = cpp_args_length + l
$ goto Includes_Loop
$!
$ Includes_Done:
$!
$!	Calculate the Temp file name
$!
$ Temp_File:=GCC_'f$getjpi(0,"PID")'
$!
$!	Do the "C" pre-processor
$!
$ if "''Quiet'" .eqs. "" then set verify
$ gcc_cpp 'p3''cpp_args''Alignment_Define' 'Filename' 'Temp_File'.CPP
$ status:='$status'
$ l = 'f$verify(0)'
$ if "''status'" .nes. "%X00000001" then goto CPP_Error
$!
$!	Do the "C" compilation
$!
$ Assembly_File:='Temp_File'.S
$ if Machine_Code then Assembly_File:='Object_File'.S
$ if "''Quiet'" .eqs. "" then set verify
$ gcc_cc1 'Temp_File'.CPP'Quiet' -dumpbase 'Filename''Optimize''Debug' -mgnu 'CC1_Options''Save_R2_R5''Alignment' -o 'Assembly_File'
$ status:='$status'
$ l = 'f$verify(0)'
$ delete/nolog/noconfirm 'Temp_File'.CPP;
$ if "''status'" .nes. "%X00000001" then goto CC1_Error
$!
$!	Do the assembly
$!
$ if Machine_Code then goto Exit
$ if "''Quiet'" .eqs. "" then set verify
$ gcc_as 'Temp_File'.S -o 'Object_File'.OBJ
$ status:='$status'
$ l = 'f$verify(0)'
$ delete/nolog/noconfirm 'Assembly_File';
$ if "''status'" .nes. "%X00000001" then goto Gas_Error
$ goto Exit
$!
$!	ERRORS:
$!	------
$ Gas_Error:
$ delete/nolog/noconfirm 'Temp_File'.OBJ;
$ if verifying then set verify
$ exit 'Status'	! Error in Assembly phase
$ CC1_Error:
$ delete/nolog/noconfirm 'Assembly_File';
$ if verifying then set verify
$ exit 'Status'	! Error in "C" Compilation phase
$ CPP_Error:
$ delete/nolog/noconfirm 'Temp_File'.CPP;
$ if verifying then set verify
$ exit 'Status'	! Error in "C" Pre-Processor phase
$!
$!	Done
$!
$ Exit:
$ if verifying then set verify
$ exit 'Status' ! Should be normal from here
$!
$!	GNU "CC" Compiler command file
$!
$!	Invoked from the GCC compile driver via LIB$DO_COMMAND:
$!		P1 = File to compile
$!		P2 = Options: O - Optimize
$!			      D - Debug
$!			      M - Produce Machine Code
$!			      V - Be verbose during compilation
$!		P3 != "," separated Defines
$!		P3 = already processed Defines
$!		P4 = "," separated Undefines
$!		P5 = "," separated Include directories
$!		P6 = CC1 compilation phase options, including:
$!			-mdont-save-r2-r5	(PCC style register saving)
$!			-mpcc-alignment		(PCC style struct align)
$!
$!	Mike Albaugh and Steve Suttles at Atari Games changed this code and
$!	gcc.c to handle quoted strings (such as those in make-cccp.com for
$!	version 1.32). We don't care if we get the credit, but we're here
$!	if you need to blame someone.
$!