Changeset: 0481f8be837a for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=0481f8be837a
Modified Files:
monetdb5/modules/kernel/calc.mx
Branch: Aug2011
Log Message:
Complete changeset b1eba5cae691: calc.sign returns an int, also at C level.
diffs (33 lines):
diff --git a/monetdb5/modules/kernel/calc.mx b/monetdb5/modules/kernel/calc.mx
--- a/monetdb5/modules/kernel/calc.mx
+++ b/monetdb5/modules/kernel/calc.mx
@@ -620,7 +620,7 @@ str CALCsizeof@1(int *res , @1 *a ) {
@:calc_unop(ABS,calc_abs,@1)@
@:check_unop(INV,calc_inv,@1)@
@:calc_unop(NEG,calc_neg,@1)@
-@:calc_unop(SIGN,calc_sign,@1)@
+@:calc_unopint(SIGN,calc_sign,@1)@
@:calc_length(@1)@
@
@c
@@ -1188,6 +1188,20 @@ str CALCunary@3@1(@3 *res , @3 *a ) {
return(MAL_SUCCEED);
}
@
+@= calc_unopint
+calc_export str CALCunary@3@1(int *res , @3 *a );
+str CALCunary@3@1(int *res , @3 *a ) {
+#ifdef DEBUG
+ printf( "CALCunary@3@1\n");
+#endif
+ if (*a == @3_nil) {
+ *res = int_nil;
+ } else {
+ *res = (int) (@2 (*a));
+ }
+ return(MAL_SUCCEED);
+}
+@
@= check_unop
calc_export str CALCunarycheck@3@1(@3 *res , @3 *a );
str CALCunarycheck@3@1(@3 *res , @3 *a ) {
_______________________________________________
Checkin-list mailing list
[email protected]
http://mail.monetdb.org/mailman/listinfo/checkin-list
