Changeset 260 for trunk/thune/math.c

Show
Ignore:
Timestamp:
08/29/06 22:25:58 (2 years ago)
Author:
krobillard
Message:

Thune - Added experimental Rune evaluator.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/thune/math.c

    r249 r260  
    149149 
    150150 
     151#ifdef LANG_RUNE 
     152#define UR_CALL_P   UR_CALL_PUB 
     153#else 
     154#define UR_CALL_P   UR_CALL 
     155#endif 
     156 
    151157// (number number -- sum) 
    152 UR_CALL( uc_add ) 
     158UR_CALL_P( uc_add ) 
    153159{ 
    154160    UR_S_DROP; 
     
    166172 
    167173// (number number -- difference) 
    168 UR_CALL( uc_sub ) 
     174UR_CALL_P( uc_sub ) 
    169175{ 
    170176    UR_S_DROP; 
     
    182188 
    183189// (number number -- product) 
    184 UR_CALL( uc_mul ) 
     190UR_CALL_P( uc_mul ) 
    185191{ 
    186192    UCell* res; 
     
    194200 
    195201// (number number -- quotient) 
    196 UR_CALL( uc_div ) 
     202UR_CALL_P( uc_div ) 
    197203{ 
    198204    UCell* res;