rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

version 1.4, 2010/03/04 10:17:55	version 1.5, 2010/03/17 14:14:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.12	RPL/2 (R) version 4.0.13
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)