From 4b69f6d62f56d3eb6cd9aac69539293dddfbdd95 Mon Sep 17 00:00:00 2001 From: Pixel <> Date: Mon, 16 Apr 2001 15:28:40 +0000 Subject: Prout --- lib/alu-ralph.c | 578 -------------------------------------------------------- 1 file changed, 578 deletions(-) delete mode 100644 lib/alu-ralph.c (limited to 'lib/alu-ralph.c') diff --git a/lib/alu-ralph.c b/lib/alu-ralph.c deleted file mode 100644 index 87c4bc2..0000000 --- a/lib/alu-ralph.c +++ /dev/null @@ -1,578 +0,0 @@ -#include -#include -#include "alu.h" -int errRet = 0; - - - /*On compte de 0 à 31 */ - - /*Return la valeur du ieme bit en position 0 */ -Uint32 ValeurIbitsAuDeb(Uint32 nb, int i) -{ - Uint32 val, un = 1; - - if ((i > 31) || (i < 0)) { - fprintf(stderr, "erreur, ValeurIbitsAuDeb: la position demande n est pas dans l'intervalle"); - return (0); - } - val = nb >> i; - val = val & un; - return (val); -} - - - /*Return la valeur du ieme bit en sa position d origine */ -/* -Uint32 ValeurIbit(Uint32 nb, int i) { - Uint32 val = 0, un = 1; - - if ((i > 31) || (i < 0)) { - fprintf(stderr, "erreur, ValeurIbit: la position demande n est pas dans l'intervalle"); - return (0); - } - val = un << i; - val = AndBit(un, nb); - return (val); -} -*/ - - /*Met a vrai le ieme bit */ -Uint32 MettreAVIbit(Uint32 nb, int i) -{ - Uint32 val = 1; - - return (OrBit(nb, (val << i))); -} - - - /* Met a Vrai le Uint32 */ -Uint32 MetAVUint32(void) -{ - int i; - - Uint32 val = 0, un = 1; - - for (i = 0; i <= 31; i++) { - val = (val | un); - un <<= 1; - } - return (val); -} - - - /* Met a Faux le Uint32 */ -Uint32 MetAFUint32(void) -{ - return (0); -} - - - /* Inverse la valeur du i eme bit */ -Uint32 InverseIbit(Uint32 nb, int i) -{ - Uint32 un = 1; - - if ((i > 31) || (i < 0)) { - fprintf(stderr, "erreur, InverseIbit: la position demande n est pas dans l'intervalle"); - return (0); - } - un = (un << i); - return (nb ^ un); -} - - - /* Inverse le Uint32 */ -Uint32 InverseUint32(Uint32 x) -{ - int i; - - Uint32 val = x; - - for (i = 0; i <= 31; i++) { - val = InverseIbit(val, i); - } - return (val); -} - -Uint32 AndBit(Uint32 x, Uint32 y) -{ - Uint32 m = 1, z = 0; - int i; - - for (i = 0; i < 32; i++) { - z |= (x & m) & (y & m); - m <<= 1; - } - return (z); -} - -Uint32 OrBit(Uint32 x, Uint32 y) -{ - Uint32 m = 1, z = 0; - int i; - - for (i = 0; i < 32; i++) { - z |= (x & m) | (y & m); - m <<= 1; - } - return (z); -} - -Uint32 ShlUint32(Uint32 x, int i) -{ - return (x << i); -} - -Uint32 ShrUint32(Uint32 x, int i) -{ - return (x >> i); -} - -Uint32 AddNonSigUint32(Uint32 x, Uint32 y) -{ - int i; - - Uint32 a, b, tp, add = 0, ret = 0; - - if (x == 0) - return (y); - if (y == 0) - return (x); - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(x, i); - b = ValeurIbitsAuDeb(y, i); - tp = a + b + ret; - if (tp == 3) { - ret = 1; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - if (tp == 2) { - ret = 1; - tp = 0; - tp <<= i; - add |= tp; - } - - else { - if (tp == 1) { - ret = 0; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - ret = 0; - } - } - } - if (i == 31) { - if (ret == 1) { - fprintf(stderr, "Erreur AddNonSig: erreur de depassement.\n"); - errRet = 1; - } - } - } - return (add); -} - -Uint32 AddSigUint32(Uint32 x, Uint32 y) -{ - int i; - - Uint32 a, b, tp, add = 0, ret = 0; - - if (x == 0) - return (y); - if (y == 0) - return (x); - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(x, i); - b = ValeurIbitsAuDeb(y, i); - tp = a + b + ret; - if (tp == 3) { - ret = 1; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - if (tp == 2) { - ret = 1; - tp = 0; - tp <<= i; - add |= tp; - } - - else { - if (tp == 1) { - ret = 0; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - ret = 0; - } - } - } - if (i == 30) { - if (ret == 1) { - fprintf(stderr, "Erreur AddNonSig: erreur de depassement.\n"); - errRet = 1; - } - } - } - return (add); -} - -Uint32 SousNonSigUint32(Uint32 x, Uint32 y) -{ /* x - y */ - int i; - - Uint32 a, b, tp, sou = 0, ret = 0; - - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(x, i); - b = ValeurIbitsAuDeb(y, i); - if (((a == 0) && (b == 0) && (ret == 0)) || - ((a == 1) && (b == 1) && (ret == 0)) || ((a == 1) && (b == 0) && (ret == 1))) { - ret = 0; - tp = 0; - tp <<= i; - sou |= tp; - } - - else { - if (((a == 0) && (b == 0) && (ret == 1)) || - ((a == 0) && (b == 1) && (ret == 0)) || ((a == 1) && (b == 1) && (ret == 1))) { - ret = 1; - tp = 1; - tp <<= i; - sou |= tp; - } - - else { - if ((a == 1) && (b == 0) && (ret == 0) || 0) { - ret = 0; - tp = 1; - tp <<= i; - sou |= tp; - } - - else { - ret = 1; - tp = 0; - tp <<= i; - sou |= tp; - } - } - } - if (i == 31) { - if (ret == 1) { - fprintf(stdout, "Erreur SousNonSig: erreur de depassement.\n"); - errRet = 1; - } - } - } - return (sou); -} - -Uint32 SousSigUint32(Uint32 x, Uint32 y) -{ /* x - y */ - int i; - - Uint32 a, b, tp, sou = 0, ret = 0; - - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(x, i); - b = ValeurIbitsAuDeb(y, i); - if (((a == 0) && (b == 0) && (ret == 0)) || - ((a == 1) && (b == 1) && (ret == 0)) || ((a == 1) && (b == 0) && (ret == 1))) { - ret = 0; - tp = 0; - tp <<= i; - sou |= tp; - } - - else { - if (((a == 0) && (b == 0) && (ret == 1)) || - ((a == 0) && (b == 1) && (ret == 0)) || ((a == 1) && (b == 1) && (ret == 1))) { - ret = 1; - tp = 1; - tp <<= i; - sou |= tp; - } - - else { - if ((a == 1) && (b == 0) && (ret == 0) || 0) { - ret = 0; - tp = 1; - tp <<= i; - sou |= tp; - } - - else { - ret = 1; - tp = 0; - tp <<= i; - sou |= tp; - } - } - } - if (i == 30) { - if (ret == 1) { - fprintf(stdout, "Erreur SousNonSig: erreur de depassement.\n"); - errRet = 1; - } - } - } - return (sou); -} - -couple Addition(Uint32 x, Uint32 y) -{ /* Renvoye le resultat + eventuellement une retenue */ - int i; - - couple z; - Uint32 a, b, tp, add = 0, ret = 0; - - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(x, i); - b = ValeurIbitsAuDeb(y, i); - tp = a + b + ret; - if (tp == 3) { - ret = 1; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - if (tp == 2) { - ret = 1; - tp = 0; - tp <<= i; - add |= tp; - } - - else { - if (tp == 1) { - ret = 0; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - ret = 0; - } - } - } - if (i == 31) { - if (ret == 1) { - z.deb = add; - z.fin = 1; - return (z); - } - } - } - z.deb = add; - z.fin = 0; - return (z); -} - -couple Add30Mul(Uint32 x, Uint32 y) -{ - int i; - - couple z; - Uint32 a, b, tp, add = 0, ret = 0; - - for (i = 0; i < 31; i++) { - a = ValeurIbitsAuDeb(x, i); - b = ValeurIbitsAuDeb(y, i); - tp = a + b + ret; - if (tp == 3) { - ret = 1; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - if (tp == 2) { - ret = 1; - tp = 0; - tp <<= i; - add |= tp; - } - - else { - if (tp == 1) { - ret = 0; - tp = 1; - tp <<= i; - add |= tp; - } - - else { - ret = 0; - } - } - } - if (i == 30) { - if (ret == 1) { - z.deb = add; - z.fin = 1; - return (z); - } - } - } - z.deb = add; - z.fin = 0; - return (z); -} - -Uint32 MultChifNomb(Uint32 x, Uint32 y) -{ - int i; - - Uint32 mul = 0, a, un = 1; - - if (y == 0) - return (0); - if (x == 0) - return (0); - if (y == 1) - return (x); - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(x, i); - if (a == 1) { - un <<= i; - mul |= un; - } - } - return (mul); -} - -couple MultipliNonSig(Uint32 x, Uint32 y) -{ - couple z, w; - int i; - - Uint32 tp, dec, add, a, pa1 = 0, pa2 = 0; - - for (i = 0; i < 32; i++) { - a = ValeurIbitsAuDeb(y, i); - tp = MultChifNomb(x, a); - fprintf(stdout, "tp = %Lu\n", tp); - dec = (tp >> (32 - i)); - fprintf(stdout, "dec = %Lu\n", dec); - pa2 = AddNonSigUint32(pa2, dec); - fprintf(stdout, "pa2 = %Lu\n", pa2); - add = tp << i; - z = Addition(pa1, add); - pa1 = z.deb; - if (z.fin == 1) { - w = Addition(pa2, 1); - pa2 = w.deb; - } - } - z.deb = pa1; - z.fin = pa2; - - printf("\n"); - return (z); -} - -couple MultipliSig(Uint32 x, Uint32 y) -{ - couple z, w; - int i; - - Uint32 tp, dec, add, a, b, pa1 = 0, pa2 = 0, x1 = x, y1 = y; - - a = ValeurIbitsAuDeb(x, 31); - b = ValeurIbitsAuDeb(y, 31); - if (((a == 0) && (b == 0)) || ((a == 1) && (b == 1))) { /* Le resultat sera pos */ - if ((a == 1) && (b == 1)) { - x1 = InverseIbit(x, 31); - y1 = InverseIbit(y, 31); - } - for (i = 0; i < 31; i++) { - a = ValeurIbitsAuDeb(y1, i); - tp = MultChifNomb(x1, a); - dec = tp >> (31 - i); - w = Addition(pa2, dec); - pa2 = w.deb; - add = tp << i; - z = Add30Mul(pa1, add); - pa1 = z.deb; - if (z.fin == 1) { - w = Addition(pa2, 1); - pa2 = w.deb; - } - } - z.deb = pa1; - z.fin = pa2; - return (z); - } - if (a == 1) - x1 = InverseIbit(x, 31); - if (b == 1) - y1 = InverseIbit(y, 31); - for (i = 0; i < 31; i++) { - a = ValeurIbitsAuDeb(y1, i); - tp = MultChifNomb(x1, a); - dec = tp >> (31 - i); - pa2 = AddNonSigUint32(pa2, dec); - add = tp << i; - z = Add30Mul(pa1, add); - pa1 = z.deb; - if (z.fin == 1) { - pa2 = AddNonSigUint32(pa2, 1); - } - } - pa1 = MettreAVIbit(pa1, 31); - pa2 = MettreAVIbit(pa2, 31); - z.deb = pa1; - z.fin = pa2; - return (z); -} - -Uint32 AndEnt(Uint32 x, Uint32 y) -{ - return (x & y); -} - -Uint32 OrEnt(Uint32 x, Uint32 y) -{ - return (x | y); -} - -Uint32 AddEnt(Uint32 x, Uint32 y) -{ - return (x + y); -} - -Uint32 SousEnt(Uint32 x, Uint32 y) -{ - return (x - y); -} - -Uint32 DivEnt(Uint32 x, Uint32 y) -{ - return (x / y); -} - -Uint32 RestDivEnt(Uint32 x, Uint32 y) -{ - return (x % y); -} -- cgit v1.2.3