version 1.2, 2010/01/27 22:22:17
|
version 1.7, 2010/04/21 13:45:50
|
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 1035
|
Line 1035
|
|
|
#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) |