source: git/Singular/prCopyMacros.h @ 663eb45

fieker-DuValspielwiese
Last change on this file since 663eb45 was 416465, checked in by Olaf Bachmann <obachman@…>, 24 years ago
* bug-fixes from work with Thomas git-svn-id: file:///usr/local/Singular/svn/trunk@3826 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.5 KB
Line 
1#undef PR_DELETE_MONOM
2#if PR_DELETE_SRC > 1
3#define PR_DELETE_MONOM(src, r_src)             \
4do                                              \
5{                                               \
6  PR_NDELETE(src, r_src);                       \
7  FreeHeap(src, r_src->mm_specHeap);             \
8}                                               \
9while (0)
10#else
11#define PR_DELETE_SRC_NAME Copy
12#define PR_DELETE_MONOM(src, r_src) ((void)0)
13#endif
14
15#undef PR_INIT_EVECTOR_COPY
16#undef PR_CPY_EVECTOR
17#undef PR_ALLOC_MONOM
18#if PR_RING_EQUAL > 0
19#undef PR_NO_SORT
20#define PR_NO_SORT 1
21#define PR_INIT_EVECTOR_COPY(r_src, r_dest) ((void)0)
22#define PR_CPY_EVECTOR(dest, dest_r, src, src_r) \
23  memcpyW(&(dest->exp.l[0]), &(src->exp.l[0]), dest_r->ExpLSize)
24#define PR_ALLOC_MONOM(r) AllocHeap(r->mm_specHeap)
25#else
26#define  PR_INIT_EVECTOR_COPY(r_src, r_dest) int _min = min(r_dest->N, r_src->N)
27#define  PR_CPY_EVECTOR(dest, dest_r, src, src_r) \
28  prCopyEvector(dest, dest_r, src, src_r, _min)
29#define PR_ALLOC_MONOM(r) Alloc0Heap(r->mm_specHeap)
30#endif
31
32#undef PR_NCOPY
33#undef PR_NDELETE
34#undef PR_NUMBER_SIMPLE_NAME
35#if PR_NUMBER_SIMPLE > 1
36#define PR_NCOPY(n) n
37#define PR_NDELETE(n) ((void)0)
38#define PR_NUMBER_SIMPLE_NAME NSimple
39#else
40#define PR_NCOPY(n) nCopy(n)
41#define PR_NDLETE(n) nDelete(n)
42#define PR_NUMBER_SIMPLE_NAME NoNSimple
43#endif
44
45#undef PR_SORT_POLY
46#if PR_NO_SORT > 1
47#define PR_SORT_POLY(p, r) ((void)0)
48#define PR_SORT_NAME NoSort
49#else
50#define PR_SORT_POLY(p, r) p = prSortR(p, r, TRUE)
51#define PR_SORT_NAME Sort
52#endif
53
Note: See TracBrowser for help on using the repository browser.