Update

[l4.git] / l4 / pkg / libgfortran / lib / contrib / generated / cshift0_i2.c

diff --git a/l4/pkg/libgfortran/lib/contrib/generated/cshift0_i2.c b/l4/pkg/libgfortran/lib/contrib/generated/cshift0_i2.c
index 1a39632d21757eacbef61cb087e0903a14bf2c2a..1985a896d2d8dcd3581c6a8c6e6cdb5a2b4f47a6 100644 (file)
--- a/l4/pkg/libgfortran/lib/contrib/generated/cshift0_i2.c
+++ b/l4/pkg/libgfortran/lib/contrib/generated/cshift0_i2.c
@@ -1,8 +1,8 @@
 /* Helper function for cshift functions.
-   Copyright 2008, 2009 Free Software Foundation, Inc.
+   Copyright (C) 2008-2015 Free Software Foundation, Inc.
    Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>
 
-This file is part of the GNU Fortran 95 runtime library (libgfortran).
+This file is part of the GNU Fortran runtime library (libgfortran).
 
 Libgfortran is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public
@@ -94,12 +94,16 @@ cshift0_i2 (gfc_array_i2 *ret, const gfc_array_i2 *array, ptrdiff_t shift,
   dim = GFC_DESCRIPTOR_RANK (array);
   rstride0 = rstride[0];
   sstride0 = sstride[0];
-  rptr = ret->data;
-  sptr = array->data;
+  rptr = ret->base_addr;
+  sptr = array->base_addr;
 
-  shift = len == 0 ? 0 : shift % (ptrdiff_t)len;
-  if (shift < 0)
-    shift += len;
+  /* Avoid the costly modulo for trivially in-bound shifts.  */
+  if (shift < 0 || shift >= len)
+    {
+      shift = len == 0 ? 0 : shift % (ptrdiff_t)len;
+      if (shift < 0)
+       shift += len;
+    }
 
   while (rptr)
     {