Header --> Id
This commit is contained in:
@@ -7,7 +7,7 @@
|
||||
|
||||
/* L E X I C A L A N A L Y S E R F O R M O D U L A - 2 */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
#include "idfsize.h"
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T O K E N D E S C R I P T O R D E F I N I T I O N */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "real.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S Y N T A X E R R O R R E P O R T I N G */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Defines the LLmessage routine. LLgen-generated parsers require the
|
||||
existence of a routine of that name.
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S Y S T E M M O D U L E T E X T */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Text of SYSTEM module, for as far as it can be expressed in Modula-2 */
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* C A S E S T A T E M E N T C O D E G E N E R A T I O N */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Generation of case statements is done by first creating a
|
||||
description structure for the statement, build a list of the
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
% character tables for mod2 compiler
|
||||
% $Header$
|
||||
% $Id$
|
||||
%S129
|
||||
%F %s,
|
||||
%
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* E X P R E S S I O N C H E C K I N G */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Check expressions, and try to evaluate them as far as possible.
|
||||
*/
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* E X P R E S S I O N C H E C K I N G */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
extern int (*ExprChkTable[])(); /* table of expression checking
|
||||
functions, indexed by node class
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* U S E O F C H A R A C T E R C L A S S E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* As a starter, chars are divided into classes, according to which
|
||||
token they can be the start of.
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* C O D E G E N E R A T I O N R O U T I N E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Code generation for expressions and coercions
|
||||
*/
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* C O N S T A N T E X P R E S S I O N H A N D L I N G */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
#include "target_sizes.h"
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E B U G G I N G M A C R O */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debugcst.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E C L A R A T I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include "debug.h"
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* I D E N T I F I E R D E S C R I P T O R S T R U C T U R E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
struct module {
|
||||
struct node *mo_priority;/* priority of a module */
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E F I N I T I O N M E C H A N I S M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E F I N I T I O N M O D U L E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E S I G N A T O R D E S C R I P T I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Generating code for designators is not particularly easy, especially if
|
||||
you don't know wether you want the address or the value.
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E S I G N A T O R E V A L U A T I O N */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Code generation for designators.
|
||||
This file contains some routines that generate code common to address
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* H I G H L E V E L S Y M B O L E N T R Y */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* E R R O R A N D D I A G N O S T I C R O U T I N E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* This file contains the (non-portable) error-message and diagnostic
|
||||
giving functions. Be aware that they are called with a variable
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* E X P R E S S I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include "debug.h"
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* F I L E D E S C R I P T O R S T R U C T U R E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
struct f_info {
|
||||
unsigned short f_lineno;
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* I N S T A N T I A T I O N O F I D F P A C K A G E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "idf.h"
|
||||
#include <idf_pkg.body>
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* U S E R D E C L A R E D P A R T O F I D F */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
struct id_u {
|
||||
int id_res;
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* I N S T A N T I A T I O N O F I N P U T P A C K A G E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "f_info.h"
|
||||
struct f_info file_info;
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* I N S T A N T I A T I O N O F I N P U T M O D U L E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "inputtype.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* L O O K U P R O U T I N E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* M A I N P R O G R A M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S O M E G L O B A L V A R I A B L E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
extern char options[]; /* indicating which options were given */
|
||||
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
cat <<'--EOT--'
|
||||
/* Generated by make.tokcase */
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
#include "Lpars.h"
|
||||
|
||||
char *
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* M I S C E L L A N E O U S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#define is_anon_idf(x) ((x)->id_text[0] == '#')
|
||||
#define id_not_declared(x) (not_declared("identifier", (x), ""))
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* M I S C E L L A N E O U S R O U T I N E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include <alloc.h>
|
||||
#include <em_arith.h>
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* N O D E O F A N A B S T R A C T P A R S E T R E E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
struct node {
|
||||
char nd_class; /* kind of node */
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* N O D E O F A N A B S T R A C T P A R S E T R E E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* U S E R O P T I O N - H A N D L I N G */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "idfsize.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* O V E R A L L S T R U C T U R E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include "debug.h"
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# $Header$
|
||||
# $Id$
|
||||
|
||||
# C compilation part. Not to be called directly.
|
||||
# Instead, it is to be called by the Makefile.
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# $Header$
|
||||
# $Id$
|
||||
|
||||
# make Modula-2 compiler
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* R E A L C O N S T A N T D E S C R I P T O R D E F I N I T I O N */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include <flt_arith.h>
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S C O P E M E C H A N I S M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S C O P E M E C H A N I S M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#define OPENSCOPE 0 /* Indicating an open scope */
|
||||
#define CLOSEDSCOPE 1 /* Indicating a closed scope (module) */
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* D E B U G G E R S Y M B O L T A B L E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "dbsymtab.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S T A N D A R D P R O C E D U R E S A N D F U N C T I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#define S_ABS 1
|
||||
#define S_CAP 2
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* S T A T E M E N T S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
{
|
||||
#include <assert.h>
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T E M P O R A R Y V A R I A B L E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Code for the allocation and de-allocation of temporary variables,
|
||||
allowing re-use.
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T O K E N D E F I N I T I O N S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "tokenname.h"
|
||||
#include "Lpars.h"
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T O K E N N A M E S T R U C T U R E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
struct tokenname { /* Used for defining the name of a
|
||||
token as identified by its symbol
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T Y P E D E S C R I P T O R S T R U C T U R E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "dbsymtab.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T Y P E D E F I N I T I O N M E C H A N I S M */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
#include "debug.h"
|
||||
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* T Y P E E Q U I V A L E N C E */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Routines for testing type equivalence, type compatibility, and
|
||||
assignment compatibility
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* P A R S E T R E E W A L K E R */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Routines to walk through parts of the parse tree, and generate
|
||||
code for these parts.
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* P A R S E T R E E W A L K E R */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Definition of WalkNode macro
|
||||
*/
|
||||
|
||||
@@ -7,7 +7,7 @@
|
||||
|
||||
/* W A R N I N G C L A S S E S */
|
||||
|
||||
/* $Header$ */
|
||||
/* $Id$ */
|
||||
|
||||
/* Warning classes, at the moment three of them:
|
||||
Strict (R)
|
||||
|
||||
Reference in New Issue
Block a user