Merge pull request #19 from TimBellerby/pm0_4

Changes to IR dumping

Author: TimBellerby

pm/Makefile

@@ -29,6 +29,9 @@ PFLAGS=  -g -I../src    -fbounds-check   -fcheck=mem
 
 PMCODE= sysdep.o kinds.o pcomp.o memory.o hash.o opts.o lib.o symbol.o types.o parser.o linker.o vmdefs.o sysdefs.o codegen.o infer.o wcoder.o array.o parlib.o vm.o main.o
 
+PMCODE2= ../config/sysdep.f90 ../src/kinds.f90 ../src/pcomp.f90 ../src/memory.f90 ../src/hash.f90 ../src/opts.f90 ../src/lib.f90 ../src/symbol.f90 ../src/types.f90 ../src/parser.f90 ../src/linker.f90 ../src/vmdefs.f90 ../src/sysdefs.f90 ../src/codegen.f90 ../src/infer.f90 ../src/wcoder.f90 ../src/array.f90 ../src/parlib.f90 ../src/vm.f90 ../src/main.f90
+
+
 
 all : pm
 
@@ -98,3 +101,6 @@ vm.o : ../src/vm.f90 parlib.o array.o sysdefs.o types.o symbol.o lib.o opts.o ha
 main.o : ../src/main.f90 vm.o parlib.o array.o wcoder.o infer.o codegen.o linker.o parser.o symbol.o sysdefs.o types.o lib.o opts.o hash.o memory.o kinds.o pcomp.o sysdep.o
 	$(FC) $(PFLAGS) -c $<
 
+
+src:
+	cat $(PMCODE) > pm_interp.f90

pmc/Makefile

@@ -58,18 +58,18 @@ opts.o : ../src/opts.f90 hash.o memory.o kinds.o scomp.o sysdep.o
 	$(FC) $(FFLAGS) -c $<
 
 
-symbol.o : ../src/symbol.f90 hash.o memory.o kinds.o scomp.o sysdep.o
+symbol.o : ../src/symbol.f90 opts.o hash.o memory.o kinds.o scomp.o sysdep.o
 	$(FC) $(FFLAGS) -c $<
 
-lib.o : ../src/lib.f90 symbol.o hash.o memory.o kinds.o scomp.o sysdep.o
+lib.o : ../src/lib.f90 symbol.o opts.o hash.o memory.o kinds.o scomp.o sysdep.o
 	$(FC) $(FFLAGS) -c $<
 
 
-vmdefs.o : ../src/vmdefs.f90 lib.o symbol.o hash.o memory.o kinds.o scomp.o sysdep.o
+vmdefs.o : ../src/vmdefs.f90 lib.o symbol.o opts.o hash.o memory.o kinds.o scomp.o sysdep.o
 	$(FC) $(FFLAGS) -c $<
 
 
-parser.o : ../src/parser.f90 vmdefs.o lib.o symbol.o hash.o memory.o kinds.o scomp.o sysdep.o
+parser.o : ../src/parser.f90 vmdefs.o lib.o symbol.o opts.o hash.o memory.o kinds.o scomp.o sysdep.o
 	$(FC) $(FFLAGS) -c $<
 
 types.o : ../src/types.f90 lib.o symbol.o opts.o hash.o memory.o kinds.o scomp.o sysdep.o

src/cfortran.f90

@@ -451,7 +451,7 @@ recursive subroutine gen_var_op(g,l)
     endif
     opcode=g%codes(l+comp_op_opcode)
     opcode2=g%codes(l+comp_op_opcode2)
-    n=g%codes(l+comp_op_nargs)
+    n=iand(g%codes(l+comp_op_nargs),comp_op_nargs_mask)
     a=l+comp_op_arg0
 
     if(debug_g) then
@@ -1176,7 +1176,7 @@ recursive subroutine gen_op(g,loc)
 
     opcode=g%codes(l+comp_op_opcode)
     opcode2=g%codes(l+comp_op_opcode2)
-    n=g%codes(l+comp_op_nargs)
+    n=iand(g%codes(l+comp_op_nargs),comp_op_nargs_mask)
     a=l+comp_op_arg0
 
     if(debug_g) write(*,*) 'GEN OP>',op_names(opcode),opcode2,n,'>',g%codes(a:a+n-1)