rpl/src/instructions_r5.c - diff

Return to instructions_r5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_r5.c between versions 1.46 and 1.47

version 1.46, 2013/02/27 17:11:44	version 1.47, 2013/03/20 22:24:37
Line 43 instruction_rswp(struct_processus *s_eta	Line 43 instruction_rswp(struct_processus *s_eta
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_argument_3;	struct_objet *s_objet_argument_3;

signed long ligne_1;	integer8 ligne_1;
signed long ligne_2;	integer8 ligne_2;

void *tampon;	void *tampon;

Line 212 instruction_row_plus(struct_processus *s	Line 212 instruction_row_plus(struct_processus *s
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_argument_3;	struct_objet *s_objet_argument_3;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;

void **tableau;	void **tableau;
void *tampon;	void *tampon;
Line 473 instruction_row_plus(struct_processus *s	Line 473 instruction_row_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_objet_argument_3).objet))	if (((((struct_matrice ) (*s_objet_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_objet_argument_3).objet)).nombre_colonnes	(s_objet_argument_3).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 521 instruction_row_plus(struct_processus *s	Line 521 instruction_row_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_objet_argument_3).objet))	if (((((struct_matrice ) (*s_objet_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_objet_argument_3).objet)).nombre_colonnes	(s_objet_argument_3).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 568 instruction_row_plus(struct_processus *s	Line 568 instruction_row_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_objet_argument_3).objet))	if (((((struct_matrice ) (*s_objet_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_objet_argument_3).objet)).nombre_colonnes	(s_objet_argument_3).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 619 instruction_row_plus(struct_processus *s	Line 619 instruction_row_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_objet_argument_1).objet))	if (((((struct_matrice ) (*s_objet_argument_1).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_objet_argument_1).objet)).nombre_colonnes	(s_objet_argument_1).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 667 instruction_row_plus(struct_processus *s	Line 667 instruction_row_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_objet_argument_1).objet))	if (((((struct_matrice ) (*s_objet_argument_1).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_objet_argument_1).objet)).nombre_colonnes	(s_objet_argument_1).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 714 instruction_row_plus(struct_processus *s	Line 714 instruction_row_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_objet_argument_1).objet))	if (((((struct_matrice ) (*s_objet_argument_1).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_objet_argument_1).objet)).nombre_colonnes	(s_objet_argument_1).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 786 instruction_row_plus(struct_processus *s	Line 786 instruction_row_plus(struct_processus *s
if (matrice_vide == d_faux)	if (matrice_vide == d_faux)
{	{
if (((((struct_matrice ) (*s_objet_argument_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_argument_3).objet)).tableau
= malloc(((((struct_matrice ) (*s_objet_argument_3).objet))	= malloc(((size_t) ((((struct_matrice ) (*s_objet_argument_3)
.nombre_lignes + 1) * sizeof(void *))) == NULL)	.objet)).nombre_lignes + 1)) * sizeof(void *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 809 instruction_row_plus(struct_processus *s	Line 809 instruction_row_plus(struct_processus *s
for(j = i = 0; i < (((struct_matrice )	for(j = i = 0; i < (((struct_matrice )
(*s_objet_argument_3).objet)).nombre_lignes; i++)	(*s_objet_argument_3).objet)).nombre_lignes; i++)
{	{
if (i == (unsigned long) (position - 1))	if (i == (position - 1))
{	{
(((struct_matrice ) (*s_objet_argument_3).objet))	(((struct_matrice ) (*s_objet_argument_3).objet))
.tableau[i] = (((struct_matrice )	.tableau[i] = (((struct_matrice )
Line 930 instruction_row_moins(struct_processus *	Line 930 instruction_row_moins(struct_processus *
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long colonne;	integer8 colonne;

void **tableau;	void **tableau;

Line 1168 instruction_row_moins(struct_processus *	Line 1168 instruction_row_moins(struct_processus *
.tableau;	.tableau;

if (((((struct_matrice ) (*s_objet_argument_2).objet)).tableau	if (((((struct_matrice ) (*s_objet_argument_2).objet)).tableau
= malloc(((((struct_matrice ) (*s_objet_argument_2)	= malloc(((size_t) ((((struct_matrice )
.objet)).nombre_lignes - 1) * sizeof(void *))) == NULL)	(s_objet_argument_2).objet)).nombre_lignes - 1))
	sizeof(void *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.46
changed lines
	Added in v.1.47