campo-sirio/gfm/sgmn.c
luca 3d88151f4d Patch level :2.1 nopatch
Files correlati     :gfm.dll
Ricompilazione Demo : [ ]
Commento            :riportate sulla 2.1 le correzioni sulla gfm.dll della 2.0


git-svn-id: svn://10.65.10.50/trunk@11815 c028cbd2-c16b-5b4b-a496-9718f37d4682
2004-03-09 09:49:17 +00:00

53 lines
995 B
C
Executable File

/* int _SubUnsArrFromUnsArr(src1,src2,dst,n)
*
* ARGUMENT
* unsigned *src1, *src2, *dst;
* unsigned n;
*
* DESCRIPTION
* Subtracts src2 from src2 giving dst. src1 and src2 are unchanged.
* src1, src2 and dst point to unsigned arrays.
*
* SIDE EFFECTS
*
*
* RETURNS
* GM_SUCCESS if no overflow, otherwise GM_FAILURE.
*
* AUTHOR
* Brugnoli Giugno 1992
*
* MODIFICATIONS
*
*/
#include <stdio.h>
#include <math.h>
#include "gm.h"
#include "gmsystem.h"
int _SubUnsArrFromUnsArr(src1, src2, dst, n)
unsigned SHORT src1[], src2[], dst[];
int n;
{
int i;
unsigned long psrc;
unsigned SHORT carry = 0;
if (n>0)
{
for (i=0;i<n;i++)
{
psrc= (long)src1[i] - (long)carry;
carry = src2[i] > src1[i] ? 1 : 0;
if (carry)
psrc += MAXUNSINT+0x1L;
dst[i]=(unsigned SHORT)(psrc-(unsigned long)src2[i]);
}
if (carry)
return(GM_FAILURE);
}
return(GM_SUCCESS);
}