d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Do not use '#endif/#else xxx'; it is not allowed for ANSI C

Browse source
This commit is contained in:
ceriel 1991-12-17 14:36:35 +00:00
parent 8482d2c110
commit fa0bee0b26
9 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/comp/Makefile
View file

@ -2,4 +2,4 @@ distr:
echo '#ifndef lint' > Version.c echo '#ifndef lint' > Version.c
echo 'char Version[] = "ACK Modula-2 compiler Version XXX";' | \ echo 'char Version[] = "ACK Modula-2 compiler Version XXX";' | \
sed "s/XXX/`RC -i`/" >> Version.c sed "s/XXX/`RC -i`/" >> Version.c
echo '#endif lint' >> Version.c echo '#endif' >> Version.c

2
lang/m2/comp/def.c
View file

@ -389,4 +389,4 @@ PrDef(df)
{ {
print("n: %s, k: %d\n", df->df_idf->id_text, df->df_kind); print("n: %s, k: %d\n", df->df_idf->id_text, df->df_kind);
} }
#endif DEBUG #endif /* DEBUG */

6
lang/m2/comp/error.c
View file

@ -72,7 +72,7 @@ debug(va_alist)
} }
va_end(ap); va_end(ap);
} }
#endif DEBUG #endif /* DEBUG */
/*VARARGS*/ /*VARARGS*/
error(va_alist) error(va_alist)
@ -253,7 +253,7 @@ _error(class, node, ap)
case VDEBUG: case VDEBUG:
remark = "(debug)"; remark = "(debug)";
break; break;
#endif DEBUG #endif /* DEBUG */
} }
/* the place */ /* the place */
@ -268,7 +268,7 @@ _error(class, node, ap)
case FATAL: case FATAL:
#ifdef DEBUG #ifdef DEBUG
case VDEBUG: case VDEBUG:
#endif DEBUG #endif /* DEBUG */
ln = LineNumber; ln = LineNumber;
break; break;
} }

2
lang/m2/comp/main.c
View file

@ -105,7 +105,7 @@ Compile(src, dst)
LexScan(); LexScan();
return 1; return 1;
} }
#endif DEBUG #endif /* DEBUG */
open_scope(OPENSCOPE); open_scope(OPENSCOPE);
GlobalVis = CurrVis; GlobalVis = CurrVis;
close_scope(0); close_scope(0);

2
lang/m2/comp/node.c
View file

@ -155,4 +155,4 @@ PrNode(nd, lvl)
break; break;
} }
} }
#endif DEBUG #endif /* DEBUG */

2
lang/m2/comp/options.c
View file

@ -229,7 +229,7 @@ DoOption(text)
} }
} }
} }
#endif NOCROSS #endif /* NOCROSS */
break; break;
} }
} }

8
lang/m2/comp/type.H
View file

@ -163,7 +163,7 @@ extern t_type
#define pointer_size (SZ_POINTER) #define pointer_size (SZ_POINTER)
#define wrd_bits (8*(int)word_size) #define wrd_bits (8*(int)word_size)
#else NOCROSS #else /* NOCROSS */
extern int extern int
word_align, word_align,
@ -187,7 +187,7 @@ extern arith
extern unsigned int extern unsigned int
wrd_bits; /* from cstoper.c */ wrd_bits; /* from cstoper.c */
#endif NOCROSS #endif /* NOCROSS */
extern arith extern arith
ret_area_size; ret_area_size;
@ -225,14 +225,14 @@ extern t_type
(tpx)->tp_next) (tpx)->tp_next)
#define SubBaseType(tpx) (assert((tpx)->tp_fund == T_SUBRANGE), \ #define SubBaseType(tpx) (assert((tpx)->tp_fund == T_SUBRANGE), \
(tpx)->tp_next) (tpx)->tp_next)
#else DEBUG #else /* DEBUG */
#define ResultType(tpx) ((tpx)->tp_next) #define ResultType(tpx) ((tpx)->tp_next)
#define ParamList(tpx) ((tpx)->prc_params) #define ParamList(tpx) ((tpx)->prc_params)
#define IndexType(tpx) ((tpx)->tp_next) #define IndexType(tpx) ((tpx)->tp_next)
#define ElementType(tpx) ((tpx)->tp_next) #define ElementType(tpx) ((tpx)->tp_next)
#define PointedtoType(tpx) ((tpx)->tp_next) #define PointedtoType(tpx) ((tpx)->tp_next)
#define SubBaseType(tpx) ((tpx)->tp_next) #define SubBaseType(tpx) ((tpx)->tp_next)
#endif DEBUG #endif /* DEBUG */
#define BaseType(tpx) ((tpx)->tp_fund == T_SUBRANGE ? (tpx)->tp_next : \ #define BaseType(tpx) ((tpx)->tp_fund == T_SUBRANGE ? (tpx)->tp_next : \
(tpx)) (tpx))
#define IsConstructed(tpx) ((tpx)->tp_fund & T_CONSTRUCTED) #define IsConstructed(tpx) ((tpx)->tp_fund & T_CONSTRUCTED)

6
lang/m2/comp/walk.c
View file

@ -304,7 +304,7 @@ WalkProcedure(procedure)
too_big = ++data_label; too_big = ++data_label;
C_df_dlb(too_big); C_df_dlb(too_big);
C_bss_cst(func_res_size, (arith)0, 0); C_bss_cst(func_res_size, (arith)0, 0);
#endif BIG_RESULT_ON_STACK #endif /* BIG_RESULT_ON_STACK */
} }
} }
@ -441,7 +441,7 @@ WalkProcedure(procedure)
C_lal(procedure->df_type->prc_nbpar); C_lal(procedure->df_type->prc_nbpar);
#else #else
c_lae_dlb(too_big); c_lae_dlb(too_big);
#endif BIG_RESULT_ON_STACK #endif /* BIG_RESULT_ON_STACK */
C_sti(func_res_size); C_sti(func_res_size);
if (StackAdjustment) { if (StackAdjustment) {
/* Remove copies of conformant arrays /* Remove copies of conformant arrays
@ -454,7 +454,7 @@ WalkProcedure(procedure)
#else #else
c_lae_dlb(too_big); c_lae_dlb(too_big);
func_res_size = pointer_size; func_res_size = pointer_size;
#endif BIG_RESULT_ON_STACK #endif /* BIG_RESULT_ON_STACK */
} }
else if (StackAdjustment) { else if (StackAdjustment) {
/* First save the function result in a safe place. /* First save the function result in a safe place.

2
lang/m2/m2mm/Makefile
View file

@ -2,4 +2,4 @@ distr:
echo '#ifndef lint' > Version.c echo '#ifndef lint' > Version.c
echo 'char Version[] = "ACK Modula-2 Makefile generator Version XXX";' | \ echo 'char Version[] = "ACK Modula-2 Makefile generator Version XXX";' | \
sed "s/XXX/`RC -i`/" >> Version.c sed "s/XXX/`RC -i`/" >> Version.c
echo '#endif lint' >> Version.c echo '#endif' >> Version.c