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"); \ |