Changeset cfa45e in git for factory/ffops.cc

Timestamp:

Jun 18, 1996, 2:05:42 PM (27 years ago)

Author:

Rüdiger Stobbe <stobbe@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

76cc2d98b06a0707c5c63e25f791b1df23024af0

Parents:

02af91814dd18b74411df95652a7b867df115cd8

Message:

"ff_biginv: changed long's to long long int.
"


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

File:

• factory/ffops.cc (modified) (4 diffs)

factory/ffops.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: ffops.cc,v 1.1 1996-06-18 06:57:00 stobbe Exp $
+// $Id: ffops.cc,v 1.2 1996-06-18 12:05:42 stobbe Exp $
 
 /*
 $Log: not supported by cvs2svn $
+Revision 1.1  1996/06/18 06:57:00  stobbe
+"Now the functionality to handle prime numbers that are bigger than 2^15.
+This results in various changes and some new functions.
+"
+
 Revision 1.0  1996/05/17 10:59:46  stobbe
 Initial revision
@@ -16 +21 @@
 int ff_halfprime = 31991 / 2;
 bool ff_big = false;
-short * ff_invtab = new short [31991];
+short * ff_invtab = new short [32767];
 
 void ff_setprime ( const int p )
@@ -47 +52 @@
 int ff_biginv ( const int a )
 {
-    int u, r0 = a, r1 = ff_prime, q0 = 1, q1 = 0;
+    long long int u, r0 = a, r1 = ff_prime, q0 = 1, q1 = 0;
     while ( ( r0 > 0 ) && ( r1 > 0 ) ) {
         u = r0 / r1;
@@ -59 +64 @@
     }
     if ( r0 == 0 )
-        return -q1;
+        return -(int)q1;
     else
-        return q0;
+        return (int)q0;
 }