Mercurial > vba-clojure
view src/SFMT/SFMT-params19937.h @ 434:988f0fda6c93
paramaterized music-step
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 25 Apr 2012 01:58:44 -0500 |
parents | f9f4f1b99eed |
children |
line wrap: on
line source
1 #ifndef SFMT_PARAMS19937_H2 #define SFMT_PARAMS19937_H4 #define POS1 1225 #define SL1 186 #define SL2 17 #define SR1 118 #define SR2 19 #define MSK1 0xdfffffefU10 #define MSK2 0xddfecb7fU11 #define MSK3 0xbffaffffU12 #define MSK4 0xbffffff6U13 #define PARITY1 0x00000001U14 #define PARITY2 0x00000000U15 #define PARITY3 0x00000000U16 #define PARITY4 0x13c9e684U19 /* PARAMETERS FOR ALTIVEC */20 #if defined(__APPLE__) /* For OSX */21 #define ALTI_SL1 (vector unsigned int)(SL1, SL1, SL1, SL1)22 #define ALTI_SR1 (vector unsigned int)(SR1, SR1, SR1, SR1)23 #define ALTI_MSK (vector unsigned int)(MSK1, MSK2, MSK3, MSK4)24 #define ALTI_MSK64 \25 (vector unsigned int)(MSK2, MSK1, MSK4, MSK3)26 #define ALTI_SL2_PERM \27 (vector unsigned char)(1,2,3,23,5,6,7,0,9,10,11,4,13,14,15,8)28 #define ALTI_SL2_PERM64 \29 (vector unsigned char)(1,2,3,4,5,6,7,31,9,10,11,12,13,14,15,0)30 #define ALTI_SR2_PERM \31 (vector unsigned char)(7,0,1,2,11,4,5,6,15,8,9,10,17,12,13,14)32 #define ALTI_SR2_PERM64 \33 (vector unsigned char)(15,0,1,2,3,4,5,6,17,8,9,10,11,12,13,14)34 #else /* For OTHER OSs(Linux?) */35 #define ALTI_SL1 {SL1, SL1, SL1, SL1}36 #define ALTI_SR1 {SR1, SR1, SR1, SR1}37 #define ALTI_MSK {MSK1, MSK2, MSK3, MSK4}38 #define ALTI_MSK64 {MSK2, MSK1, MSK4, MSK3}39 #define ALTI_SL2_PERM {1,2,3,23,5,6,7,0,9,10,11,4,13,14,15,8}40 #define ALTI_SL2_PERM64 {1,2,3,4,5,6,7,31,9,10,11,12,13,14,15,0}41 #define ALTI_SR2_PERM {7,0,1,2,11,4,5,6,15,8,9,10,17,12,13,14}42 #define ALTI_SR2_PERM64 {15,0,1,2,3,4,5,6,17,8,9,10,11,12,13,14}43 #endif /* For OSX */44 #define IDSTR "SFMT-19937:122-18-1-11-1:dfffffef-ddfecb7f-bffaffff-bffffff6"46 #endif /* SFMT_PARAMS19937_H */