unsigned char *ptr_uc = NULL;
short *ptr_s = NULL;
unsigned short *ptr_us = NULL;
- long *ptr_l = NULL;
- unsigned long *ptr_ul = NULL;
+ SCSINT32_COP *ptr_l = NULL;
+ SCSUINT32_COP *ptr_ul = NULL;
int nblklst = 40;
scicos_block Block;
}
break;
case 84 :
- if ((Block.inptr[i] = (long *) \
- MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(long))) == NULL)
+ if ((Block.inptr[i] = (SCSINT32_COP *) \
+ MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(SCSINT32_COP))) == NULL)
{
for (j = 0; j < i; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_l = (long *) Block.inptr[i];
+ ptr_l = (SCSINT32_COP *) Block.inptr[i];
for (j = 0; j < Block.insz[i]*Block.insz[Block.nin + i]; j++)
{
ptr_l[j] = 0;
}
break;
case 814 :
- if ((Block.inptr[i] = (unsigned long *) \
- MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(unsigned long))) == NULL)
+ if ((Block.inptr[i] = (SCSUINT32_COP *) \
+ MALLOC(Block.insz[i] * Block.insz[Block.nin + i] * sizeof(SCSUINT32_COP))) == NULL)
{
for (j = 0; j < i; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_ul = (unsigned long *) Block.inptr[i];
+ ptr_ul = (SCSUINT32_COP *) Block.inptr[i];
for (j = 0; j < Block.insz[i]*Block.insz[Block.nin + i]; j++)
{
ptr_ul[j] = 0;
}
break;
case 84 :
- if ((Block.outptr[i] = (long *) \
- MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(long))) == NULL)
+ if ((Block.outptr[i] = (SCSINT32_COP *) \
+ MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(SCSINT32_COP))) == NULL)
{
for (j = 0; j < Block.nin; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_l = (long *) Block.outptr[i];
+ ptr_l = (SCSINT32_COP *) Block.outptr[i];
for (j = 0; j < Block.outsz[i]*Block.outsz[Block.nout + i]; j++)
{
ptr_l[j] = 0;
}
break;
case 814 :
- if ((Block.outptr[i] = (unsigned long *) \
- MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(unsigned long))) == NULL)
+ if ((Block.outptr[i] = (SCSUINT32_COP *) \
+ MALLOC(Block.outsz[i] * Block.outsz[Block.nout + i] * sizeof(SCSUINT32_COP))) == NULL)
{
for (j = 0; j < Block.nin; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_ul = (unsigned long *) Block.outptr[i];
+ ptr_ul = (SCSUINT32_COP *) Block.outptr[i];
for (j = 0; j < Block.outsz[i]*Block.outsz[Block.nout + i]; j++)
{
ptr_ul[j] = 0;
if (ilh2[3] == 4)
{
Block.oztyp[i] = 84;
- if ((Block.ozptr[i] = (long *) MALLOC(mh2 * nh2 * sizeof(long))) == NULL)
+ if ((Block.ozptr[i] = (SCSINT32_COP *) MALLOC(mh2 * nh2 * sizeof(SCSINT32_COP))) == NULL)
{
for (j = 0; j < Block.nin; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_l = (long *) Block.ozptr[i];
+ ptr_l = (SCSINT32_COP *) Block.ozptr[i];
for (j = 0; j < mh2 * nh2; j++)
{
- ptr_l[j] = *((long *)(&ilh2[4]) + j);
+ ptr_l[j] = *((SCSINT32_COP *)(&ilh2[4]) + j);
}
}
else if (ilh2[3] == 2)
else if (ilh2[3] == 14)
{
Block.oztyp[i] = 814;
- if ((Block.ozptr[i] = (unsigned long *) MALLOC(mh2 * nh2 * sizeof(unsigned long))) == NULL)
+ if ((Block.ozptr[i] = (SCSUINT32_COP *) MALLOC(mh2 * nh2 * sizeof(SCSUINT32_COP))) == NULL)
{
for (j = 0; j < Block.nin; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_ul = (unsigned long *) Block.ozptr[i];
+ ptr_ul = (SCSUINT32_COP *) Block.ozptr[i];
for (j = 0; j < mh2 * nh2; j++)
{
- ptr_ul[j] = *((unsigned long *)(&ilh2[4]) + j);
+ ptr_ul[j] = *((SCSUINT32_COP *)(&ilh2[4]) + j);
}
}
else if (ilh2[3] == 12)
if (ilh2[3] == 4)
{
Block.opartyp[i] = 84;
- if ((Block.oparptr[i] = (long *) MALLOC(mh2 * nh2 * sizeof(long))) == NULL)
+ if ((Block.oparptr[i] = (SCSINT32_COP *) MALLOC(mh2 * nh2 * sizeof(SCSINT32_COP))) == NULL)
{
for (j = 0; j < Block.nin; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_l = (long *) Block.oparptr[i];
+ ptr_l = (SCSINT32_COP *) Block.oparptr[i];
for (j = 0; j < mh2 * nh2; j++)
{
- ptr_l[j] = *((long *)(&ilh2[4]) + j);
+ ptr_l[j] = *((SCSINT32_COP *)(&ilh2[4]) + j);
}
}
else if (ilh2[3] == 2)
else if (ilh2[3] == 14)
{
Block.opartyp[i] = 814;
- if ((Block.oparptr[i] = (unsigned long *) MALLOC(mh2 * nh2 * sizeof(unsigned long))) == NULL)
+ if ((Block.oparptr[i] = (SCSUINT32_COP *) MALLOC(mh2 * nh2 * sizeof(SCSUINT32_COP))) == NULL)
{
for (j = 0; j < Block.nin; j++)
{
Scierror(888, _("%s : Allocation error.\n"), fname);
return 0;
}
- ptr_ul = (unsigned long *) Block.oparptr[i];
+ ptr_ul = (SCSUINT32_COP *) Block.oparptr[i];
for (j = 0; j < mh2 * nh2; j++)
{
- ptr_ul[j] = *((unsigned long *)(&ilh2[4]) + j);
+ ptr_ul[j] = *((SCSUINT32_COP *)(&ilh2[4]) + j);
}
}
else if (ilh2[3] == 12)