File PDL-2.4.7-64bitpointer.diff of Package perl-PDL

Overview Repositories Revisions Requests Users Attributes Meta

File PDL-2.4.7-64bitpointer.diff of Package perl-PDL

Index: Basic/Core/Core.xs.PL
===================================================================
--- Basic/Core/Core.xs.PL.orig
+++ Basic/Core/Core.xs.PL
@@ -373,7 +373,7 @@ DESTROY(sv)
        1; /* Do nothing */
     else {
        self = SvPDLV(sv);
-       PDLDEBUG_f(printf("DESTROYING %d\n",self);)
+       PDLDEBUG_f(printf("DESTROYING %p\n",self);)
        if (self != NULL)
           pdl_destroy(self);
     }
@@ -627,7 +627,7 @@ set_data_by_mmap(it,fname,len,writable,s
                /* Special case: zero-length file */
                it->data = NULL;
        }
-       PDLDEBUG_f(printf("PDL::MMap: mapped to %d\n",it->data);)
+       PDLDEBUG_f(printf("PDL::MMap: mapped to %p\n",it->data);)
        it->state |= PDL_DONTTOUCHDATA | PDL_ALLOCATED;
        pdl_add_deletedata_magic(it, pdl_delete_mmapped_data, len);
        close(fd);
Index: Basic/Core/pdlapi.c
===================================================================
--- Basic/Core/pdlapi.c.orig
+++ Basic/Core/pdlapi.c
@@ -83,7 +83,7 @@ void pdl_allocdata(pdl *it) {
 			nvals *= it->dims[i];
 	}
 	it->nvals = nvals;
-	PDLDEBUG_f(printf("pdl_allocdata 0x%x, %d, %d\n",it, it->nvals,
+	PDLDEBUG_f(printf("pdl_allocdata %p, %d, %d\n",it, it->nvals,
 		it->datatype));
 
 	pdl_grow(it,nvals);
@@ -147,7 +147,7 @@ pdl* pdl_create(int type) {
      it->magic = 0;
      it->hdrsv = 0;
 
-     PDLDEBUG_f(printf("CREATE 0x%x\n",it));
+     PDLDEBUG_f(printf("CREATE %p\n",it));
      return it;
 }
 
@@ -159,12 +159,12 @@ void pdl__free(pdl *it) {
 
     /* now check if magic is still there */
     if (pdl__ismagic(it)) {
-      PDLDEBUG_f(printf("0x%x is still magic\n",it));
+      PDLDEBUG_f(printf("%p is still magic\n",it));
       PDLDEBUG_f(pdl__print_magic(it));
     }
 
     it->magicno = 0x42424245;
-    PDLDEBUG_f(printf("FREE 0x%x\n",it));
+    PDLDEBUG_f(printf("FREE %p\n",it));
 #ifndef DONT_REALLY_FREE
     if(it->dims       != it->def_dims)       free((void*)it->dims);
     if(it->dimincs    != it->def_dimincs)    free((void*)it->dimincs);
@@ -202,7 +202,7 @@ void pdl__free(pdl *it) {
     }
     free(it);
 #endif
-    PDLDEBUG_f(printf("ENDFREE 0x%x\n",it));
+    PDLDEBUG_f(printf("ENDFREE %p\n",it));
 }
 
 void pdl__destroy_childtranses(pdl *it,int ensure) {
@@ -248,9 +248,9 @@ void pdl_destroy(pdl *it) {
     pdl_trans *curt;
     PDL_DECL_CHILDLOOP(it);
     PDL_CHKMAGIC(it);
-    PDLDEBUG_f(printf("Destr. 0x%x\n",it);)
+    PDLDEBUG_f(printf("Destr. %p\n",it);)
     if(it->state & PDL_DESTROYING) {
-        PDLDEBUG_f(printf("Already Destr. 0x%x\n",it);)
+        PDLDEBUG_f(printf("Already Destr. %p\n",it);)
     	return;
     }
     it->state |= PDL_DESTROYING;
@@ -317,14 +317,14 @@ void pdl_destroy(pdl *it) {
  */
     if(nafn) goto soft_destroy;
     if(pdl__magic_isundestroyable(it)) {
-        PDLDEBUG_f(printf("Magic, not Destr. 0x%x\n",it);)
+        PDLDEBUG_f(printf("Magic, not Destr. %p\n",it);)
     	goto soft_destroy;
     }
 
     pdl__destroy_childtranses(it,1);
 
     if(it->trans) {
-      PDLDEBUG_f(printf("Destr_trans. 0x%x %d\n",it->trans, it->trans->flags);)
+      PDLDEBUG_f(printf("Destr_trans. %p %d\n",it->trans, it->trans->flags);)
         /* Ensure only if there are other children! */
 	/* XXX Bad: tmp! */
       if (it->trans->flags & PDL_ITRANS_NONMUTUAL)
@@ -354,12 +354,12 @@ void pdl_destroy(pdl *it) {
 
 /* ... and now we drink */
    pdl__free(it);
-   PDLDEBUG_f(printf("End destroy 0x%x\n",it);)
+   PDLDEBUG_f(printf("End destroy %p\n",it);)
 
    return;
 
   soft_destroy:
-    PDLDEBUG_f(printf("May have dependencies, not destr. %d, nu(%d, %d), nba(%d, %d), nforw(%d), tra(0x%x), nafn(%d)\n",it,
+    PDLDEBUG_f(printf("May have dependencies, not destr. %p, nu(%d, %d), nba(%d, %d), nforw(%d), tra(%p), nafn(%d)\n",it,
     			nundest, nundestp, nback, nback2, nforw, it->trans, nafn);)
     it->state &= ~PDL_DESTROYING;
 }
@@ -482,7 +482,7 @@ void pdl_dump_trans_fixspace (pdl_trans
 	}
         for(i=0; i<nspac; i++) spaces[i]=' ';
 	spaces[i] = '\0';
-	printf("%sDUMPTRANS 0x%x (%s)\n",spaces,it,it->vtable->name);
+	printf("%sDUMPTRANS %p (%s)\n",spaces,it,it->vtable->name);
 	pdl_dump_flags_fixspace(it->flags,nspac+3,PDL_FLAGS_TRANS);
 	if(it->flags & PDL_ITRANS_ISAFFINE) {
 		pdl_trans_affine *foo = (pdl_trans_affine *)it;
@@ -503,10 +503,10 @@ void pdl_dump_trans_fixspace (pdl_trans
 /*	if(it->vtable->dump) {it->vtable->dump(it);} */
 	printf("%s   INPUTS: (",spaces);
 	for(i=0; i<it->vtable->nparents; i++)
-		printf("%s0x%x",(i?" ":""),it->pdls[i]);
+		printf("%s%p",(i?" ":""),it->pdls[i]);
 	printf(")     OUTPUTS: (");
 	for(;i<it->vtable->npdls; i++)
-		printf("%s0x%x",(i?" ":""),it->pdls[i]);
+		printf("%s%p",(i?" ":""),it->pdls[i]);
 	printf(")\n");
 }
 
@@ -522,24 +522,24 @@ void pdl_dump_fixspace(pdl *it,int nspac
 	}
 	for(i=0; i<nspac; i++) spaces[i]=' ';
 	spaces[i] = '\0';
-	printf("%sDUMPING 0x%x     datatype: %d\n",spaces,it,it->datatype);
+	printf("%sDUMPING %p     datatype: %d\n",spaces,it,it->datatype);
 	pdl_dump_flags_fixspace(it->state,nspac+3,PDL_FLAGS_PDL);
-	printf("%s   transvtable: 0x%x, trans: 0x%x, sv: 0x%x\n",spaces,
+	printf("%s   transvtable: %p, trans: %p, sv: %p\n",spaces,
 		(it->trans?it->trans->vtable:0), it->trans, it->sv);
 	if(it->datasv) {
-		printf("%s   Data SV: 0x%x, Svlen: %d, data: 0x%x, nvals: %d\n", spaces,
-			it->datasv, SvCUR((SV*)it->datasv), it->data, it->nvals);
+		printf("%s   Data SV: %p, Svlen: %d, data: %p, nvals: %d\n", spaces,
+			it->datasv, (int)SvCUR((SV*)it->datasv), it->data, it->nvals);
 	}
-	printf("%s   Dims: 0x%x (",spaces,it->dims);
+	printf("%s   Dims: %p (",spaces,it->dims);
 	for(i=0; i<it->ndims; i++) {
 		printf("%s%d",(i?" ":""),it->dims[i]);
 	};
-	printf(")\n%s   ThreadIds: 0x%x (",spaces,it->threadids);
+	printf(")\n%s   ThreadIds: %p (",spaces,it->threadids);
 	for(i=0; i<it->nthreadids+1; i++) {
 		printf("%s%d",(i?" ":""),it->threadids[i]);
 	}
 	if(PDL_VAFFOK(it)) {
-		printf(")\n%s   Vaffine ok: 0x%x (parent), o:%d, i:(",
+		printf(")\n%s   Vaffine ok: %p (parent), o:%d, i:(",
 			spaces,it->vafftrans->from,it->vafftrans->offs);
 		for(i=0; i<it->ndims; i++) {
 			printf("%s%d",(i?" ":""),it->vafftrans->incs[i]);
@@ -755,10 +755,10 @@ void pdl__removeparenttrans(pdl *it, pdl
 void pdl_make_physdims(pdl *it) {
 	int i;
 	int c = (it->state & (PDL_PARENTDIMSCHANGED | PDL_PARENTREPRCHANGED)) ;
-	PDLDEBUG_f(printf("Make_physdims 0x%x\n",it));
+	PDLDEBUG_f(printf("Make_physdims %p\n",it));
         PDL_CHKMAGIC(it);
 	if(!(it->state & (PDL_PARENTDIMSCHANGED | PDL_PARENTREPRCHANGED))) {
-	  PDLDEBUG_f(printf("Make_physdims_exit (NOP) 0x%x\n",it));
+	  PDLDEBUG_f(printf("Make_physdims_exit (NOP) %p\n",it));
 	  return;
 	}
 	it->state &= ~(PDL_PARENTDIMSCHANGED | PDL_PARENTREPRCHANGED);
@@ -770,14 +770,14 @@ void pdl_make_physdims(pdl *it) {
 	/* doesn't this mean that all children of this trans have
 	   now their dims set and accordingly all those flags should
 	   be reset? Otherwise redodims will be called for them again? */
-	PDLDEBUG_f(printf("Make_physdims: calling redodims 0x%x on 0x%x\n",
+	PDLDEBUG_f(printf("Make_physdims: calling redodims %p on %p\n",
 			  it->trans,it));
 	it->trans->vtable->redodims(it->trans);
 	/* why this one? will the old allocated data be freed correctly? */
 	if((c & PDL_PARENTDIMSCHANGED) && (it->state & PDL_ALLOCATED)) {
 		it->state &= ~PDL_ALLOCATED;
 	}
-	PDLDEBUG_f(printf("Make_physdims_exit 0x%x\n",it));
+	PDLDEBUG_f(printf("Make_physdims_exit %p\n",it));
 }
 
 void pdl_writeover(pdl *it) {
@@ -845,7 +845,7 @@ void pdl_make_trans_mutual(pdl_trans *tr
  * a parent, and whether they need to be updated. If this is
  * the case, we need to do some thinking. */
 
-  PDLDEBUG_f(printf("make_trans_mutual 0x%x\n",trans));
+  PDLDEBUG_f(printf("make_trans_mutual %p\n",trans));
   for(i=trans->vtable->nparents; i<trans->vtable->npdls; i++) {
   	if(trans->pdls[i]->trans) fflag ++;
 	if(trans->pdls[i]->state & PDL_DATAFLOW_ANY) cfflag++;
@@ -938,7 +938,7 @@ void pdl_make_trans_mutual(pdl_trans *tr
   }
 #endif
 
-  PDLDEBUG_f(printf("make_trans_mutual_exit 0x%x\n",trans));
+  PDLDEBUG_f(printf("make_trans_mutual_exit %p\n",trans));
 
 } /* pdl_make_trans_mutual() */
 
@@ -957,7 +957,7 @@ void pdl_make_physical(pdl *it) {
 	int i, vaffinepar=0;
 	DECL_RECURSE_GUARD;
 
-	PDLDEBUG_f(printf("Make_physical 0x%x\n",it));
+	PDLDEBUG_f(printf("Make_physical %p\n",it));
         PDL_CHKMAGIC(it);
 
 	START_RECURSE_GUARD;
@@ -1049,7 +1049,7 @@ void pdl_make_physical(pdl *it) {
 	it->state &= (~PDL_ANYCHANGED) & (~PDL_OPT_ANY_OK);
 
   mkphys_end:
-	PDLDEBUG_f(printf("Make_physical_exit 0x%x\n",it));
+	PDLDEBUG_f(printf("Make_physical_exit %p\n",it));
 	END_RECURSE_GUARD;
 }
 
@@ -1098,7 +1098,7 @@ void pdl_vaffinechanged(pdl *it, int wha
 	if(!PDL_VAFFOK(it)) {
 		croak("Vaffine not ok!, trying to use vaffinechanged");
 	}
-	PDLDEBUG_f(printf("pdl_vaffinechanged: writing back data, triggered by pdl 0x%x, using parent 0x%x\n",it,it->vafftrans->from)); 
+	PDLDEBUG_f(printf("pdl_vaffinechanged: writing back data, triggered by pdl %p, using parent %p\n",it,it->vafftrans->from)); 
 	pdl_changed(it->vafftrans->from,what,0);
 }
 
@@ -1109,7 +1109,7 @@ void pdl_changed(pdl *it, int what, int
 	pdl_children *c; int i; int j;
 
 	PDLDEBUG_f(
-          printf("pdl_changed: entry for pdl 0x%x, what %d, recursing: %d\n",
+          printf("pdl_changed: entry for pdl %p, what %d, recursing: %d\n",
 		 it,what,recursing);
 	  if (it->state & PDL_TRACEDEBUG)
 	     pdl_dump(it);
@@ -1146,14 +1146,14 @@ void pdl_changed(pdl *it, int what, int
 	if(it->trans && !recursing &&		(it->trans->flags & PDL_ITRANS_DO_DATAFLOW_B)) {
 		if((it->trans->flags & PDL_ITRANS_ISAFFINE) &&
 		   (PDL_VAFFOK(it))) {
-		  PDLDEBUG_f(printf("pdl_changed: calling writebackdata_vaffine (pdl 0x%x)\n",it));
+		  PDLDEBUG_f(printf("pdl_changed: calling writebackdata_vaffine (pdl %p)\n",it));
 			pdl_writebackdata_vaffine(it);
 			pdl_changed(it->vafftrans->from,what,0);
 		} else {
 			if(!it->trans->vtable->writebackdata) {
 				die("Internal error: got so close to reversing irrev.");
 			}
-			PDLDEBUG_f(printf("pdl_changed: calling writebackdata from vtable, triggered by pdl 0x%x, using trans 0x%x\n",it,it->trans));
+			PDLDEBUG_f(printf("pdl_changed: calling writebackdata from vtable, triggered by pdl %p, using trans %p\n",it,it->trans));
 			it->trans->vtable->writebackdata(it->trans);
 			for(i=0; i<it->trans->vtable->nparents; i++) {
 				if((it->trans->vtable->per_pdl_flags[i] &
@@ -1183,7 +1183,7 @@ void pdl_changed(pdl *it, int what, int
 			c=c->next;
 		} while(c);
 	}
-	PDLDEBUG_f(printf("pdl_changed: exiting for pdl 0x%x\n",it));
+	PDLDEBUG_f(printf("pdl_changed: exiting for pdl %p\n",it));
 }
 
 /* This transformation changes soon, so make sure the children
@@ -1318,7 +1318,7 @@ void pdl_destroytransform(pdl_trans *tra
 	pdl *destbuffer[100];
 	int ndest = 0;
 
-	PDLDEBUG_f(printf("entering pdl_destroytransform 0x%x (ensure %d)\n",
+	PDLDEBUG_f(printf("entering pdl_destroytransform %p (ensure %d)\n",
 			  trans,ensure));
 	if(100 < trans->vtable->npdls) {
 		die("Huge trans");
@@ -1336,7 +1336,7 @@ void pdl_destroytransform(pdl_trans *tra
 		foo = trans->pdls[j];
 		if(!foo) continue;
 		PDL_CHKMAGIC(foo);
-		PDLDEBUG_f(printf("pdl_removectransform(0x%x): 0x%x %d\n",
+		PDLDEBUG_f(printf("pdl_removectransform(%p): %p %d\n",
 			trans, trans->pdls[j], j));
 		pdl__removechildtrans(trans->pdls[j],trans,j,1);
 		if(!(foo->state & PDL_DESTROYING) && !foo->sv) {
@@ -1346,11 +1346,11 @@ void pdl_destroytransform(pdl_trans *tra
 	for(; j<trans->vtable->npdls; j++) {
 		foo = trans->pdls[j];
 		PDL_CHKMAGIC(foo);
-		PDLDEBUG_f(printf("pdl_removeptransform(0x%x): 0x%x %d\n",
+		PDLDEBUG_f(printf("pdl_removeptransform(%p): %p %d\n",
 			trans, trans->pdls[j], j));
 		pdl__removeparenttrans(trans->pdls[j],trans,j);
 		if(foo->vafftrans) {
-			PDLDEBUG_f(printf("pdl_removevafft: 0x%x\n", foo));
+			PDLDEBUG_f(printf("pdl_removevafft: %p\n", foo));
 			pdl_vafftrans_remove(foo);
 		}
 		if(!(foo->state & PDL_DESTROYING) && !foo->sv) {
@@ -1376,7 +1376,7 @@ void pdl_destroytransform(pdl_trans *tra
 		pdl_destroy(destbuffer[j]);
 	}
 
-	PDLDEBUG_f(printf("leaving pdl_destroytransform 0x%x\n", trans));
+	PDLDEBUG_f(printf("leaving pdl_destroytransform %p\n", trans));
 
 }
 
@@ -1471,7 +1471,7 @@ void pdl_make_physvaffine(pdl *it)
 	int flag;
 	int incsign;
 
-	PDLDEBUG_f(printf("Make_physvaffine 0x%x\n",it));
+	PDLDEBUG_f(printf("Make_physvaffine %p\n",it));
 
 	pdl_make_physdims(it);
 
@@ -1487,7 +1487,7 @@ void pdl_make_physvaffine(pdl *it)
 
 	PDL_ENSURE_VAFFTRANS(it);
 	incsleft = malloc(sizeof(*incsleft)*it->ndims);
-        PDLDEBUG_f(printf("vaff_malloc: got 0x%x\n",incsleft));
+        PDLDEBUG_f(printf("vaff_malloc: got %p\n",incsleft));
         for(i=0; i<it->ndims; i++) {
 		it->vafftrans->incs[i] = it->dimincs[i];
 	}
@@ -1576,9 +1576,9 @@ void pdl_make_physvaffine(pdl *it)
 	pdl_make_physical(current);
 
   mkphys_vaff_end:
-       PDLDEBUG_f(printf("vaff_malloc: 0x%x\n",incsleft));
+       PDLDEBUG_f(printf("vaff_malloc: %p\n",incsleft));
        if (incsleft != NULL) free(incsleft);
-	PDLDEBUG_f(printf("Make_physvaffine_exit 0x%x\n",it));
+	PDLDEBUG_f(printf("Make_physvaffine_exit %p\n",it));
 
 }
 
Index: Basic/Core/pdlmagic.c
===================================================================
--- Basic/Core/pdlmagic.c.orig
+++ Basic/Core/pdlmagic.c
@@ -96,7 +96,7 @@ pdl_magic *pdl__print_magic(pdl *it)
 {
 	pdl_magic **foo = &(it->magic);
 	while(*foo) {
-	  printf("Magic %d\ttype: ",*foo);
+	  printf("Magic %p\ttype: ",*foo);
 		if((*foo)->what & PDL_MAGIC_MARKCHANGED)
 		  printf("PDL_MAGIC_MARKCHANGED");
 		else if ((*foo)->what & PDL_MAGIC_MUTATEDPARENT)
@@ -237,10 +237,10 @@ int pdl_pthreads_enabled(void) {return 1
 
 static void *pthread_perform(void *vp) {
 	struct ptarg *p = (ptarg *)vp;
-	if(TVERB) printf("STARTING THREAD %d (%d)\n",p->no, pthread_self());
+	if(TVERB) printf("STARTING THREAD %d (%lx)\n",p->no, (unsigned long)pthread_self());
 	pthread_setspecific(p->mag->key,(void *)&(p->no));
 	(p->func)(p->t);
-	if(TVERB) printf("ENDING THREAD %d (%d)\n",p->no, pthread_self());
+	if(TVERB) printf("ENDING THREAD %d (%lx)\n",p->no, (unsigned long)pthread_self());
 	return NULL;
 }
 
@@ -274,7 +274,7 @@ void pdl_magic_thread_cast(pdl *it,void
 	tp = malloc(sizeof(pthread_t) * ptr->nthreads);
 	tparg = malloc(sizeof(*tparg) * ptr->nthreads);
 	pthread_key_create(&(ptr->key),NULL);
-	if(TVERB) printf("CREATING THREADS, ME: %d, key: %d\n",pthread_self(),
+	if(TVERB) printf("CREATING THREADS, ME: %lx, key: %d\n",(unsigned long)pthread_self(),
 		ptr->key);
 	for(i=0; i<ptr->nthreads; i++) {
 		tparg[i].mag = ptr;
@@ -283,12 +283,12 @@ void pdl_magic_thread_cast(pdl *it,void
 		tparg[i].no = i;
 		pthread_create(tp+i, NULL, pthread_perform, tparg+i);
 	}
-	if(TVERB) printf("JOINING THREADS, ME: %d, key: %d\n",pthread_self(),
+	if(TVERB) printf("JOINING THREADS, ME: %lx, key: %d\n",(unsigned long)pthread_self(),
 		ptr->key);
 	for(i=0; i<ptr->nthreads; i++) {
 		pthread_join(tp[i], NULL);
 	}
-	if(TVERB) printf("FINISHED THREADS, ME: %d, key: %d\n",pthread_self(),
+	if(TVERB) printf("FINISHED THREADS, ME: %lx, key: %d\n",(unsigned long)pthread_self(),
 		ptr->key);
 	pthread_key_delete((ptr->key));
 }
Index: Basic/Core/pdlthread.c
===================================================================
--- Basic/Core/pdlthread.c.orig
+++ Basic/Core/pdlthread.c
@@ -42,7 +42,7 @@ static void print_iarr(int *iarr, int n)
 void dump_thread(pdl_thread *thread) {
   int i;
   char spaces[] = "    ";
-  printf("DUMPTHREAD 0x%x \n",thread);
+  printf("DUMPTHREAD %p \n",thread);
   if (0&& thread->einfo) {
     psp; printf("Funcname: %s\n",thread->einfo->funcname);
     psp; printf("Paramaters: ");
@@ -60,7 +60,7 @@ void dump_thread(pdl_thread *thread) {
   psp; printf("Realdims: "); print_iarr(thread->realdims,thread->npdls); printf("\n");
   psp; printf("Pdls: (");
   for (i=0;i<thread->npdls;i++)
-    printf("%s0x%x",(i?" ":""),thread->pdls[i]);
+    printf("%s%p",(i?" ":""),thread->pdls[i]);
   printf(")\n");
   psp; printf("Per pdl flags: (");
   for (i=0;i<thread->npdls;i++)
@@ -113,7 +113,7 @@ void pdl_thread_copy(pdl_thread *from,pd
 }
 
 void pdl_freethreadloop(pdl_thread *thread) {
-	PDLDEBUG_f(printf("Freethreadloop(0x%x, 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x)\n",
+	PDLDEBUG_f(printf("Freethreadloop(%p, %p %p %p %p %p %p)\n",
 		thread,
 		thread->inds, thread->dims, thread->offs, thread->incs,
 		thread->flags, thread->pdls);)
@@ -128,7 +128,7 @@ void pdl_freethreadloop(pdl_thread *thre
 }
 
 void pdl_clearthreadstruct(pdl_thread *it) {
-	PDLDEBUG_f(printf("Clearthreadloop(0x%x)\n", it);)
+	PDLDEBUG_f(printf("Clearthreadloop(%p)\n", it);)
 	it->einfo = 0;it->inds = 0;it->dims = 0;
 	it->ndims = it->nimpl = it->npdls = 0; it->offs = 0;
 	it->pdls = 0;it->incs = 0; it->realdims=0; it->flags=0;
@@ -162,7 +162,7 @@ void pdl_initthreadstruct(int nobl,
 	int *nthreadids;
 	int nthr = 0; int nthrd;
 
-	PDLDEBUG_f(printf("Initthreadloop(0x%x)\n", thread);)
+	PDLDEBUG_f(printf("Initthreadloop(%p)\n", thread);)
 #ifdef PDL_THREAD_DEBUG
 	  /* the following is a fix for a problem in the current core logic
            * see comments in pdl_make_physical in pdlapi.c
Index: Lib/FFTW/fftw.pd
===================================================================
--- Lib/FFTW/fftw.pd.orig
+++ Lib/FFTW/fftw.pd
@@ -802,7 +802,7 @@ EOD
 pp_addxs('','
 MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
-int
+UV
 PDL_rfftwnd_create_plan(dims, dir, flag)
   pdl* dims
   int dir
@@ -836,7 +836,7 @@ CODE:
   }
  
   RETVAL = 
-  (int) rfftwnd_create_plan( dims->dims[0], 
+  (UV) rfftwnd_create_plan( dims->dims[0], 
 			    ( int *) dims->data,
 			    fdir,
 			    fflag);
@@ -852,7 +852,7 @@ MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
 void
 PDL_rfftwnd_one_real_to_complex(plan, in, out)
-  int plan
+  UV plan
   pdl* in
   pdl* out
  CODE:
@@ -866,7 +866,7 @@ MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
 void
 PDL_rfftwnd_one_complex_to_real(plan, in, out)
-  int plan
+  UV plan
   pdl* in
   pdl* out
  CODE:
@@ -884,7 +884,7 @@ MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
 void
 PDL_inplace_rfftwnd_one_real_to_complex(plan, in)
-  int plan
+  UV plan
   pdl* in
  CODE:
   if (in->data==NULL) {barf("Need a physical pdl!");}
@@ -902,7 +902,7 @@ MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
 void
 PDL_inplace_rfftwnd_one_complex_to_real(plan, in)
-  int plan
+  UV plan
   pdl* in
  CODE:
   if (in->data==NULL) {barf("Need a physical pdl!");}
@@ -921,7 +921,7 @@ PDL_inplace_rfftwnd_one_complex_to_real(
 pp_addxs('','
 MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
-int
+UV
 PDL_fftwnd_create_plan(dims, dir, flag)
   pdl* dims
   int dir
@@ -955,7 +955,7 @@ CODE:
   }
  
   RETVAL = 
-  (int) fftwnd_create_plan( dims->dims[0], 
+  (UV) fftwnd_create_plan( dims->dims[0], 
 			    ( int *) dims->data,
 			    fdir,
 			    fflag);
@@ -971,7 +971,7 @@ MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
 void
 PDL_fftwnd_one(plan, in, out)
-  int plan
+  UV plan
   pdl* in
   pdl* out
  CODE:
@@ -985,7 +985,7 @@ MODULE = PDL::FFTW PACKAGE = PDL::FFTW
 
 void
 PDL_inplace_fftwnd_one(plan, in)
-  int plan
+  UV plan
   pdl* in
  CODE:
   if (in->data==NULL) {barf("Need a physical pdl!");}
Index: Lib/GSL/INTERP/gslerr.h
===================================================================
--- Lib/GSL/INTERP/gslerr.h.orig
+++ Lib/GSL/INTERP/gslerr.h
@@ -1,3 +1,4 @@
+#include <gsl/gsl_errno.h>
 
 static int status;
 static char buf[200];
Index: Lib/GSL/SF/gslerr.h
===================================================================
--- Lib/GSL/SF/gslerr.h.orig
+++ Lib/GSL/SF/gslerr.h
@@ -1,3 +1,4 @@
+#include <gsl/gsl_errno.h>
 
 static int status;
 static char buf[200];
Index: Lib/Image2D/resample.c
===================================================================
--- Lib/Image2D/resample.c.orig
+++ Lib/Image2D/resample.c
@@ -8,6 +8,7 @@
  * see http://www.eso.org/eclipse for further details
  */
 
+#include <stdlib.h>
 #include "resample.h"
 
 /*-------------------------------------------------------------------------*/

Places

File PDL-2.4.7-64bitpointer.diff of Package perl-PDL

Places