--- rpl/src/rplexternals.h 2024/01/09 07:33:56 1.103 +++ rpl/src/rplexternals.h 2024/06/27 17:21:40 1.105 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.35 + RPL/2 (R) version 4.1.36 Copyright (C) 1989-2024 Dr. BERTRAND Joël This file is part of RPL/2. @@ -885,7 +885,7 @@ } } while(0) #define vectorSize(rpl_object) \ - ({ integer8 __size; if (((*rpl_object).type == VIN) || \ + ({ integer8 __size = 0; if (((*rpl_object).type == VIN) || \ ((*rpl_object).type == VRL) || \ ((*rpl_object).type == VCX)) \ __size = (*((struct_vecteur *) (*rpl_object).objet)).taille; \