← Back to branch summary

~ubuntu-branches/debian/experimental/eso-midas/experimental

« back to all changes in this revision

Viewing changes to prim/dio/libsrc/fitswdm.c

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2015-03-19 09:24:28 UTC
  • Revision ID: package-import@ubuntu.com-20150319092428-6axm851g2vlrs9xv
Tags: 15.02pl1.1-1~exp4
Enable hardening for Fortran code

Show diffs side-by-side

added added

removed removed

Lines of Context:
prim/dio/libsrc/fitswdm.c
237
237
         {                      /* NULL fill if needed  */
238
238
         pi = p.i + ns;
239
239
         i = n - ns;
240
 
 
241
 
#ifdef LinuxAMD64
242
240
         while (i--) toNULLINT (*pi++);
243
 
#else
244
 
         while (i--) toNULLLONG (*pi++);
245
 
#endif
246
241
         }
247
242
      ioff += n;
248
243
      np = 4 * ns;
279
274
         while (n--)
280
275
         if (isNULLFLOAT (*pf))
281
276
            {
282
 
 
283
 
#ifdef LinuxAMD64
284
277
            toNULLINT (*pi++);
285
 
#else
286
 
            toNULLLONG (*pi++);
287
 
#endif
288
278
            *pf++;
289
279
            }
290
280
         else
332
322
         while (n--)
333
323
         if (isNULLFLOAT (*pd))
334
324
            {
335
 
 
336
 
#ifdef LinuxAMD64
337
325
            toNULLINT (*pi++);
338
 
#else
339
 
            toNULLLONG (*pi++);
340
 
#endif
341
326
            *pd++;
342
327
            }
343
328
         else