aadded an include directive for windows in a #ifdef
[charm.git] / src / xlatcpm / conv-cpm.flex
index ba004e01ecfbb647f6e722008cc5ca14ab177940..94bdb4569de2302a0f4ac1592b5f767dfaf868a9 100644 (file)
@@ -108,7 +108,7 @@ int type_simple(char *type)
       return (type_kind[i]=='S') ? 1:0;
   }
   fprintf(stderr,"Unknown type %s\n", type);
-  exit(1);
+  exit(1); return 0;
 }
 
 void type_declare(char *type, int kind)
@@ -199,7 +199,7 @@ void gen_func_recv()
        gen_dimension_required();
       fprintf(file_cpm, "CpmA%d = (%s *)(CpmX+(CpmS->f%d));\n", i, func_args[i], i);
       fprintf(file_cpm, "for (i=0; i<CpmA%d; i++) {\n", i-1);
-      fprintf(file_cpm, "  CpmA%d[i] = CpmM + (unsigned int)(CpmA%d[i]);\n", i, i);
+      fprintf(file_cpm, "  CpmA%d[i] = CpmM + (size_t)(CpmA%d[i]);\n", i, i);
       fprintf(file_cpm, "  CpmPtrUnpack_%s(CpmA%d[i]);\n", func_args[i], i);
       fprintf(file_cpm, "}\n");
       break;
@@ -229,7 +229,7 @@ void gen_func_send()
       fprintf(file_cpm, "int aoffs%d;\n",i);
     if (func_pointer[i]) {
       if (func_array[i]) {
-       fprintf(file_cpm, "int *poffs%d = (int *)malloc(a%d*sizeof(int));\n",i,i-1);
+       fprintf(file_cpm, "size_t *poffs%d = (size_t *)malloc(a%d*sizeof(size_t));\n",i,i-1);
       } else {
        fprintf(file_cpm, "int poffs%d;\n",i);
       }
@@ -280,7 +280,7 @@ void gen_func_send()
       break;
     case 3: /* array pointer */
       fprintf(file_cpm, "msg->f%d = aoffs%d;\n",i,i);
-      fprintf(file_cpm, "memcpy(data+aoffs%d, poffs%d, a%d*sizeof(int));\n",
+      fprintf(file_cpm, "memcpy(data+aoffs%d, poffs%d, a%d*sizeof(size_t));\n",
              i,i,i-1);
       fprintf(file_cpm, "for(i=0; i<a%d; i++)\n",i-1);
       fprintf(file_cpm, "  CpmPtrPack_%s(((%s)(data+(poffs%d[i]))), a%d[i]);\n",
@@ -457,7 +457,6 @@ void disclaim(FILE *f, char *src)
 
 main(int argc, char **argv)
 {
-  int i; char *tail;
   if (argc != 3) usage();
   file_src = fopen_nofail(argv[1], "r");
   file_cpm = fopen_nofail(argv[2], "w");