void file_compress(char *pcParm1,undefined4 uParm2)

{
  size_t sVar1;
  FILE *pFVar2;
  int iVar3;
  char acStack1020 [1020];

  sVar1 = strlen(pcParm1);
  if (sVar1 + 3 < 0x3ff) {
    fprintf(*(FILE **)(_impure_ptr + 0xc),"%s: filename too long\n",prog);
                    /* WARNING: Subroutine does not return */
    exit(1);
  }
  snprintf(acStack1020,0x400,"%s%s",pcParm1,&DAT_00023798);
  pFVar2 = fopen(pcParm1,"rb");
  if (pFVar2 != (FILE *)0x0) {
    iVar3 = gzopen(acStack1020,uParm2);
    if (iVar3 != 0) {
      gz_compress(pFVar2,iVar3);
      unlink(pcParm1);
      return;
    }
    fprintf(*(FILE **)(_impure_ptr + 0xc),"%s: can\'t gzopen %s\n",prog,acStack1020);
                    /* WARNING: Subroutine does not return */
    exit(1);
  }
  perror(pcParm1);
                    /* WARNING: Subroutine does not return */
  exit(1);
}