Changeset 90f715 in git for Singular/walk.cc
- Timestamp:
- Dec 13, 2016, 10:01:44 AM (7 years ago)
- Branches:
- (u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')
- Children:
- 1ae67730fa57673e19cd4e827e43af59b10709c1
- Parents:
- 395bff88a6362715713dacd455c278cd6e494d75
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/walk.cc
r395bff r90f715 2696 2696 2697 2697 /*weights: entries for 3 blocks: NULL Made:???*/ 2698 omFree(r->wvhdl); 2698 2699 r->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 2699 2700 r->wvhdl[0] = (int*) omAlloc(nv*sizeof(int)); … … 2702 2703 2703 2704 /* order: a,lp,C,0 */ 2704 r->order = (int *) omAlloc(nb * sizeof(int *)); 2705 omFree(r->order); 2706 r->order = (rRingOrder_t *) omAlloc(nb * sizeof(rRingOrder_t *)); 2707 omFree(r->block0); 2705 2708 r->block0 = (int *)omAlloc0(nb * sizeof(int *)); 2709 omFree(r->block1); 2706 2710 r->block1 = (int *)omAlloc0(nb * sizeof(int *)); 2707 2711 … … 2723 2727 2724 2728 // the last block: everything is 0 2725 r->order[3] = 0;2729 r->order[3] = (rRingOrder_t)0; 2726 2730 2727 2731 // polynomial ring … … 2747 2751 2748 2752 //weights: entries for 3 blocks: NULL Made:??? 2753 omFree(r->wvhdl); 2749 2754 r->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 2750 2755 r->wvhdl[0] = (int*) omAlloc(nv*sizeof(int)); … … 2758 2763 2759 2764 // order: (1..1),a,lp,C 2760 r->order = (int *) omAlloc(nb * sizeof(int *)); 2765 omFree(r->order); 2766 r->order = (rRingOrder_t *) omAlloc(nb * sizeof(rRingOrder_t *)); 2767 omFree(r->block0); 2761 2768 r->block0 = (int *)omAlloc0(nb * sizeof(int *)); 2769 omFree(r->block1); 2762 2770 r->block1 = (int *)omAlloc0(nb * sizeof(int *)); 2763 2771 … … 2784 2792 2785 2793 // the last block: everything is 0 2786 r->order[4] = 0;2794 r->order[4] = (rRingOrder_t)0; 2787 2795 2788 2796 // complete ring intializations … … 2806 2814 2807 2815 /*weights: entries for 3 blocks: NULL Made:???*/ 2816 omFree(r->wvhdl); 2808 2817 r->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 2809 2818 r->wvhdl[0] = (int*) omAlloc(nv*nv*sizeof(int)); … … 2815 2824 2816 2825 /* order: a,lp,C,0 */ 2817 r->order = (int *) omAlloc(nb * sizeof(int *)); 2826 omFree(r->order); 2827 r->order = (rRingOrder_t*) omAlloc(nb * sizeof(rRingOrder_t*)); 2828 omFree(r->block0); 2818 2829 r->block0 = (int *)omAlloc0(nb * sizeof(int *)); 2830 omFree(r->block1); 2819 2831 r->block1 = (int *)omAlloc0(nb * sizeof(int *)); 2820 2832 … … 2835 2847 2836 2848 // the last block: everything is 0 2837 r->order[3] = 0;2849 r->order[3] = (rRingOrder_t)0; 2838 2850 2839 2851 // complete ring intializations … … 2858 2870 2859 2871 /*weights: entries for 3 blocks: NULL Made:???*/ 2872 omFree(r->wvhdl); 2860 2873 r->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 2861 2874 r->wvhdl[0] = (int*) omAlloc(nv*sizeof(int)); … … 2872 2885 } 2873 2886 /* order: a,lp,C,0 */ 2874 r->order = (int *) omAlloc(nb * sizeof(int *)); 2887 omFree(r->order); 2888 r->order = (rRingOrder_t *) omAlloc(nb * sizeof(rRingOrder_t *)); 2889 omFree(r->block0); 2875 2890 r->block0 = (int *)omAlloc0(nb * sizeof(int *)); 2891 omFree(r->block1); 2876 2892 r->block1 = (int *)omAlloc0(nb * sizeof(int *)); 2877 2893 … … 2892 2908 2893 2909 // the last block: everything is 0 2894 r->order[3] = 0;2910 r->order[3] = (rRingOrder_t)0; 2895 2911 2896 2912 // complete ring intializations … … 2914 2930 /*weights: entries for 3 blocks: NULL Made:???*/ 2915 2931 2932 omFree(r->wvhdl); 2916 2933 r->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 2917 2934 2918 2935 /* order: lp,C,0 */ 2919 r->order = (int *) omAlloc(nb * sizeof(int *)); 2936 omFree(r->order); 2937 r->order = (rRingOrder_t *) omAlloc(nb * sizeof(rRingOrder_t *)); 2938 omFree(r->block0); 2920 2939 r->block0 = (int *)omAlloc0(nb * sizeof(int *)); 2940 omFree(r->block1); 2921 2941 r->block1 = (int *)omAlloc0(nb * sizeof(int *)); 2922 2942 … … 2930 2950 2931 2951 /* the last block: everything is 0 */ 2932 r->order[2] = 0;2952 r->order[2] = (rRingOrder_t)0; 2933 2953 2934 2954 /*polynomial ring*/ … … 2954 2974 2955 2975 /*weights: entries for 3 blocks: NULL Made:???*/ 2976 omFree(res->wvhdl); 2956 2977 res->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 2957 2978 res->wvhdl[0] = (int*) omAlloc(nv*sizeof(int)); … … 2961 2982 /* order: a,lp,C,0 */ 2962 2983 2963 res->order = (int *) omAlloc(nb * sizeof(int *)); 2984 omFree(res->order); 2985 res->order = (rRingOrder_t *) omAlloc(nb * sizeof(rRingOrder_t *)); 2986 omFree(res->block0); 2964 2987 res->block0 = (int *)omAlloc0(nb * sizeof(int *)); 2988 omFree(res->block1); 2965 2989 res->block1 = (int *)omAlloc0(nb * sizeof(int *)); 2966 2990 … … 2982 3006 2983 3007 // the last block: everything is 0 2984 res->order[3] = 0;3008 res->order[3] = (rRingOrder_t)0; 2985 3009 2986 3010 // polynomial ring … … 3005 3029 /*weights: entries for 3 blocks: NULL Made:???*/ 3006 3030 3031 omFree(r->wvhdl); 3007 3032 r->wvhdl = (int **)omAlloc0(nb * sizeof(int_ptr)); 3008 3033 3009 3034 /* order: lp,C,0 */ 3010 r->order = (int *) omAlloc(nb * sizeof(int *)); 3035 omFree(r->order); 3036 r->order = (rRingOrder_t *) omAlloc(nb * sizeof(rRingOrder_t *)); 3037 omFree(r->block0); 3011 3038 r->block0 = (int *)omAlloc0(nb * sizeof(int *)); 3039 omFree(r->block1); 3012 3040 r->block1 = (int *)omAlloc0(nb * sizeof(int *)); 3013 3041 … … 3021 3049 3022 3050 /* the last block: everything is 0 */ 3023 r->order[2] = 0;3051 r->order[2] = (rRingOrder_t)0; 3024 3052 3025 3053 /*polynomial ring*/
Note: See TracChangeset
for help on using the changeset viewer.