view release on metacpan or  search on metacpan

patch/cfitsio-4.6.2.patch  view on Meta::CPAN

      ieevpr(values, values, &ii);     /* from F float -> IEEE float        */
  
! #elif (CFITSIO_MACHINE == ALPHAVMS) && (FLOATTYPE == GFLOAT)
      long ii;
  
      /* convert from VMS FFLOAT float format to IEEE float format */
***************
*** 1345,1357 ****
    format conversion (e.g. byte-swapping) if necessary.
  */
  {
! #if MACHINE == VAXVMS
      long ii;
  
      ii = nvals;                      /* call VAX macro routine to convert */
      ieevpd(values, values, &ii);     /* from D float -> IEEE float        */
  
! #elif (MACHINE == ALPHAVMS) && (FLOATTYPE == GFLOAT)
      long ii;
  
      /* convert from VMS GFLOAT float format to IEEE float format */
--- 1345,1357 ----
    format conversion (e.g. byte-swapping) if necessary.
  */
  {
! #if CFITSIO_MACHINE == VAXVMS
      long ii;
  
      ii = nvals;                      /* call VAX macro routine to convert */
      ieevpd(values, values, &ii);     /* from D float -> IEEE float        */
  
! #elif (CFITSIO_MACHINE == ALPHAVMS) && (FLOATTYPE == GFLOAT)
      long ii;
  
      /* convert from VMS GFLOAT float format to IEEE float format */
diff -rc cfitsio-4.6.2.orig/cfileio.c cfitsio-4.6.2/cfileio.c
*** cfitsio-4.6.2.orig/cfileio.c	2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/cfileio.c	2025-04-22 22:20:10.960557119 -0400
***************
*** 4421,4427 ****
      {
        printf ("\n!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
        printf(" Byteswapping is not being done correctly on this system.\n");
!       printf(" Check the MACHINE and BYTESWAPPED definitions in fitsio2.h\n");
        printf(" Please report this problem to the CFITSIO developers.\n");
        printf(  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
        FFUNLOCK;
--- 4421,4427 ----
      {
        printf ("\n!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
        printf(" Byteswapping is not being done correctly on this system.\n");
!       printf(" Check the CFITSIO_MACHINE and BYTESWAPPED definitions in fitsio2.h\n");
        printf(" Please report this problem to the CFITSIO developers.\n");
        printf(  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
        FFUNLOCK;
diff -rc cfitsio-4.6.2.orig/ChangeLog cfitsio-4.6.2/ChangeLog
*** cfitsio-4.6.2.orig/ChangeLog	2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/ChangeLog	2025-04-22 22:20:10.988557229 -0400
***************
*** 1964,1970 ****
      use the lexical parser to perform calculations on variable-length
      array columns.
  
!   - added "#define MACHINE NATIVE" in fitsio2.h for all machines where
      BYTESWAPPED == FALSE.  This may improve the file writing performance
      by eliminating the need to allocate a temporary buffer in some cases.
  
--- 1964,1970 ----
      use the lexical parser to perform calculations on variable-length
      array columns.
  
!   - added "#define CFITSIO_MACHINE NATIVE" in fitsio2.h for all machines where
      BYTESWAPPED == FALSE.  This may improve the file writing performance
      by eliminating the need to allocate a temporary buffer in some cases.
  
***************
*** 2164,2170 ****
      with elliptical or rectangular regions.
  
    - cleaned up fitsio.h and fitsio2.h to make the definition of LONGLONG
!     and BYTESWAPPED and MACHINE more logical.
      
    - removed HAVE_LONGLONG everywhere since it is no longer needed (the 
      compiler now must have an 8-byte integer datatype to build CFITSIO).
--- 2164,2170 ----
      with elliptical or rectangular regions.
  
    - cleaned up fitsio.h and fitsio2.h to make the definition of LONGLONG
!     and BYTESWAPPED and CFITSIO_MACHINE more logical.
      
    - removed HAVE_LONGLONG everywhere since it is no longer needed (the 
      compiler now must have an 8-byte integer datatype to build CFITSIO).
diff -rc cfitsio-4.6.2.orig/drvrfile.c cfitsio-4.6.2/drvrfile.c
*** cfitsio-4.6.2.orig/drvrfile.c	2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/drvrfile.c	2025-04-22 22:20:10.864556740 -0400
***************
*** 214,220 ****
      }
  #endif
  
! #if MACHINE == ALPHAVMS || MACHINE == VAXVMS
          /* specify VMS record structure: fixed format, 2880 byte records */
          /* but force stream mode access to enable random I/O access      */
      *diskfile = fopen(filename, mode, "rfm=fix", "mrs=2880", "ctx=stm"); 
--- 214,220 ----
      }
  #endif
  
! #if CFITSIO_MACHINE == ALPHAVMS || CFITSIO_MACHINE == VAXVMS
          /* specify VMS record structure: fixed format, 2880 byte records */
          /* but force stream mode access to enable random I/O access      */
      *diskfile = fopen(filename, mode, "rfm=fix", "mrs=2880", "ctx=stm"); 
***************
*** 564,570 ****
      }
  #endif
  
! #if MACHINE == ALPHAVMS || MACHINE == VAXVMS
          /* specify VMS record structure: fixed format, 2880 byte records */
          /* but force stream mode access to enable random I/O access      */
      diskfile = fopen(filename, mode, "rfm=fix", "mrs=2880", "ctx=stm"); 
--- 564,570 ----
      }
  #endif
  
! #if CFITSIO_MACHINE == ALPHAVMS || CFITSIO_MACHINE == VAXVMS
          /* specify VMS record structure: fixed format, 2880 byte records */
          /* but force stream mode access to enable random I/O access      */
      diskfile = fopen(filename, mode, "rfm=fix", "mrs=2880", "ctx=stm");