m_a_i_n --> _m_a_i_n
This commit is contained in:
@@ -17,8 +17,6 @@
|
||||
*
|
||||
*/
|
||||
|
||||
/* Author: E.G. Keizer */
|
||||
|
||||
mes 2,_EM_WSIZE,_EM_PSIZE
|
||||
|
||||
exa environ
|
||||
@@ -27,8 +25,8 @@
|
||||
_penvp
|
||||
bss _EM_PSIZE,0,0
|
||||
|
||||
exp $m_a_i_n
|
||||
pro $m_a_i_n,0
|
||||
exp $_m_a_i_n
|
||||
pro $_m_a_i_n,0
|
||||
loc 1336 ; EIOVFL | EIUND | ECONV | EFOVFL | EFUNFL
|
||||
sim ; ignored
|
||||
lal _EM_WSIZE+_EM_PSIZE
|
||||
|
||||
@@ -28,8 +28,8 @@ environ
|
||||
_penvp
|
||||
bss EM_PSIZE,0,0
|
||||
|
||||
exp $m_a_i_n
|
||||
pro $m_a_i_n,0
|
||||
exp $_m_a_i_n
|
||||
pro $_m_a_i_n,0
|
||||
#if EM_WSIZE==1
|
||||
ldc 1336 ; EIOVFL | EIUND | ECONV | EFOVFL | EFUNFL
|
||||
#else
|
||||
|
||||
@@ -24,8 +24,8 @@
|
||||
bkillbss
|
||||
bss EM_PSIZE,0,0
|
||||
|
||||
exp $m_a_i_n
|
||||
pro $m_a_i_n, 0
|
||||
exp $_m_a_i_n
|
||||
pro $_m_a_i_n, 0
|
||||
|
||||
lor 0
|
||||
lae MainLB
|
||||
|
||||
@@ -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