m_a_i_n --> _m_a_i_n

This commit is contained in:
ceriel
1991-03-06 14:26:16 +00:00
parent 76d79cf17a
commit b893ec7013
38 changed files with 57 additions and 72 deletions

View File

@@ -118,8 +118,8 @@ CodeBeginBlock(df)
if ( df->df_kind == D_MODULE) /* nothing */ ;
else if (df->df_kind == D_PROGRAM ) {
C_exp("m_a_i_n");
C_pro_narg("m_a_i_n");
C_exp("_m_a_i_n");
C_pro_narg("_m_a_i_n");
C_ms_par((arith) 0);
offset = CodeGtoDescr(df->prc_vis->sc_scope);
CodeFil();

View File

@@ -241,7 +241,7 @@ stb_string(df, kind)
addc_db_str(':');
if (kind == D_MODULE) {
adds_db_str(sprint(buf, "M%d;", df->prc_vis->sc_count));
C_ms_stb_pnam(db_str.base, N_FUN, proclevel, "m_a_i_n");
C_ms_stb_pnam(db_str.base, N_FUN, proclevel, "_m_a_i_n");
return;
}
switch((int)kind) {

View File

@@ -29,7 +29,7 @@ extern int _gtty();
struct file **_extfl;
int _extflc; /* number of external files */
char *_m_lb; /* LB of m_a_i_n */
char *_m_lb; /* LB of _m_a_i_n */
struct file *_curfil; /* points to file struct in case of errors */
int _pargc;
char **_pargv;