Changeset cbc84b in git


Ignore:
Timestamp:
Mar 15, 1999, 2:58:30 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
Children:
cbf36f5fd5b1bb3224d54ba7728bcc9b8550e1a8
Parents:
2e467b8c085c6337853964f2f6f4231010debdc8
Message:
*hannes: fixed coef bug in gcd


git-svn-id: file:///usr/local/Singular/svn/trunk@2920 2c84dea3-7e68-4137-9b89-c4e89433aadc
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/clapsing.cc

    r2e467b rcbc84b  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 // $Id: clapsing.cc,v 1.46 1999-03-08 14:10:22 Singular Exp $
     5// $Id: clapsing.cc,v 1.47 1999-03-15 13:58:30 Singular Exp $
    66/*
    77* ABSTRACT: interface between Singular and factory
     
    202202  if (f!=NULL) pCleardenom(f);
    203203  if (g!=NULL) pCleardenom(g);
    204 
     204  else         return pCopy(f); // g==0 => gcd=f (but do a pCleardenom)
     205  if (f==NULL) return pCopy(g); // f==0 => gcd=g (but do a pCleardenom)
     206 
    205207  // for now there is only the possibility to handle polynomials over
    206208  // Q and Fp ...
     
    257259  pDelete(&f);
    258260  pDelete(&g);
     261  pTest(res);
    259262  return res;
    260263}
  • Tst/Short/gcdp_s.res.gz.uu

    r2e467b rcbc84b  
    11begin 640 gcdp_s.res.gz
    2 M'XL("*:!)#8``V=C9'!?<RYR97,`W5I;;QNY%7[WKR",`"N--#(/R>$E@0UL
     2M'XL(",D1[38``V=C9'!?<RYR97,`W5I;;QNY%7[WKR",`"N--#(/R>$E@0UL
    33MFT41H"T6R+:/V4QTL0:6)4,:.]H6_>\]O`R'HY%LQ<E#422Q>3D\/#=^_$3E
    44MXV_O/_R=$`(WY.J*O/DP>TMNI[.'WW>3>E>/GPA,!`%C]!555Q0(T+<,_Q9D
     
    4141M.&U88<K<V&J_L(LM,D'I11&XL<W<7&.22.HVY6$`71[&&RY3#SN?IP%49U7+
    4242ML;`ZCG*L0TW/<*R>:*.:18YU6B2Y;NSS2B!-@W-NQ#9EC!_2)F!)R/P3S`NT
    43 MB0QVJ^IV6:.6^\VL6E3SV3`JZ']<]50*HH0Z2J6RNL,1T)>7R102_M9T^T1S
    44 M2*:NK%*/;,+=;Q;B+/0Y]G.2^"!E^:%$"A$GL9,?(5)7]2&5`MZ_R_M4"GAR
    45 M,7-Y'I4"KKZ52@'7YU$I?OS6>H%*B>2V$>XAD7R=D]L-V:S]8VQ39Y%/D'5Y
    46 MWSITXJ4KGJ5R/!W/AV.T9CF^&YYY1ON+XG9XB.ZJU0J%VS'1.\'/*$BR)F1S
    47 MEG_%GZV(:@YJ=U@G*Q&/W*)KCXK9%&%[@?_N,']A))MG"^SST11G>+;,[O*Y
    48 MDUE:J187W-.8US5%.;MJB1G"]59GMNS('IX.NV[LEZ/4`O\TDDG=%SQ:._TD
    49 MG(U%9O=:6%OPM%CKY]ZNT'-V?F+>#F]%=I?8(:+-N5=DEWHUUF76*D&W6:/D
    50 MP/'#3RQ=9Y*C5LC$&16=R;4/O0BAEJ,X$"+^231#W(7SSI*6.!"S48R:+*(K
    51 MN-IY:TEBS&W(A=TD3T;]/DY:)([I&)U&5H7XXCDOC-$X(MNX8IP5CA2-1:CS
    52 M+M?>L5`#/.9&Q%W1M^`8#Q*6Y$9?O2IAXQ\R[#,>*@!DZYA38(/@JHZ'I44G
    53 MXX?H<E!YR\`/IL/L[J`7-,@$:63ZE05(UN$'(KQO#^KQ?ICR`\D[J\3AEU\[
    54 M_\765I!R.\>K<[,+7W5M^8DOED#Z6W>Z+->WB''UQML0OT)K]Y:=O57+3:0^
    55 MBH"'7CR#>SW1J-K<O"22O`B"?1%\'3>Q+WX'W$3Q1+'X3FYBW^6>?>8!)4]S
    56 MD_JBCF+J#&ZB$J16YL<\XH/NOU2\ZA$?=,(F-3O"2+(^(]%]NG^$D>B$3NKB
    57 M3$9BG^N^D9%H=1XC.7RZJ[.&DS#%*`;%^B"[#_F@$V)IZ+<3$ONR]]QQ=-1@
    58 M?`X=.;DD;L4:,B+:,=X[LB>7)^DRQ5$J8N11*F)4LE+_."KB7NW.HR*L]W)W
    59 MBHJPY+6.N=>Z'TE%F'O`^TXJPGJO=UUG<C:]F$;9(G%'_J^3$4;5_QT9850_
    60 ISQSE=+',]93=76##!\YVFM4F_4\@`QB^>W,!1_YGR'\!_QU`3Y(D````
     43MB0QVJ^IV6:.6^\VL6E3SV3`JZ']<[5(I8.HHE<KJ#D=`7UXF4TCX6]/M$\TA
     44MF;JR2CVR"7>_68BST.?8STGB@Y3EAQ(I1)S$3GZ$2%W5AU0*>/\N[U,IX,G%
     45MS.5Y5`JX^E8J!5R?1Z7X\5OK!2HEDMM&N(=$\G5.;C=DL_:/L4V=13Y!UN5]
     46MZ]")EZYXELKQ=#P?CM&:Y?AN>.89[2^*V^$ANJM6*Q1NQT3O!#^C(,F:D,U9
     47M_A5_MB*J.:C=89VL1#QRBZX]*F93A.T%_KO#_(61;)XML,]'4YSAV3*[R^=.
     48M9FFE6EQP3V->UQ3E[*HE9@C76YW9LB-[>#KLNK%?CE(+_--()G5?\&CM])-P
     49M-A:9W6MA;<'38JV?>[M"S]GYB7D[O!7976*'B#;G7I%=ZM58EUFK!-UFC9(#
     50MQP\_L72=28Y:(1-G5'0FUS[T(H1:CN)`B/@GT0QQ%\X[2UKB0,Q&,6JRB*[@
     51M:N>M)8DQMR$7=I,\&?7[.&F1.*9C=!I9%>*+Y[PP1N.(;..*<58X4C06H<Z[
     52M7'O'0@WPF!L1=T7?@F,\2%B2&WWUJH2-?\BPSWBH`)"M8TZ!#8*K.AZ6%IV,
     53M'Z++0>4M`S^8#K.[@U[0(!.DD>E7%B!9AQ^(\+X]J,?[8<H/).^L$H=??NW\
     54M%UM;0<KM'*_.S2Y\U;7E)[Y8`NEOW>FR7-\BQM4;;T/\"JW=6W;V5BTWD?HH
     55M`AYZ\0SN]42C:G/SDDCR(@CV1?!UW,2^^!UP$\43Q>([N8E]EWN>FRAYFIO4
     56M%W444V=P$Y4@M3(_YA$?=/^EXE6/^*`3-JG9$4:2]1F)[M/](XQ$)W12%V<R
     57M$OM<]XV,1*OS&,GATUV=-9R$*48Q*-8'V7W(!YT02T._G9#8E[WGCJ.C!N-S
     58MZ,C))7$KUI`1T8[QWI$]N3Q)ERF.4A$CCU(1HY*5^L=1$?=J=QX58;V7NU-4
     59MA"6O=<R]UOU(*L+<`]YW4A'6>[WK.I.SZ<4TRA:)._)_G8PPJO[OR`BC^GGF
     60G**>+9:ZG[.X"&SYPMM.L-NE_`AG`\-V;"SCR/T/^"]50DL^2)```
    6161`
    6262end
Note: See TracChangeset for help on using the changeset viewer.