Changeset b372b8b in git
- Timestamp:
- Jan 25, 2010, 11:59:41 AM (14 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- e6ae1d623306d16e52fbf4dbd52b4addc5556978
- Parents:
- c4ebdd3110559ab3c57068d479913f9ca58655a4
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/tesths.cc
rc4ebdd rb372b8b 81 81 om_Opts.Keep = OM_SING_KEEP; 82 82 #endif 83 #ifdef LIBSINGULAR84 // interpreter init for libsingular85 iiInitArithmetic();86 87 basePack=(package)omAlloc0(sizeof(*basePack));88 currPack=basePack;89 idhdl h;90 h=enterid("Top", 0, PACKAGE_CMD, &IDROOT, TRUE);91 IDPACKAGE(h)->language = LANG_TOP;92 IDPACKAGE(h)=basePack;93 currPackHdl=h;94 basePackHdl=h;95 96 slStandardInit();97 myynest=0;98 if (! feOptValue(FE_OPT_NO_STDLIB))99 {100 int vv=verbose;101 verbose &= ~Sy_bit(V_LOAD_LIB);102 iiLibCmd(omStrDup("standard.lib"), TRUE,TRUE,TRUE);103 verbose=vv;104 }105 errorreported = 0;106 #endif107 83 } 108 84 mmIsInitialized=1; … … 115 91 // hack such that all shared' libs in the bindir are loaded correctly 116 92 feInitResources(name); 93 iiInitArithmetic(); 94 95 basePack=(package)omAlloc0(sizeof(*basePack)); 96 currPack=basePack; 97 idhdl h; 98 h=enterid("Top", 0, PACKAGE_CMD, &IDROOT, TRUE); 99 IDPACKAGE(h)->language = LANG_TOP; 100 IDPACKAGE(h)=basePack; 101 currPackHdl=h; 102 basePackHdl=h; 103 104 slStandardInit(); 105 myynest=0; 106 if (! feOptValue(FE_OPT_NO_STDLIB)) 107 { 108 int vv=verbose; 109 verbose &= ~Sy_bit(V_LOAD_LIB); 110 iiLibCmd(omStrDup("standard.lib"), TRUE,TRUE,TRUE); 111 verbose=vv; 112 } 113 errorreported = 0; 117 114 } 118 115 #endif
Note: See TracChangeset
for help on using the changeset viewer.