Changeset 39394 for trunk/Ohana/src/libfits/table/F_set_column.c
- Timestamp:
- Feb 26, 2016, 6:19:43 AM (10 years ago)
- File:
-
- 1 edited
-
trunk/Ohana/src/libfits/table/F_set_column.c (modified) (6 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Ohana/src/libfits/table/F_set_column.c
r39324 r39394 2 2 # include <gfitsio.h> 3 3 # define OHANA_MEMCHECK 0 4 # define CHECK_MEMBLOCKS 0 4 5 5 6 # define SWAP_NONE … … 45 46 # endif 46 47 48 memset (tlabel, 0, 256); 49 memset (field, 0, 256); 50 memset (format, 0, 256); 51 memset (type, 0, 64); 52 memset (tmpline, 0, 64); 53 47 54 if (label == (char *) NULL) return (FALSE); 48 55 if (label[0] == 0) return (FALSE); … … 95 102 } 96 103 104 // ohana_memcheck (TRUE); 105 97 106 /* make duplicate of data with correct type 98 107 byte swap and Bzero/Bscale */ 99 108 ALLOCATE (array, char, Nbytes*Nval*Nrow); 109 if (CHECK_MEMBLOCKS) { 110 OhanaMemblock *ref = (OhanaMemblock *) array - 1; 111 fprintf (stderr, "ref: "OFF_T_FMT", array: "OFF_T_FMT"\n", (off_t) ref, (off_t) array); 112 if (!ref->nextBlock && !ref->prevBlock) abort(); 113 } 114 100 115 Pin = data; 101 116 Pout = array; 117 118 // ohana_memcheck (TRUE); 119 120 if (CHECK_MEMBLOCKS) { 121 OhanaMemblock *ref = (OhanaMemblock *) array - 1; 122 fprintf (stderr, "ref: "OFF_T_FMT", array: "OFF_T_FMT"\n", (off_t) ref, (off_t) array); 123 if (!ref->nextBlock && !ref->prevBlock) abort(); 124 } 102 125 103 126 // does it makes sense to scale 'char' data? … … 187 210 } 188 211 212 if (CHECK_MEMBLOCKS) { 213 OhanaMemblock *ref = (OhanaMemblock *) array - 1; 214 fprintf (stderr, "ref: "OFF_T_FMT", array: "OFF_T_FMT"\n", (off_t) ref, (off_t) array); 215 if (!ref->nextBlock && !ref->prevBlock) abort(); 216 } 217 189 218 /* check array space */ 190 219 if (Nx*Ny < Nx*(Nrow - 1) + Nstart + Nval*Nbytes) { … … 193 222 } 194 223 224 // ohana_memcheck (TRUE); 195 225 /* insert bytes from array into appropriate section of buffer */ 196 226 Pout = table[0].buffer + Nstart; … … 206 236 myAssert ( type[63] == 0x7f, "oops"); 207 237 myAssert (tmpline[63] == 0x7f, "oops"); 208 209 ohana_memcheck (TRUE); 210 # endif 238 # endif 239 // ohana_memcheck (TRUE); 240 241 if (CHECK_MEMBLOCKS) { 242 OhanaMemblock *ref = (OhanaMemblock *) array - 1; 243 fprintf (stderr, "ref: "OFF_T_FMT", array: "OFF_T_FMT"\n", (off_t) ref, (off_t) array); 244 if (!ref->nextBlock && !ref->prevBlock) abort(); 245 } 211 246 212 247 free (array);
Note:
See TracChangeset
for help on using the changeset viewer.
