Changeset e6969d in git for Singular/mpsr_GetPoly.cc

Timestamp:

Mar 26, 1997, 3:58:06 PM (27 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

bc428ca07201e22a987b0ca4d72389c736477dc8

Parents:

20d92caa4109d20c8c2efc03cef380a023380d3b

Message:

Wed Mar 26 14:02:15 1997  Olaf Bachmann
<obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>

	* added reference counter to links, updated slKill, slCopy, slInit
	* various small bug fixes for Batch mode


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

File:

• Singular/mpsr_GetPoly.cc (modified) (4 diffs)

Singular/mpsr_GetPoly.cc

@@ -1 @@
-/****************************************
-*  Computer Algebra System SINGULAR     *
-****************************************/
-
 /***************************************************************
  *
@@ -27 +23 @@
 #include "grammar.h"
 #include "febase.h"
-
+#include "modulop.h"
 
 #include "mpsr_Tok.h"
@@ -140 +136 @@
   
   // still need to set the global ring
-  mpsr_SetCurrRing(r, FALSE);
+  mpsr_SetCurrRing(r, TRUE);
 }
 
@@ -154 +150 @@
 static mpsr_Status_t GetModuloNumber(MP_Link_pt link, number *a)
 {
-  mp_return(IMP_GetUint32(link, (MP_Uint32_t *) a));
+  MP_Uint32_t x;
+  mp_failr(IMP_GetUint32(link, &x));
+  *a=npInit((int)x);
+  return mpsr_Success;
 }