version 1.15, 2010/07/24 18:01:12
|
version 1.24.2.2, 2011/04/14 08:46:47
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.0.23 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 57 instruction_sort(struct_processus *s_eta
|
Line 57 instruction_sort(struct_processus *s_eta
|
struct_objet *s_objet_copie; |
struct_objet *s_objet_copie; |
struct_objet *s_objet_critere; |
struct_objet *s_objet_critere; |
struct_objet *s_objet_liste; |
struct_objet *s_objet_liste; |
|
struct_objet *s_objet_registre; |
struct_objet *s_objet_test; |
struct_objet *s_objet_test; |
|
|
signed long indice_i; |
signed long indice_i; |
Line 556 instruction_sort(struct_processus *s_eta
|
Line 557 instruction_sort(struct_processus *s_eta
|
|
|
if (condition == d_faux) |
if (condition == d_faux) |
{ |
{ |
swap(&((*((struct_tableau *) |
s_objet_registre = |
|
(*((struct_tableau *) |
(*s_objet_liste).objet)).elements |
(*s_objet_liste).objet)).elements |
[indice_i - 1]), |
[indice_i - 1]; |
&((*((struct_tableau *) (*s_objet_liste) |
(*((struct_tableau *) (*s_objet_liste).objet)) |
.objet)).elements[indice_l - 1]), |
.elements[indice_i - 1] = |
sizeof(struct_objet *)); |
(*((struct_tableau *) (*s_objet_liste) |
|
.objet)).elements[indice_l - 1]; |
|
(*((struct_tableau *) (*s_objet_liste) |
|
.objet)).elements[indice_l - 1] = |
|
s_objet_registre; |
|
|
indice_i -= ecartement; |
indice_i -= ecartement; |
|
|