Changeset a3f0fea in git for Singular/iparith.cc

Timestamp:

Jan 24, 2019, 1:08:04 PM (5 years ago)

Author:

Reimer Behrends <behrends@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

756676ef1fcf4cff300fb1607a6d21293b253245

Parents:

25fe907e3f7e0d124b25f97832c0b71e96c515e2

Message:

Modify variable declarions for pSingular.

File:

• Singular/iparith.cc (modified) (8 diffs)

Singular/iparith.cc

@@ -193 +193 @@
  *
  *---------------------------------------------------------------------*/
-static SArithBase sArithBase;  /**< Base entry for arithmetic */
+STATIC_VAR SArithBase sArithBase;  /**< Base entry for arithmetic */
 
 /*---------------------------------------------------------------------*
@@ -209 +209 @@
 
 /*============= vars ======================*/
-extern int cmdtok;
-extern BOOLEAN expected_parms;
+EXTERN_VAR int cmdtok;
+EXTERN_VAR BOOLEAN expected_parms;
 
 #define ii_div_by_0 "div. by 0"
 
-int iiOp; /* the current operation*/
+VAR int iiOp; /* the current operation*/
 
 /*=================== simple helpers =================*/
@@ -2022 +2022 @@
 {
   WerrorS((char *)u->Data());
-  extern int inerror;
+  EXTERN_VAR int inerror;
   inerror=3;
   return TRUE;
@@ -2085 +2085 @@
   return FALSE;
 }
-extern int singclap_factorize_retry;
+EXTERN_VAR int singclap_factorize_retry;
 static BOOLEAN jjFAC_P2(leftv res, leftv u,leftv dummy)
 {
@@ -3242 +3242 @@
   return FALSE;
 }
-extern int singclap_factorize_retry;
+EXTERN_VAR int singclap_factorize_retry;
 static BOOLEAN jjSQR_FREE2(leftv res, leftv u, leftv dummy)
 {
@@ -3651 +3651 @@
     {
       char name_buffer[100];
-      static int ending=1000000;
+      STATIC_VAR int ending=1000000;
       ending++;
       sprintf(name_buffer, "PYTHON_RING_VAR%d",ending);
@@ -5324 +5324 @@
   return TRUE;
 }
-static int WerrorS_dummy_cnt=0;
+STATIC_VAR int WerrorS_dummy_cnt=0;
 static void WerrorS_dummy(const char *)
 {
@@ -9018 +9018 @@
 
 typedef char si_char_2[2];
-static si_char_2 Tok2Cmdname_buf=" ";
+STATIC_VAR si_char_2 Tok2Cmdname_buf=" ";
 const char * Tok2Cmdname(int tok)
 {