Changeset c599b4 in git
- Timestamp:
- Nov 11, 2010, 2:40:17 PM (13 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- e0cd1d27719ec0dc7eb0f1b11bcd0a5b5857b3a1
- Parents:
- 018dec2431a0bdd78906e180ed10c7a726c3640f
- Location:
- Singular
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/extra.cc
r018dec rc599b4 2525 2525 else 2526 2526 #endif 2527 #if 0 /* debug only */ 2527 2528 /*==================== listall ===================================*/ 2528 2529 if(strcmp(sys_cmd,"listall")==0) … … 2534 2535 } 2535 2536 else 2537 #endif 2538 #if 0 /* debug only */ 2536 2539 /*==================== proclist =================================*/ 2537 2540 if(strcmp(sys_cmd,"proclist")==0) … … 2541 2544 } 2542 2545 else 2546 #endif 2543 2547 /* ==================== newton ================================*/ 2544 2548 #ifdef HAVE_NEWTON -
Singular/iplib.cc
r018dec rc599b4 1096 1096 1097 1097 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/ 1098 #if 0 /* debug only */ 1098 1099 void piShowProcList() 1099 1100 { … … 1129 1130 } 1130 1131 } 1132 #endif 1131 1133 1132 1134 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/ -
Singular/misc_ip.cc
r018dec rc599b4 80 80 q=(*n)/d; r=(*n)%d; 81 81 } 82 }83 84 /* returns an object of type lists which contains the entries85 theInts[0..(length-1)] as INT_CMDs */86 lists makeListsObject(const int* theInts, int length)87 {88 lists L=(lists)omAllocBin(slists_bin);89 L->Init(length);90 for (int i = 0; i < length; i++)91 { L->m[i].rtyp = INT_CMD; L->m[i].data = (void*)theInts[i]; }92 return L;93 82 } 94 83 … … 924 913 #endif 925 914 915 #if 0 926 916 void listall(int showproc) 927 917 { … … 1007 997 } 1008 998 #endif 999 #endif 1009 1000 1010 1001 #include <sys/types.h>
Note: See TracChangeset
for help on using the changeset viewer.