Changeset 636c28 in git for dyn_modules/bigintm/mod_main.cc

Timestamp:

Mar 24, 2011, 6:36:10 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

de4e64a426712523b3ba44188f1f75f4bb4aad7d

Parents:

e5a4ba6cad9681dda18e8cc54544efb5003d053b

Message:

ADD: "scons debug=1" for debug version
UPD: updated bigintm to support correct (debug/release) version
FIX: some minor warnings (thanks to debug version)

From: Oleksandr Motsak <motsak@mathematik.uni-kl.de>

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

File:

• dyn_modules/bigintm/mod_main.cc (modified) (4 diffs)

dyn_modules/bigintm/mod_main.cc

@@ -26 +26 @@
 
 /// listing all blackbox types (debug stuff)
-static BOOLEAN printBlackboxTypes0(leftv __res, leftv __v)
+static BOOLEAN printBlackboxTypes0(leftv __res, leftv /*__v*/)
 {
   NoReturn(__res);
@@ -34 +34 @@
 
 /// init the bigintm (a sample blackbox) type
-static BOOLEAN bigintm_setup0(leftv __res, leftv __v)
+static BOOLEAN bigintm_setup0(leftv __res, leftv /*__v*/)
 {
   NoReturn(__res);
@@ -40 +40 @@
 }
 
-static long int load_counter = -1;
-
-/// init the bigintm (a sample blackbox) type
-static BOOLEAN print_load_counter(leftv __res, leftv __v)
-{
-  Print("print_load_counter: load counter: %ld", load_counter);
-  Print(", printBlackboxTypes: %p", (void*)(printBlackboxTypes0));
-  Print(", bigintm_setup: %p", (void*)(bigintm_setup0));
-  PrintLn();
-
-  NoReturn(__res);
-  return FALSE;
 }
-
-};
 
 
@@ -61 +47 @@
   int mod_init(SModulFunctions* psModulFunctions) 
   {
-    load_counter++;
-    
-    if( !load_counter)
-    {
-      
-      psModulFunctions->iiAddCproc(currPack->libname,(char*)"printBlackboxTypes",FALSE, printBlackboxTypes0);
-      psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_setup",FALSE, bigintm_setup0);
-      psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_print_load_counter",FALSE, print_load_counter);
+    psModulFunctions->iiAddCproc(currPack->libname,(char*)"printBlackboxTypes",FALSE, printBlackboxTypes0);
+    psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_setup",FALSE, bigintm_setup0);
 
-      // Q: should we call 'bigintm_setup' here??!?!?
-      return 0;
-    }
-    else
-    {
-      PrintS("ERROR: Sorry this dynamic module was already loaded...!!!");
-      PrintLn();
-      // Q: what about loading this module multipple times...?
-      return 0; // -1? - No difference!!!
-
-    }
-      
+    // Q: should we call 'bigintm_setup' here??!?!?
+    return 0;
   }
 }