m_a_i_n --> _m_a_i_n
This commit is contained in:
@@ -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();
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user