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.45 and 1.62

version 1.45, 2013/02/26 19:56:15	version 1.62, 2016/03/01 22:12:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.25
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2016 Dr. BERTRAND Joël

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

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 120 instruction_rswp(struct_processus *s_eta	Line 120 instruction_rswp(struct_processus *s_eta
ligne_1 = (((integer8 ) (*s_objet_argument_1).objet)) - 1;	ligne_1 = (((integer8 ) (*s_objet_argument_1).objet)) - 1;
ligne_2 = (((integer8 ) (*s_objet_argument_2).objet)) - 1;	ligne_2 = (((integer8 ) (*s_objet_argument_2).objet)) - 1;

if ((ligne_1 < 0) \|\| (ligne_1 >= (long) (((struct_matrice )	if ((ligne_1 < 0) \|\| (ligne_1 >= (((struct_matrice )
(*s_objet_argument_3).objet)).nombre_lignes) \|\|	(*s_objet_argument_3).objet)).nombre_lignes) \|\|
(ligne_2 < 0) \|\| (ligne_2 >= (long) (((struct_matrice )	(ligne_2 < 0) \|\| (ligne_2 >= (((struct_matrice )
(*s_objet_argument_3).objet)).nombre_lignes))	(*s_objet_argument_3).objet)).nombre_lignes))
{	{
liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
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.45
changed lines
	Added in v.1.62