rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

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)