rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rplexternals.h between versions 1.1.1.1 and 1.9

version 1.1.1.1, 2010/01/26 15:22:44	version 1.9, 2010/05/24 10:58:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.0.16
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 39	Line 39
================================================================================	================================================================================
*/	*/

#define allocation(a) allocation((*rpl_arguments).s_etat_processus, a)	#define allocation(a) librpl_allocation((*rpl_arguments).s_etat_processus, a)
#define copie_objet(a, b) copie_objet((*rpl_arguments).s_etat_processus, a, b)	#define copie_objet(a, b) librpl_copie_objet( \
#define liberation(a) liberation((*rpl_arguments).s_etat_processus, a)	(*rpl_arguments).s_etat_processus, a, b)
	#define liberation(a) librpl_liberation((*rpl_arguments).s_etat_processus, a)

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Line 1035	Line 1036

#define intrinsic(function) { \	#define intrinsic(function) { \
int __status; \	int __status; \
__status = wrapper_instruction_intrinseque(instruction_##function, \	__status = wrapper_instruction_intrinseque( \
rpl_arguments); \	instruction_##function, rpl_arguments); \
if (__status == 1) executionError(#function); \	if (__status == 1) executionError(#function); \
if (__status == 2) systemError(#function); \	if (__status == 2) systemError(#function); \
} while(0)	} while(0)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.1.1.1
changed lines
	Added in v.1.9