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

Fixed problems with -I and with value conformant arrays

Browse source
This commit is contained in:
ceriel 1990-09-27 17:01:01 +00:00
parent 03a65131fc
commit 282d93dde0
4 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -140,10 +140,10 @@ DoOption(text)
Realloc(DEFPATH,(mDEF+=10)*sizeof(char *)); Realloc(DEFPATH,(mDEF+=10)*sizeof(char *));
} }
for (i = ndirs++; i <= nDEF; i++) { for (i = ndirs++; i < nDEF; i++) {
char *tmp = DEFPATH[i]; char *tmp = DEFPATH[i];
DEFPATH[i++] = new; DEFPATH[i] = new;
new = tmp; new = tmp;
} }
} }

4
lang/m2/comp/program.g
View file

@ -13,7 +13,9 @@
#include "debug.h" #include "debug.h"
#include <alloc.h> #include <alloc.h>
#include <em.h> #include <em_arith.h>
#include <em_label.h>
#include <em_code.h>
#include <stb.h> #include <stb.h>
#include "strict3rd.h" #include "strict3rd.h"

4
lang/m2/comp/stab.c
View file

@ -10,7 +10,9 @@
/* $Header$ */ /* $Header$ */
#include <alloc.h> #include <alloc.h>
#include <em.h> #include <em_arith.h>
#include <em_label.h>
#include <em_code.h>
#include <flt_arith.h> #include <flt_arith.h>
#include <stb.h> #include <stb.h>

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

@ -354,7 +354,10 @@ WalkProcedure(procedure)
} }
continue; continue;
} }
if (param->par_def->df_flags & D_DEFINED) { #ifdef PASS_BIG_VAL_AS_VAR
if (param->par_def->df_flags & D_DEFINED)
#endif
{
/* Here, we have to make a copy of the /* Here, we have to make a copy of the
array. We must also remember how much array. We must also remember how much
room is reserved for copies, because room is reserved for copies, because