1987-03-10 17:51:10 +00:00
|
|
|
/*
|
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
|
*/
|
1994-06-24 14:02:31 +00:00
|
|
|
/* $Id$ */
|
1986-03-10 13:07:55 +00:00
|
|
|
/* L A B E L D E F I N I T I O N */
|
|
|
|
|
|
1986-03-25 16:40:43 +00:00
|
|
|
#include <em_label.h> /* obtain definition of "label" */
|
|
|
|
|
|
1986-03-10 13:07:55 +00:00
|
|
|
#define NO_LABEL (label) 0
|
|
|
|
|
|
|
|
|
|
extern label lab_count;
|
|
|
|
|
#define text_label() (lab_count++) /* returns a new text label */
|
|
|
|
|
|
|
|
|
|
extern label datlab_count;
|
|
|
|
|
#define data_label() (datlab_count++) /* returns a new data label */
|
1987-03-25 23:14:43 +00:00
|
|
|
|
|
|
|
|
#define define_label(idf) enter_label(idf, 1);
|
|
|
|
|
/* The identifier idf is defined as a label. If it is new,
|
|
|
|
|
it is entered into the idf list with the largest possible
|
|
|
|
|
scope, i.e., on the lowest possible level.
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#define apply_label(idf) enter_label(idf, 0);
|
|
|
|
|
/* The identifier idf is applied as a label. It may or may
|
|
|
|
|
not be there, and if it is there, it may be from a
|
|
|
|
|
declaration or another application.
|
|
|
|
|
*/
|
