OpenXM/src/asir-doc/int-parts/datatype/smallff.texi - view

Return to smallff.texi CVS log

Up to [local] / OpenXM / src / asir-doc / int-parts / datatype

File: [local] / OpenXM / src / asir-doc / int-parts / datatype / smallff.texi (download)

Revision 1.1, Mon Apr 23 05:45:37 2001 UTC (23 years, 2 months ago) by noro
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9

Risa/Asir manual on the internal specifications.

@comment $OpenXM: OpenXM/src/asir-doc/int-parts/datatype/smallff.texi,v 1.1 2001/04/23 05:45:37 noro Exp $
@section $B>.I8?tAGBN(B

@example
struct oMQ @{      $B>.I8?tAGBN$N85(B
    short id;       $B<1JL;R(B (= O_N)
    char nid;       $B?t<1JL;R(B (= N_M)
    char pad;       
    int cont;       $B>.I8?tAGBN$N85(B
@};

typedef struct oMQ *MQ;

extern int current_mod;
@end example
$BI8?t$,(B 2^29 $BL$K~$NAGBN$r8zN($h$/07$&$?$a$N7?$G$"$k(B. $BM-8BBN$N3F85<+BN$O(B
$BB0$9$kBN$K4X$9$k>pJs$r$b$C$F$*$i$:(B, $BBg0hJQ?t(B @code{current_mod} $B$NCM(B
$B$K$h$j1i;;$,9T$o$l$k(B. 

@subsection $B>.I8?tAGBN$N85$N@8@.(B, $BJQ49(B
@example
#include "ca.h"
ptomp(int m,P p,P *pr)
$BM-M}?t78?tB?9`<0(B ($BM-M}?t$r4^$`(B) $B$N3F78?t$r(B, $BI8?t(B @code{m} $B$NAGBN$N85$K(B
$BJQ49$7$?$b$N$r@8@.$9$k(B. 

mptop(P p,P *pr)
$B>.I8?tAGBN78?tB?9`<0(B ($B>.I8?tAGBN$N85$r4^$`(B) $B$N3F78?t$rM-M}?t7?$KJQ49$7$?$b$N(B
$B$r@8@.$9$k(B. 
@end example
@noindent

@subsection $B;MB'(B
@noindent
$B0z?t$O(B 0 $B$^$?$O>.I8?tAGBN$N85$K8B$k(B. $B@8@.$5$l$?;~E@$G$NI8?t$K$+$+$o$i$:(B, 
current_mod $B$rI8?t$H$7$F7W;;$9$k(B. 

@example
#include "ca.h"

addmi(MQ a,MQ b,MQ *rp)
*rp = a + b

submi(MQ a,MQ b,MQ *rp)
*rp = a - b

mulmi(MQ a,MQ b,MQ *rp)
*rp = a * b

divmi(MQ a,MQ b,MQ *rp)
*rp = a / b

pwrmi(MQ a,Q e,MQ *rp)
*rp = a ^ e

int cmpmi(MQ a,MQ b)
cont $B$NCM$r<+A3?t$H$7$FHf3S(B
@end example