rpl/src/instructions_r5.c - diff

Return to instructions_r5.c CVS log

Up to [local] / rpl / src

version 1.47, 2013/03/20 22:24:37	version 1.78, 2025/04/15 10:17:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

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);