rpl/src/instructions_g4.c - diff

Return to instructions_g4.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_g4.c between versions 1.42 and 1.65

version 1.42, 2013/02/26 19:56:14	version 1.65, 2019/01/01 09:02:58
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.30
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2019 Dr. BERTRAND Joël

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

Line 47 instruction_getc(struct_processus *s_eta	Line 47 instruction_getc(struct_processus *s_eta
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;
unsigned long nombre_colonnes;	integer8 nombre_colonnes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 280 instruction_getc(struct_processus *s_eta	Line 280 instruction_getc(struct_processus *s_eta
(*s_objet_resultat).type = MIN;	(*s_objet_resultat).type = MIN;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(integer8 *))) == NULL)	sizeof(integer8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 305 instruction_getc(struct_processus *s_eta	Line 305 instruction_getc(struct_processus *s_eta
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau[i] = malloc(nombre_colonnes *	.tableau[i] = malloc(((size_t) nombre_colonnes)
sizeof(integer8))) == NULL)	* sizeof(integer8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 358 instruction_getc(struct_processus *s_eta	Line 358 instruction_getc(struct_processus *s_eta
(*s_objet_resultat).type = MRL;	(*s_objet_resultat).type = MRL;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 383 instruction_getc(struct_processus *s_eta	Line 383 instruction_getc(struct_processus *s_eta
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau[i] = malloc(nombre_colonnes *	.tableau[i] = malloc(((size_t) nombre_colonnes)
sizeof(real8))) == NULL)	* sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 436 instruction_getc(struct_processus *s_eta	Line 436 instruction_getc(struct_processus *s_eta
(*s_objet_resultat).type = MCX;	(*s_objet_resultat).type = MCX;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(complex16 *))) == NULL)	sizeof(complex16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 461 instruction_getc(struct_processus *s_eta	Line 461 instruction_getc(struct_processus *s_eta
.objet)).nombre_lignes; i++)	.objet)).nombre_lignes; i++)
{	{
if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau[i] = malloc(nombre_colonnes *	.tableau[i] = malloc(((size_t) nombre_colonnes)
sizeof(complex16))) == NULL)	* sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 617 instruction_getr(struct_processus *s_eta	Line 617 instruction_getr(struct_processus *s_eta
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 ligne;	integer8 ligne;
unsigned long nombre_lignes;	integer8 nombre_lignes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 845 instruction_getr(struct_processus *s_eta	Line 845 instruction_getr(struct_processus *s_eta
.nombre_colonnes;	.nombre_colonnes;

if (((((struct_matrice ) (*s_objet_resultat).objet)).tableau =	if (((((struct_matrice ) (*s_objet_resultat).objet)).tableau =
malloc(nombre_lignes * sizeof(void *))) == NULL)	malloc(((size_t) nombre_lignes) * sizeof(void *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
Line 878 instruction_getr(struct_processus *s_eta	Line 878 instruction_getr(struct_processus *s_eta
.objet)) - 1;	.objet)) - 1;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t)
(s_objet_resultat).objet)).nombre_colonnes	(((struct_matrice )
	(s_objet_resultat).objet)).nombre_colonnes)
sizeof(integer8))) == NULL)	sizeof(integer8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 930 instruction_getr(struct_processus *s_eta	Line 931 instruction_getr(struct_processus *s_eta
.objet)) - 1;	.objet)) - 1;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t)
(s_objet_resultat).objet)).nombre_colonnes	(((struct_matrice )
	(s_objet_resultat).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 982 instruction_getr(struct_processus *s_eta	Line 984 instruction_getr(struct_processus *s_eta
.objet)) - 1;	.objet)) - 1;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t)
(s_objet_resultat).objet)).nombre_colonnes	(((struct_matrice )
	(s_objet_resultat).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
Line 1204 instruction_gamma(struct_processus *s_et	Line 1207 instruction_gamma(struct_processus *s_et

if ((*s_objet_argument).type == INT)	if ((*s_objet_argument).type == INT)
{	{
argument_reel = (((integer8 ) (*s_objet_argument).objet));	argument_reel = (real8) (((integer8 ) (*s_objet_argument).objet));
}	}
else	else
{	{

CVSweb interface <joel.bertrand@systella.fr>

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