rpl/src/rplexternals.h - diff

Return to rplexternals.h CVS log

Up to [local] / rpl / src

version 1.58, 2014/06/16 18:48:22	version 1.60, 2014/07/17 08:07:27
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.18	RPL/2 (R) version 4.1.19
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2014 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 977	Line 977
} \	} \
else executionError("Type mistmatch error"); } while(0)	else executionError("Type mistmatch error"); } while(0)

	#define setSymbolicName(rpl_object, value) do { \
	setName(rpl_object, value); \
	(((struct_nom ) (*rpl_object).objet)).symbole = d_vrai; } while(0)

#define createNameObject(rpl_object) do { \	#define createNameObject(rpl_object) do { \
if (rpl_object != NULL) \	if (rpl_object != NULL) \
systemError("Reallocated object"); \	systemError("Reallocated object"); \