version 1.2, 2010/01/27 22:22:17
|
version 1.8, 2010/04/28 09:38:27
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.10 |
RPL/2 (R) version 4.0.15 |
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) |