Changeset 821 for soft/giet_vm/applications/rosenfeld/src-par/mca_matrix_dist.c

Timestamp:

May 6, 2016, 3:06:29 PM (9 years ago)

Author:

meunier

Message:

• Added several versions of rosenfeld: { SLOW, FAST } x { FEATURES, NO_FEATURES }
• Added native linux compilation support
• Added a script to check results natively
• Started to refactor nrc code

File:

• soft/giet_vm/applications/rosenfeld/src-par/mca_matrix_dist.c (modified) (3 diffs)

soft/giet_vm/applications/rosenfeld/src-par/mca_matrix_dist.c

@@ -14 +14 @@
 #include <malloc.h>
 
-#ifdef CLI
 #include "nrc_os_config.h"
 #include "nrc.h"
-#endif
 
 
@@ -61 +59 @@
 }
 
+#if TARGET_OS == GIETVM
+// ---------------------------------------------------------------------------
+uint32 ** remote_dist_ui32matrix(int i0, int i1, int j0, int j1, int x, int y)
+// ---------------------------------------------------------------------------
+{
+    int i;
+    int nrow = i1 - i0 + 1;
+    int ncol = j1 - j0 + 1;
+    uint32 ** m;
+    
+    // allocate pointers to rows
+    m = (uint32 **) remote_malloc((nrow + 2) * sizeof(uint32 *), x, y);
+    if (!m) {
+        nrerror("allocation failure 1 in dist_ui32matrix()");
+    }
+    m -= i0;
+    m += 1;
+    
+    // allocate rows and set pointers to them
+    m[i0] = (uint32 *) remote_malloc((nrow * ncol + 1) * sizeof(uint32), x, y);
+    if (!m[i0]) {
+        nrerror("allocation failure 2 in dist_ui32matrix()");
+    }
+    m[i0] -= j0;
+    
+    for (i = i0 + 1; i <= i1; i++) {
+        m[i] = m[i - 1] + ncol;
+    }
+    
+    // make borders to point to first and last lines
+    m[i0 - 1] = m[i0];
+    m[i1 + 1] = m[i1];
+    
+    return m;
+}
+#endif
+
+
 
 // -------------------------------------------------------------------
@@ -66 +102 @@
 // -------------------------------------------------------------------
 {
-    free((FREE_ARG) (m[i0] + j0));
-    free((FREE_ARG) (m + i0 - 1));
+    free(m[i0] + j0);
+    free(m + i0 - 1);
 }