version 1.3, 2010/02/10 10:14:20
|
version 1.33, 2012/01/17 14:44:06
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.1.6 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 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 556 instruction_asr(struct_processus *s_etat
|
Line 556 instruction_asr(struct_processus *s_etat
|
void |
void |
instruction_append(struct_processus *s_etat_processus) |
instruction_append(struct_processus *s_etat_processus) |
{ |
{ |
file *descripteur; |
struct_descripteur_fichier *descripteur; |
|
|
struct_objet *s_objet_argument; |
struct_objet *s_objet_argument; |
|
|
Line 609 instruction_append(struct_processus *s_e
|
Line 609 instruction_append(struct_processus *s_e
|
return; |
return; |
} |
} |
|
|
if (fseek(descripteur, (long) 0, SEEK_END) != 0) |
if ((*descripteur).type == 'C') |
|
{ |
|
if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END) != 0) |
|
{ |
|
liberation(s_etat_processus, s_objet_argument); |
|
|
|
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
|
return; |
|
} |
|
} |
|
else |
{ |
{ |
liberation(s_etat_processus, s_objet_argument); |
liberation(s_etat_processus, s_objet_argument); |
|
|
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier; |
(*s_etat_processus).erreur_execution = d_ex_erreur_type_fichier; |
return; |
return; |
} |
} |
} |
} |
Line 767 instruction_axes(struct_processus *s_eta
|
Line 777 instruction_axes(struct_processus *s_eta
|
|
|
if (presence_type == d_faux) |
if (presence_type == d_faux) |
{ |
{ |
if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return; |
|
} |
|
|
|
if ((*s_etat_processus).systeme_axes == 0) |
if ((*s_etat_processus).systeme_axes == 0) |
{ |
{ |
|
if ((tampon = malloc(5 * sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
return; |
|
} |
|
|
strcpy(tampon, "MAIN"); |
strcpy(tampon, "MAIN"); |
} |
} |
else |
else |
{ |
{ |
|
if ((tampon = malloc(10 * sizeof(unsigned char))) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
return; |
|
} |
|
|
strcpy(tampon, "AUXILIARY"); |
strcpy(tampon, "AUXILIARY"); |
} |
} |
} |
} |