rpl/src/instructions_k1.c - diff

Return to instructions_k1.c CVS log

Up to [local] / rpl / src

version 1.7, 2010/04/21 13:45:47	version 1.16, 2011/01/03 12:08:06
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.15	RPL/2 (R) version 4.0.20
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 284 instruction_kind(struct_processus *s_eta	Line 284 instruction_kind(struct_processus *s_eta
printf(" 1: %s, %s, %s, %s, %s, %s,\n"	printf(" 1: %s, %s, %s, %s, %s, %s,\n"
" %s, %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX);	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX);
printf("-> 1: %s\n", d_INT);	printf("-> 1: %s\n\n", d_INT);

	if ((*s_etat_processus).langue == 'F')
	{
	printf(" Valeurs renvoyées : \n\n");
	printf(" 0 : objet entier\n");
	printf(" 1 : objet réel\n");
	printf(" 2 : objet complexe\n");
	}
	else
	{
	printf(" Returned values : \n\n");
	printf(" 0 : integer object\n");
	printf(" 1 : real object\n");
	printf(" 2 : complex object\n");
	}

return;	return;
}	}