view release on metacpan or  search on metacpan

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

! #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"); 
***************
*** 714,720 ****
      /* perhaps others, so seek to original position to be sure. */
      /* This seek will do no harm on other systems.   */
  
! #if MACHINE == IBMPC
  
      if (file_seek(handle, handleTable[handle].currentpos))
              return(SEEK_ERROR);
--- 714,720 ----
      /* perhaps others, so seek to original position to be sure. */
      /* This seek will do no harm on other systems.   */
  
! #if CFITSIO_MACHINE == IBMPC
  
      if (file_seek(handle, handleTable[handle].currentpos))
              return(SEEK_ERROR);
diff -rc cfitsio-4.6.2.orig/drvrmem.c cfitsio-4.6.2/drvrmem.c
*** cfitsio-4.6.2.orig/drvrmem.c	2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/drvrmem.c	2025-04-22 22:20:10.816556551 -0400
***************
*** 145,151 ****
              return(FILE_NOT_CREATED); 
          }
  
! #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"); 
--- 145,151 ----
              return(FILE_NOT_CREATED); 
          }
  
! #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"); 
diff -rc cfitsio-4.6.2.orig/fitscore.c cfitsio-4.6.2/fitscore.c
*** cfitsio-4.6.2.orig/fitscore.c	2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/fitscore.c	2025-04-22 22:20:10.844556661 -0400
***************
*** 9737,9743 ****
      }
  
      sptr = (short *) fval;
! #if BYTESWAPPED && MACHINE != VAXVMS && MACHINE != ALPHAVMS
      sptr++;       /* point to MSBs */
  #endif
      iret = fnan(*sptr);  /* if iret == 1, then the float value is a NaN */
--- 9737,9743 ----
      }
  
      sptr = (short *) fval;
! #if BYTESWAPPED && CFITSIO_MACHINE != VAXVMS && CFITSIO_MACHINE != ALPHAVMS
      sptr++;       /* point to MSBs */
  #endif
      iret = fnan(*sptr);  /* if iret == 1, then the float value is a NaN */
***************
*** 9812,9818 ****
      }
  
      sptr = (short *) dval;
! #if BYTESWAPPED && MACHINE != VAXVMS && MACHINE != ALPHAVMS
      sptr += 3;       /* point to MSBs */
  #endif
      iret = dnan(*sptr);  /* if iret == 1, then the double value is a NaN */
--- 9812,9818 ----
      }
  
      sptr = (short *) dval;
! #if BYTESWAPPED && CFITSIO_MACHINE != VAXVMS && CFITSIO_MACHINE != ALPHAVMS
      sptr += 3;       /* point to MSBs */
  #endif
      iret = dnan(*sptr);  /* if iret == 1, then the double value is a NaN */
diff -rc cfitsio-4.6.2.orig/fitsio2.h cfitsio-4.6.2/fitsio2.h
*** cfitsio-4.6.2.orig/fitsio2.h	2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/fitsio2.h	2025-04-22 22:20:22.696603130 -0400
***************
*** 86,92 ****
  #elif defined(__sparcv9) || (defined(__sparc__) && defined(__arch64__))
                                 /*  SUN Solaris7 in 64-bit mode */
  #define BYTESWAPPED FALSE
! #define MACHINE NATIVE
  #define LONGSIZE 64   
  
                              /* IBM System z mainframe support */ 
--- 86,92 ----
  #elif defined(__sparcv9) || (defined(__sparc__) && defined(__arch64__))
                                 /*  SUN Solaris7 in 64-bit mode */
  #define BYTESWAPPED FALSE
! #define CFITSIO_MACHINE NATIVE
  #define LONGSIZE 64   
  
                              /* IBM System z mainframe support */ 
***************
*** 106,112 ****
  #elif defined(_SX)             /* Nec SuperUx */
  
  #define BYTESWAPPED FALSE
! #define MACHINE NATIVE
  #define LONGSIZE 64
  
  #elif defined(__powerpc64__) || defined(__64BIT__) || defined(__AARCH64EB__)  /* IBM 64-bit AIX powerpc*/
--- 106,112 ----
  #elif defined(_SX)             /* Nec SuperUx */
  
  #define BYTESWAPPED FALSE
! #define CFITSIO_MACHINE NATIVE
  #define LONGSIZE 64
  
  #elif defined(__powerpc64__) || defined(__64BIT__) || defined(__AARCH64EB__)  /* IBM 64-bit AIX powerpc*/
***************
*** 116,122 ****
  #   define BYTESWAPPED TRUE
  #  else
  #   define BYTESWAPPED FALSE
! #   define MACHINE NATIVE
  #  endif
  #  define LONGSIZE 64
  
--- 116,122 ----
  #   define BYTESWAPPED TRUE
  #  else
  #   define BYTESWAPPED FALSE
! #   define CFITSIO_MACHINE NATIVE
  #  endif
  #  define LONGSIZE 64
  
***************
*** 136,142 ****
  #    define BYTESWAPPED TRUE
  #  else
  #    define BYTESWAPPED FALSE
! #    define MACHINE NATIVE