rpl/src/instructions_p5.c - diff

Return to instructions_p5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_p5.c between versions 1.42 and 1.68

version 1.42, 2013/02/26 19:56:15	version 1.68, 2020/01/10 11:15:47
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.32
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2020 Dr. BERTRAND Joël

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

Line 245 instruction_putc(struct_processus *s_eta	Line 245 instruction_putc(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;

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

void *tampon;	void *tampon;

Line 468 instruction_putc(struct_processus *s_eta	Line 468 instruction_putc(struct_processus *s_eta
.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 516 instruction_putc(struct_processus *s_eta	Line 516 instruction_putc(struct_processus *s_eta
.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 563 instruction_putc(struct_processus *s_eta	Line 563 instruction_putc(struct_processus *s_eta
.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 1168 instruction_putr(struct_processus *s_eta	Line 1168 instruction_putr(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;

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

void *tampon;	void *tampon;

Line 1401 instruction_putr(struct_processus *s_eta	Line 1401 instruction_putr(struct_processus *s_eta
.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 1449 instruction_putr(struct_processus *s_eta	Line 1449 instruction_putr(struct_processus *s_eta
.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 1496 instruction_putr(struct_processus *s_eta	Line 1496 instruction_putr(struct_processus *s_eta
.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)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.42
changed lines
	Added in v.1.68