Changeset f92fa13 in git for Singular/polys-comp.h
- Timestamp:
- Mar 16, 1998, 3:56:48 PM (26 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 5c8eae0ee4adf297d4ee70c4eb367499625899d8
- Parents:
- 057fd3b14dfe97c1070a5e6e9ea465fb317ae57f
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/polys-comp.h
r057fd3 rf92fa13 4 4 * Computer Algebra System SINGULAR * 5 5 ****************************************/ 6 /* $Id: polys-comp.h,v 1. 4 1998-01-17 17:49:24obachman Exp $ */6 /* $Id: polys-comp.h,v 1.5 1998-03-16 14:56:38 obachman Exp $ */ 7 7 8 8 /*************************************************************** … … 21 21 #ifdef WORDS_BIGENDIAN 22 22 #ifndef COMP_NO_EXP_VECTOR_OPS 23 #define _pMonC mp_1(p1, p2, d, actionD, actionE) \23 #define _pMonComp_otEXP_nwONE(p1, p2, d, actionD, actionE) \ 24 24 do \ 25 25 { \ … … 30 30 while(0) 31 31 32 #define _pMonC mp_1_c(p1, p2, d, actionD, actionE) \32 #define _pMonComp_otEXPCOMP_nwONE(p1, p2, d, actionD, actionE) \ 33 33 do \ 34 34 { \ … … 44 44 while(0) 45 45 46 #define _pMonC mp_2(p1, p2, d, actionD, actionE) \46 #define _pMonComp_otEXP_nwTWO(p1, p2, d, actionD, actionE) \ 47 47 do \ 48 48 { \ … … 57 57 while(0) 58 58 59 #define _pMonC mp_2_c(p1, p2, d, actionD, actionE) \59 #define _pMonComp_otEXPCOMP_nwTWO(p1, p2, d, actionD, actionE) \ 60 60 do \ 61 61 { \ … … 75 75 while(0) 76 76 77 #define _pMonC mp_2i(p1, p2, length, d, actionD, actionE) \77 #define _pMonComp_otEXP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 78 78 do \ 79 79 { \ … … 97 97 while(0) 98 98 99 #define _pMonC mp_2i_1(p1, p2, length, d, actionD, actionE) \99 #define _pMonComp_otEXP_nwODD(p1, p2, length, d, actionD, actionE) \ 100 100 do \ 101 101 { \ … … 119 119 while(0) 120 120 121 #define _pMonC mp_2i_c(p1, p2, length, d, actionD, actionE) \121 #define _pMonComp_otEXPCOMP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 122 122 do \ 123 123 { \ … … 150 150 while(0) 151 151 152 #define _pMonC mp_2i_1_c(p1, p2, length, d, actionD, actionE) \152 #define _pMonComp_otEXPCOMP_nwODD(p1, p2, length, d, actionD, actionE) \ 153 153 do \ 154 154 { \ … … 206 206 while(0) 207 207 208 #define _pMonC mp_c(p1, p2, d, actionD, actionE) \208 #define _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) \ 209 209 do \ 210 210 { \ … … 229 229 while(0) 230 230 231 #define _pMonC mp_1(p1, p2, d, actionD, actionE) \232 _pMonCmp(p1, p2, d, actionD, actionE) 233 234 #define _pMonC mp_1_c(p1, p2, d, actionD, actionE) \235 _pMonC mp_c(p1, p2, d, actionD, actionE)236 237 #define _pMonC mp_2(p1, p2, d, actionD, actionE) \238 _pMonCmp(p1, p2, d, actionD, actionE) 239 240 #define _pMonC mp_2_c(p1, p2, d, actionD, actionE) \241 _pMonC mp_c(p1, p2, d, actionD, actionE)242 243 #define _pMonC mp_2i(p1, p2, length, d, actionD, actionE) \244 _pMonCmp(p1, p2, d, actionD, actionE) 245 246 #define _pMonC mp_2i_1(p1, p2, length, d, actionD, actionE) \247 _pMonCmp(p1, p2, d, actionD, actionE) 248 249 #define _pMonC mp_2i_c(p1, p2, length, d, actionD, actionE) \250 _pMonC mp_c(p1, p2, d, actionD, actionE)251 252 #define _pMonC mp_2i_1_c(p1, p2, length, d, actionD, actionE) \253 _pMonC mp_c(p1, p2, d, actionD, actionE)231 #define _pMonComp_otEXP_nwONE(p1, p2, d, actionD, actionE) \ 232 _pMonCmp(p1, p2, d, actionD, actionE) 233 234 #define _pMonComp_otEXPCOMP_nwONE(p1, p2, d, actionD, actionE) \ 235 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 236 237 #define _pMonComp_otEXP_nwTWO(p1, p2, d, actionD, actionE) \ 238 _pMonCmp(p1, p2, d, actionD, actionE) 239 240 #define _pMonComp_otEXPCOMP_nwTWO(p1, p2, d, actionD, actionE) \ 241 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 242 243 #define _pMonComp_otEXP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 244 _pMonCmp(p1, p2, d, actionD, actionE) 245 246 #define _pMonComp_otEXP_nwODD(p1, p2, length, d, actionD, actionE) \ 247 _pMonCmp(p1, p2, d, actionD, actionE) 248 249 #define _pMonComp_otEXPCOMP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 250 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 251 252 #define _pMonComp_otEXPCOMP_nwODD(p1, p2, length, d, actionD, actionE) \ 253 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 254 254 255 255 #endif // COMP_NO_EXP_VECTOR_OPS … … 258 258 259 259 #ifndef COMP_NO_EXP_VECTOR_OPS 260 #define _pMonC mp_1(p1, p2, d, actionD, actionE) \260 #define _pMonComp_otEXP_nwONE(p1, p2, d, actionD, actionE) \ 261 261 do \ 262 262 { \ … … 267 267 while(0) 268 268 269 #define _pMonC mp_1_c(p1, p2, d, actionD, actionE) \269 #define _pMonComp_otEXPCOMP_nwONE(p1, p2, d, actionD, actionE) \ 270 270 do \ 271 271 { \ … … 281 281 while(0) 282 282 283 #define _pMonC mp_2(p1, p2, d, actionD, actionE) \283 #define _pMonComp_otEXP_nwTWO(p1, p2, d, actionD, actionE) \ 284 284 do \ 285 285 { \ … … 294 294 while(0) 295 295 296 #define _pMonC mp_2_c(p1, p2, d, actionD, actionE) \296 #define _pMonComp_otEXPCOMP_nwTWO(p1, p2, d, actionD, actionE) \ 297 297 do \ 298 298 { \ … … 314 314 while(0) 315 315 316 #define _pMonC mp_2i(p1, p2, length, d, actionD, actionE) \316 #define _pMonComp_otEXP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 317 317 do \ 318 318 { \ … … 335 335 while(0) 336 336 337 #define _pMonC mp_2i_1(p1, p2, length, d, actionD, actionE) \337 #define _pMonComp_otEXP_nwODD(p1, p2, length, d, actionD, actionE) \ 338 338 do \ 339 339 { \ … … 357 357 while(0) 358 358 359 #define _pMonC mp_2i_c(p1, p2, length, d, actionD, actionE) \359 #define _pMonComp_otEXPCOMP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 360 360 do \ 361 361 { \ … … 388 388 while(0) 389 389 390 #define _pMonC mp_2i_1_c(p1, p2, length, d, actionD, actionE) \390 #define _pMonComp_otEXPCOMP_nwODD(p1, p2, length, d, actionD, actionE) \ 391 391 do \ 392 392 { \ … … 444 444 while(0) 445 445 446 #define _pMonC mp_c(p1, p2, d, actionD, actionE) \446 #define _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) \ 447 447 do \ 448 448 { \ … … 467 467 while(0) 468 468 469 #define _pMonC mp_1(p1, p2, d, actionD, actionE) \470 _pMonCmp(p1, p2, d, actionD, actionE) 471 472 #define _pMonC mp_1_c(p1, p2, d, actionD, actionE) \473 _pMonC mp_c(p1, p2, d, actionD, actionE)474 475 #define _pMonC mp_2(p1, p2, d, actionD, actionE) \476 _pMonCmp(p1, p2, d, actionD, actionE) 477 478 #define _pMonC mp_2_c(p1, p2, d, actionD, actionE) \479 _pMonC mp_c(p1, p2, d, actionD, actionE)480 481 #define _pMonC mp_2i(p1, p2, length, d, actionD, actionE) \482 _pMonCmp(p1, p2, d, actionD, actionE) 483 484 #define _pMonC mp_2i_1(p1, p2, length, d, actionD, actionE) \485 _pMonCmp(p1, p2, d, actionD, actionE) 486 487 #define _pMonC mp_2i_c(p1, p2, length, d, actionD, actionE) \488 _pMonC mp_c(p1, p2, d, actionD, actionE)489 490 #define _pMonC mp_2i_1_c(p1, p2, length, d, actionD, actionE) \491 _pMonC mp_c(p1, p2, d, actionD, actionE)469 #define _pMonComp_otEXP_nwONE(p1, p2, d, actionD, actionE) \ 470 _pMonCmp(p1, p2, d, actionD, actionE) 471 472 #define _pMonComp_otEXPCOMP_nwONE(p1, p2, d, actionD, actionE) \ 473 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 474 475 #define _pMonComp_otEXP_nwTWO(p1, p2, d, actionD, actionE) \ 476 _pMonCmp(p1, p2, d, actionD, actionE) 477 478 #define _pMonComp_otEXPCOMP_nwTWO(p1, p2, d, actionD, actionE) \ 479 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 480 481 #define _pMonComp_otEXP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 482 _pMonCmp(p1, p2, d, actionD, actionE) 483 484 #define _pMonComp_otEXP_nwODD(p1, p2, length, d, actionD, actionE) \ 485 _pMonCmp(p1, p2, d, actionD, actionE) 486 487 #define _pMonComp_otEXPCOMP_nwEVEN(p1, p2, length, d, actionD, actionE) \ 488 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 489 490 #define _pMonComp_otEXPCOMP_nwODD(p1, p2, length, d, actionD, actionE) \ 491 _pMonComp_otEXP_c(p1, p2, d, actionD, actionE) 492 492 493 493 #endif // COMP_NO_EXP_VECTOR_OPS
Note: See TracChangeset
for help on using the changeset viewer.