rpl/src/instructions_f3.c - diff

Return to instructions_f3.c CVS log

Up to [local] / rpl / src

version 1.56, 2013/03/16 11:31:41	version 1.57, 2013/03/16 20:11:29
Line 96 instruction_format(struct_processus *s_e	Line 96 instruction_format(struct_processus *s_e
printf(" { \"CHARACTER()\" }\n");	printf(" { \"CHARACTER()\" }\n");
printf(" { \"CHARACTER*(%s)\" }\n", d_INT);	printf(" { \"CHARACTER*(%s)\" }\n", d_INT);
printf(" { \"BINARY%s()\" }\n", d_INT);	printf(" { \"BINARY%s()\" }\n", d_INT);
printf(" { \"BINARY*%s(%s)\" }\n\n", d_INT, d_INT);	printf(" { \"BINARY*%s(%s)\" }\n", d_INT, d_INT);
	printf(" { \"NATIVE()\" }\n\n");

printf(" UNFORMATTED\n");	printf(" UNFORMATTED\n");
printf(" { \"INTEGER1\", \"INTEGER2\", \"INTEGER*4\", "	printf(" { \"INTEGER1\", \"INTEGER2\", \"INTEGER*4\", "
Line 105 instruction_format(struct_processus *s_e	Line 106 instruction_format(struct_processus *s_e
"\"LOGICAL*8\" }\n");	"\"LOGICAL*8\" }\n");
printf(" { \"REAL4\", \"REAL8\" }\n");	printf(" { \"REAL4\", \"REAL8\" }\n");
printf(" { \"COMPLEX8\", \"COMPLEX16\" }\n");	printf(" { \"COMPLEX8\", \"COMPLEX16\" }\n");
printf(" { \"CHARACTER()\" \"CHARACTER*(%s)\" }\n\n", d_INT);	printf(" { \"CHARACTER()\", \"CHARACTER*(%s)\" }\n", d_INT);
	printf(" { \"NATIVE()\" }\n\n");

printf(" FLOW\n");	printf(" FLOW\n");
printf(" { \"LENGTH()\" }\n");	printf(" { \"LENGTH()\" }\n");