rpl/src/instructions_s9.c - diff

Return to instructions_s9.c CVS log

Up to [local] / rpl / src

version 1.11, 2010/05/24 10:58:35	version 1.14, 2010/07/24 16:39:44
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.16	RPL/2 (R) version 4.0.18
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 463 instruction_sort(struct_processus *s_eta	Line 463 instruction_sort(struct_processus *s_eta
indice_j = 0;	indice_j = 0;
indice_k = (((struct_tableau ) (*s_objet_liste).objet))	indice_k = (((struct_tableau ) (*s_objet_liste).objet))
.nombre_elements - ecartement;	.nombre_elements - ecartement;

terminaison_boucle_2 = d_faux;	terminaison_boucle_2 = d_faux;

do	do
Line 557 instruction_sort(struct_processus *s_eta	Line 556 instruction_sort(struct_processus *s_eta

if (condition == d_faux)	if (condition == d_faux)
{	{
swap((void ) (((struct_tableau *)	swap(&((((struct_tableau )
(*s_objet_liste).objet)).elements	(*s_objet_liste).objet)).elements
[indice_i - 1], (void *)	[indice_i - 1]),
(((struct_tableau ) (*s_objet_liste)	&((((struct_tableau ) (*s_objet_liste)
.objet)).elements[indice_l - 1],	.objet)).elements[indice_l - 1]),
sizeof(struct_objet));	sizeof(struct_objet *));

indice_i -= ecartement;	indice_i -= ecartement;