Increase sice of hcusp array to fix ASAN error on CRAN

rstub · Jul 8, 2019 · 24c29c9 · 24c29c9
1 parent f8949a9
commit 24c29c9
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 1 deletion.
diff --git a/external/patch/16_hcusp_asan.diff b/external/patch/16_hcusp_asan.diff
@@ -0,0 +1,13 @@
+diff --git a/src/libswe/swehouse.c b/src/libswe/swehouse.c
+index 627796a..551d26b 100644
+--- a/src/libswe/swehouse.c
++++ b/src/libswe/swehouse.c
+@@ -1810,7 +1810,7 @@ double CALL_CONV swe_house_pos(
+   //double demc;
+   double fh, ra0, tanfi, fac, dfac, tanx;
+   double x[3], xasc[3], raep, raaz, oblaz, xtemp; /* BK 21.02.2006 */
+-  double hcusp[36], ascmc[10];
++  double hcusp[37], ascmc[10];
+   double sine = sind(eps);
+   double cose = cosd(eps);
+   double c1, c2, d, hsize;
diff --git a/src/libswe/swehouse.c b/src/libswe/swehouse.c
@@ -1810,7 +1810,7 @@ double CALL_CONV swe_house_pos(
   //double demc;
   double fh, ra0, tanfi, fac, dfac, tanx;
   double x[3], xasc[3], raep, raaz, oblaz, xtemp; /* BK 21.02.2006 */
-  double hcusp[36], ascmc[10];
+  double hcusp[37], ascmc[10];
   double sine = sind(eps);
   double cose = cosd(eps);
   double c1, c2, d, hsize;