xref: /csrg-svn/usr.bin/pascal/src/stab.c (revision 826)

/* Copyright (c) 1980 Regents of the University of California */

static	char sccsid[] = "@(#)stab.c 1.2 08/31/80";

    /*
     *	procedures to put out sdb symbol table information.
     *	and stabs for separate compilation type checking.
     *	these use the new .stabs, .stabn, and .stabd directives
     */

#include	"whoami.h"
#ifdef	PC
    /*	and the rest of the file */
#   include	"0.h"
#   include	<stab.h>

/*
 *  the file "p.a.out" has an additional symbol definition for "a.out.h"
 *	that is used by the separate compilation facility --
 *	eventually, "a.out.h" must be updated to include this
 */

#   include	"p.a.out.h"
#   include	"pc.h"

    /*
     *	absolute value: line numbers are negative if error recovery.
     */
#define	ABS( x )	( x < 0 ? -x : x )

    /*
     *	variables
     */
stabvar( name , type , level , offset , length , line )
    char	*name;
    int		type;
    int		level;
    int		offset;
    int		length;
    int		line;
    {

	    /*
	     *	for separate compilation
	     */
	if ( level == 1 ) {
	    putprintf( "	.stabs	\"" , 1 );
	    putprintf( NAMEFORMAT , 1 , name );
	    putprintf( "\",0x%x,0,0,0x%x" , 0 , N_PGVAR , ABS( line ) );
    	}
	    /*
	     *	for sdb
	     */
	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	if ( level == 1 ) {
		putprintf( "\",0x%x,0,0x%x,0" , 0 , N_GSYM , type );
	} else {
		putprintf( "\",0x%x,0,0x%x,0x%x" , 0 , N_LSYM , type , offset );
	}
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , N_LENG , length );

}


    /*
     *	parameters
     */
stabparam( name , type , offset , length )
    char	*name;
    int		type;
    int		offset;
    int		length;
    {

	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0x%x,0x%x" , 0 , N_PSYM , type , offset );
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , N_LENG , length );
    }

    /*
     *	fields
     */
stabfield( name , type , offset , length )
    char	*name;
    int		type;
    int		offset;
    int		length;
    {

	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0x%x,0x%x" , 0 , N_SSYM , type , offset );
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , N_LENG , length );
    }

    /*
     *	left brackets
     */
stablbrac( level )
    int	level;
    {

	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabd	0x%x,0,0x%x" , 0 , N_LBRAC , level );
    }

    /*
     *	right brackets
     */
stabrbrac( level )
    int	level;
    {

	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabd	0x%x,0,0x%x" , 0 , N_RBRAC , level );
    }

    /*
     *	functions
     */
stabfunc( name , class , line , level )
    char	*name;
    int		class;
    int		line;
    long	level;
    {
	int	type;
	long	i;

	    /*
	     *	for separate compilation
	     */
	if ( level == 1 ) {
	    if ( class == FUNC ) {
		putprintf( "	.stabs	\"" , 1 );
		putprintf( NAMEFORMAT , 1 , name );
		putprintf( "\",0x%x,0,0,0x%x" , 0 , N_PGFUN , ABS( line ) );
	    } else if ( class == PROC ) {
		putprintf( "	.stabs	\"" , 1 );
		putprintf( NAMEFORMAT , 1 , name );
		putprintf( "\",0x%x,0,0,0x%x" , 0 , N_PGPRC , ABS( line ) );
	    }
	}
	    /*
	     *	for sdb
	     */
	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0x%x," , 1 , N_FUN , line );
	for ( i = 1 ; i < level ; i++ ) {
	    putprintf( EXTFORMAT , 1 , enclosing[ i ] );
	}
	putprintf( EXTFORMAT , 0 , name );
    }

    /*
     *	source line numbers
     */
stabline( line )
    int	line;
    {
	if ( ! opt('g') ) {
		return;
	}
	putprintf( "	.stabd	0x%x,0,0x%x" , 0 , N_SLINE , ABS( line ) );
    }

    /*
     *	source files
     */
stabsource( filename )
    char	*filename;
    {
	int	label;

	    /*
	     *	for separate compilation
	     */
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , filename );
	putprintf( "\",0x%x,0,0,0" , 0 , N_PSO );
	    /*
	     *	for sdb
	     */
	if ( ! opt('g') ) {
		return;
	}
	label = getlab();
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , filename );
	putprintf( "\",0x%x,0,0," , 1 , N_SO );
	putprintf( PREFIXFORMAT , 0 , LLABELPREFIX , label );
	putprintf( PREFIXFORMAT , 1 , LLABELPREFIX , label );
	putprintf( ":" , 0 );
    }

    /*
     *	included files get one or more of these:
     *	one as they are entered by a #include,
     *	and one every time they are returned to by nested #includes
     */
stabinclude( filename )
    char	*filename;
    {
	int	label;

	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , filename );
	putprintf( "\",0x%x,0,0,0" , 0 , N_PSOL );
	    /*
	     *	for sdb
	     */
	if ( ! opt('g') ) {
		return;
	}
	label = getlab();
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , filename );
	putprintf( "\",0x%x,0,0," , 1 , N_SOL );
	putprintf( PREFIXFORMAT , 0 , LLABELPREFIX , label );
	putprintf( PREFIXFORMAT , 1 , LLABELPREFIX , label );
	putprintf( ":" , 0 );
    }


/*
 * global Pascal symbols :
 *   labels, types, constants, and external procedure and function names:
 *   These are used by the separate compilation facility
 *   to be able to check for disjoint header files.
 */

    /*
     *	global labels
     */
stabglab( label , line )
    char	*label;
    int		line;
    {

	putprintf( "	.stabs	\"" , 1 );
	putprintf( PREFIXFORMAT , 1 , PLABELPREFIX , label );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , N_PGLAB , ABS( line ) );
    }

    /*
     *	global constants
     */
stabcname( name , line )
    char	*name;
    int		line;
    {

	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , N_PGCON , ABS( line ) );
    }

    /*
     *	global types
     */
stabtname( name , line )
    char	*name;
    int		line;
    {

	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , N_PGTYP , ABS( line ) );
    }


    /*
     *	external functions and procedures
     */
stabefunc( name , class , line )
    char	*name;
    int		class;
    int		line;
    {
	int	type;

	if ( class == FUNC ) {
	    type = N_PEFUN;
	} else if ( class == PROC ) {
	    type = N_PEPRC;
	} else {
	    return;
	}
	putprintf( "	.stabs	\"" , 1 );
	putprintf( NAMEFORMAT , 1 , name );
	putprintf( "\",0x%x,0,0,0x%x" , 0 , type , ABS( line ) );
    }

#endif PC