"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlcore.h" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

pdlcore.h  (PDL-2.082)	:	pdlcore.h  (PDL-2.083)
#ifndef __PDLCORE_H		#ifndef __PDLCORE_H
#define __PDLCORE_H		#define __PDLCORE_H
/* version 20: memory-management changes */		/* version 20: memory-management changes */
/* on 21, unify pdl_broadcast per_pdl_flags, par_flags; remove threadloop #defin es; change creating to char; relocate struct pdl.value appropriately, remove pdl _null */		/* on 21, unify pdl_broadcast per_pdl_flags, par_flags; remove threadloop #defin es; change creating to char; relocate struct pdl.value appropriately, remove pdl _null, safe_indterm */
#define PDL_CORE_VERSION 20		#define PDL_CORE_VERSION 20
#define startbroadcastloop startthreadloop		#define startbroadcastloop startthreadloop
#define pdl_startbroadcastloop pdl_startthreadloop		#define pdl_startbroadcastloop pdl_startthreadloop
#define iterbroadcastloop iterthreadloop		#define iterbroadcastloop iterthreadloop
#define pdl_iterbroadcastloop pdl_iterthreadloop		#define pdl_iterbroadcastloop pdl_iterthreadloop
#define get_broadcastdims get_threaddims		#define get_broadcastdims get_threaddims
#include "EXTERN.h" /* std perl include */		#include "EXTERN.h" /* std perl include */
#include "perl.h" /* std perl include */		#include "perl.h" /* std perl include */
#include "XSUB.h" /* for the win32 perlCAPI crap */		#include "XSUB.h" /* for the win32 perlCAPI crap */
skipping to change at line 154		skipping to change at line 154
X(dump, void, (pdl *it)) \		X(dump, void, (pdl *it)) \
X(sever, pdl_error, (pdl *a)) \		X(sever, pdl_error, (pdl *a)) \
X(slice_args_parse_sv, pdl_slice_args*, ( SV* )) \		X(slice_args_parse_sv, pdl_slice_args*, ( SV* )) \
X(online_cpus, int, ()) \		X(online_cpus, int, ()) \
X(magic_get_thread, int, (pdl *)) \		X(magic_get_thread, int, (pdl *)) \
X(pdl_seed, uint64_t, ()) \		X(pdl_seed, uint64_t, ()) \
X(trans_check_pdls, pdl_error, (pdl_trans *trans)) \		X(trans_check_pdls, pdl_error, (pdl_trans *trans)) \
X(make_error, pdl_error, (pdl_error_type e, const char *fmt, ...)) \		X(make_error, pdl_error, (pdl_error_type e, const char *fmt, ...)) \
X(make_error_simple, pdl_error, (pdl_error_type e, const char *msg)) \		X(make_error_simple, pdl_error, (pdl_error_type e, const char *msg)) \
X(barf_if_error, void, (pdl_error err)) \		X(barf_if_error, void, (pdl_error err)) \
X(error_accumulate, pdl_error, (pdl_error err_current, pdl_error err_new))		X(error_accumulate, pdl_error, (pdl_error err_current, pdl_error err_new)) \
		X(packpdls, pdl **, ( SV* sv, PDL_Indx *npdls )) \
		X(unpackpdls, SV*, ( pdl **, PDL_Indx npdls ))
/*************** Function prototypes *********************/		/*************** Function prototypes *********************/
#define X(sym, rettype, args) \		#define X(sym, rettype, args) \
rettype pdl_ ## sym args;		rettype pdl_ ## sym args;
PDL_CORE_LIST(X)		PDL_CORE_LIST(X)
#undef X		#undef X
#define X(symbol, ctype, ppsym, ...) \		#define X(symbol, ctype, ppsym, ...) \
PDL_Indx pdl_setav_ ## ppsym(ctype * pdata, AV* av, \		PDL_Indx pdl_setav_ ## ppsym(ctype * pdata, AV* av, \
PDL_Indx* pdims, PDL_Long ndims, int level, ctype undefval, pdl *p);		PDL_Indx* pdims, PDL_Long ndims, int level, ctype undefval, pdl *p);
End of changes. 2 change blocks.
2 lines changed or deleted		4 lines changed or added

---