Update

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

diff --git a/l4/pkg/libgfortran/lib/contrib/generated/matmul_r4.c b/l4/pkg/libgfortran/lib/contrib/generated/matmul_r4.c
index 54208725dfb1cfc0c13b35e42fab79534f1c8926..2322461d45ba536bd41b651b0f4a18970d1ed45b 100644 (file)
--- a/l4/pkg/libgfortran/lib/contrib/generated/matmul_r4.c
+++ b/l4/pkg/libgfortran/lib/contrib/generated/matmul_r4.c
@@ -1,8 +1,8 @@
 /* Implementation of the MATMUL intrinsic
-   Copyright 2002, 2005, 2006, 2007, 2009 Free Software Foundation, Inc.
+   Copyright (C) 2002-2015 Free Software Foundation, Inc.
    Contributed by Paul Brook <paul@nowt.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
@@ -101,7 +101,7 @@ matmul_r4 (gfc_array_r4 * const restrict retarray,
      dimensioned [count, 1], so ycount=1.
   */
 
-  if (retarray->data == NULL)
+  if (retarray->base_addr == NULL)
     {
       if (GFC_DESCRIPTOR_RANK (a) == 1)
         {
@@ -123,8 +123,8 @@ matmul_r4 (gfc_array_r4 * const restrict retarray,
                            GFC_DESCRIPTOR_EXTENT(retarray,0));
         }
 
-      retarray->data
-       = internal_malloc_size (sizeof (GFC_REAL_4) * size0 ((array_t *) retarray));
+      retarray->base_addr
+       = xmallocarray (size0 ((array_t *) retarray), sizeof (GFC_REAL_4));
       retarray->offset = 0;
     }
     else if (unlikely (compile_options.bounds_check))
@@ -226,9 +226,9 @@ matmul_r4 (gfc_array_r4 * const restrict retarray,
       ycount = GFC_DESCRIPTOR_EXTENT(b,1);
     }
 
-  abase = a->data;
-  bbase = b->data;
-  dest = retarray->data;
+  abase = a->base_addr;
+  bbase = b->base_addr;
+  dest = retarray->base_addr;
 
 
   /* Now that everything is set up, we're performing the multiplication