"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdl.h.PL" between
PDL-2.078.tar.gz and PDL-2.079.tar.gz

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

pdl.h.PL  (PDL-2.078):pdl.h.PL  (PDL-2.079)
skipping to change at line 591 skipping to change at line 591
if(!p##__c->next) break; \ if(!p##__c->next) break; \
p##__c=p##__c->next; \ p##__c=p##__c->next; \
} while(1); } while(1);
#define PDL_USESTRUCTVALUE(it) \ #define PDL_USESTRUCTVALUE(it) \
(it->nbytes <= sizeof(it->value)) (it->nbytes <= sizeof(it->value))
#define PDLMAX(a,b) ((a) > (b) ? (a) : (b)) #define PDLMAX(a,b) ((a) > (b) ? (a) : (b))
#define PDLMIN(a,b) ((a) < (b) ? (a) : (b)) #define PDLMIN(a,b) ((a) < (b) ? (a) : (b))
/***************
* Some macros to guard against dataflow infinite recursion.
*/
#define DECL_RECURSE_GUARD static int __nrec=0;
#define START_RECURSE_GUARD __nrec++; if(__nrec > 1000) {__nrec=0; return pdl_ma
ke_error_simple(PDL_EUSERERROR, "PDL:Internal Error: data structure recursion li
mit exceeded (max 1000 levels)\n\tThis could mean that you have found an infinit
e-recursion error in PDL, or\n\tthat you are building data structures with very
long dataflow dependency\n\tchains. You may want to try using sever() to break
the dependency.\n");}
#define ABORT_RECURSE_GUARD __nrec=0;
#define END_RECURSE_GUARD __nrec--;
#define PDL_RETERROR2(rv, expr, iferr) \ #define PDL_RETERROR2(rv, expr, iferr) \
do { rv = expr; if (rv.error) { iferr } } while (0) do { rv = expr; if (rv.error) { iferr } } while (0)
#define PDL_RETERROR(rv, expr) PDL_RETERROR2(rv, expr, return rv;) #define PDL_RETERROR(rv, expr) PDL_RETERROR2(rv, expr, return rv;)
#define PDL_ACCUMERROR(rv, expr) rv = pdl_error_accumulate(rv, expr) #define PDL_ACCUMERROR(rv, expr) rv = pdl_error_accumulate(rv, expr)
#define PDL_ENSURE_ALLOCATED(it) \ #define PDL_ENSURE_ALLOCATED(it) \
if (!(it->state & PDL_ALLOCATED)) { \ if (!(it->state & PDL_ALLOCATED)) { \
PDL_RETERROR(PDL_err, pdl_allocdata(it)); \ PDL_RETERROR(PDL_err, pdl_allocdata(it)); \
} }
 End of changes. 1 change blocks. 
13 lines changed or deleted 0 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)