f6c43b95ef
--HG-- branch : dtrg-buildsystem rename : lang/pc/build.mk => lang/m2/build.mk rename : lang/pc/libpc/build.mk => lang/m2/comp/build.mk rename : lang/pc/libpc/build.mk => lang/m2/libm2/build.mk
72 lines
1.5 KiB
C
72 lines
1.5 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*
|
|
* Author: Ceriel J.H. Jacobs
|
|
*/
|
|
|
|
/* M I S C E L L A N E O U S R O U T I N E S */
|
|
|
|
/* $Id$ */
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include "alloc.h"
|
|
#include "em_arith.h"
|
|
#include "em_label.h"
|
|
|
|
#include "parameters.h"
|
|
#include "f_info.h"
|
|
#include "misc.h"
|
|
#include "LLlex.h"
|
|
#include "idf.h"
|
|
#include "node.h"
|
|
|
|
match_id(id1, id2)
|
|
register t_idf *id1, *id2;
|
|
{
|
|
/* Check that identifiers id1 and id2 are equal. If they
|
|
are not, check that we did'nt generate them in the
|
|
first place, and if not, give an error message
|
|
*/
|
|
if (id1 != id2 && !is_anon_idf(id1) && !is_anon_idf(id2)) {
|
|
error("name \"%s\" does not match block name \"%s\"",
|
|
id1->id_text,
|
|
id2->id_text
|
|
);
|
|
}
|
|
}
|
|
|
|
t_idf *
|
|
gen_anon_idf()
|
|
{
|
|
/* A new idf is created out of nowhere, to serve as an
|
|
anonymous name.
|
|
*/
|
|
static int name_cnt;
|
|
char *s = Malloc(strlen(FileName)+50);
|
|
char *sprint();
|
|
|
|
sprint(s, "#%d in %s, line %u",
|
|
++name_cnt, FileName, LineNumber);
|
|
s = Realloc(s, strlen(s)+1);
|
|
return str2idf(s, 0);
|
|
}
|
|
|
|
not_declared(what, id, where)
|
|
char *what, *where;
|
|
register t_node *id;
|
|
{
|
|
/* The identifier "id" is not declared. If it is not generated,
|
|
give an error message
|
|
*/
|
|
if (!is_anon_idf(id->nd_IDF)) {
|
|
node_error(id,
|
|
"%s \"%s\" not declared%s",
|
|
what,
|
|
id->nd_IDF->id_text,
|
|
where);
|
|
}
|
|
}
|