rpl/src/instructions_e2.c - diff

Return to instructions_e2.c CVS log

Up to [local] / rpl / src

version 1.47, 2013/02/28 13:10:29	version 1.56, 2014/07/17 08:07:20
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.19
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2014 Dr. BERTRAND Joël

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

Line 623 instruction_errm(struct_processus *s_eta	Line 623 instruction_errm(struct_processus *s_eta
{	{
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned int registre_erreur_execution;	int registre_erreur_execution;
unsigned int registre_erreur_systeme;	int registre_erreur_systeme;
unsigned int registre_exception;	int registre_exception;

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

Line 1018 instruction_externals(struct_processus *	Line 1018 instruction_externals(struct_processus *
{	{
logical1 ambiguite;	logical1 ambiguite;

unsigned long i;	integer8 i;

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;

Line 1187 instruction_exit(struct_processus *s_eta	Line 1187 instruction_exit(struct_processus *s_eta
unsigned char *instruction_majuscule;	unsigned char *instruction_majuscule;
unsigned char *tampon;	unsigned char *tampon;

unsigned long niveau;	integer8 niveau;

void (*fonction)();	void (*fonction)();