godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

This is the 4th distribution version

Browse Source
This commit is contained in:
ceriel 1989-10-04 11:02:39 +00:00
commit 545469ea53
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lang/m2/comp/desig.H
View File

@ -17,7 +17,7 @@
*/ */
struct desig { struct desig {
short dsg_kind; int dsg_kind;
#define DSG_INIT 0 /* don't know anything yet */ #define DSG_INIT 0 /* don't know anything yet */
#define DSG_LOADED 1 /* designator loaded on top of the stack */ #define DSG_LOADED 1 /* designator loaded on top of the stack */
#define DSG_PLOADED 2 /* designator accessible through pointer on #define DSG_PLOADED 2 /* designator accessible through pointer on
@ -45,25 +45,21 @@ struct desig {
*/ */
}; };
typedef struct desig t_desig;
/* ALLOCDEF "desig" 5 */
/* The next structure describes the designator in a with-statement. /* The next structure describes the designator in a with-statement.
We have a linked list of them, as with-statements may be nested. We have a linked list of them, as with-statements may be nested.
*/ */
struct withdesig { struct withdesig {
struct withdesig *w_next; struct withdesig *w_next;
int w_flags; /* D_USED|D_DEFINED */
struct scope *w_scope; /* scope in which fields of this record struct scope *w_scope; /* scope in which fields of this record
reside reside
*/ */
t_desig w_desig; /* a desig structure for this particular struct desig w_desig; /* a desig structure for this particular
designator designator
*/ */
}; };
extern struct withdesig *WithDesigs; extern struct withdesig *WithDesigs;
extern struct desig InitDesig;
#define NO_LABEL ((label) 0) #define NO_LABEL ((label) 0)

7
modules/src/string/Makefile
View File

@ -2,6 +2,7 @@ EMHOME = ../../..
MODULES = $(EMHOME)/modules MODULES = $(EMHOME)/modules
INSTALL = $(MODULES)/install INSTALL = $(MODULES)/install
COMPARE = $(MODULES)/compare COMPARE = $(MODULES)/compare
AR = ar
CFLAGS = -O CFLAGS = -O
@ -15,7 +16,7 @@ OBJ = bts2str.o btscat.o btscmp.o btscpy.o btszero.o long2str.o \
all: libstring.a all: libstring.a
libstring.a: $(OBJ) Makefile libstring.a: $(OBJ) Makefile
ar r libstring.a $(OBJ) $(AR) r libstring.a $(OBJ)
-sh -c 'ranlib libstring.a' -sh -c 'ranlib libstring.a'
install: all install: all
@ -34,3 +35,7 @@ opr:
clean: clean:
rm -f *.[oa] rm -f *.[oa]
lintlib:
lint -Cstring $(SRC)
mv llib-lstring.ln $(MODULES)/lib