--- rpl/src/rplexternals.h	2023/11/27 08:48:46	1.101
+++ rpl/src/rplexternals.h	2024/01/09 07:33:56	1.103
@@ -1,7 +1,7 @@
 /*
 ================================================================================
   RPL/2 (R) version 4.1.35
-  Copyright (C) 1989-2023 Dr. BERTRAND Joël
+  Copyright (C) 1989-2024 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -885,13 +885,11 @@
 	} } while(0)
 
 #define vectorSize(rpl_object) \
-	({ if ((*rpl_object).type == VIN) \
-			(*((integer8 *) (*rpl_object).objet)).taille; \
-	else if ((*rpl_object).type == VRL) \
-			(*((real8 *) (*rpl_object).objet)).taille; \
-	else if ((*rpl_object).type == VCX)) \
-			(*((complex16 *) (*rpl_object).objet)).taille; \
-	else { executionError("Type mistmatch error"); 0; } })
+	({ integer8 __size; if (((*rpl_object).type == VIN) || \
+		   	((*rpl_object).type == VRL) || \
+			((*rpl_object).type == VCX)) \
+		__size = (*((struct_vecteur *) (*rpl_object).objet)).taille; \
+	else executionError("Type mistmatch error"); __size; })
 
 // Integer vector