Update of /cvsroot/monetdb/MonetDB5/src/modules/atoms
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv10849/src/modules/atoms
Modified Files:
mtime.mx
Log Message:
cleanup indenting
algebra: work around compiler bug.
Index: mtime.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/atoms/mtime.mx,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -d -r1.103 -r1.104
--- mtime.mx 11 Dec 2007 12:56:15 -0000 1.103
+++ mtime.mx 9 Jan 2008 22:55:51 -0000 1.104
@@ -203,7 +203,7 @@
comment "Minimum test for @1 value";
command calc.max(v:@1,w:@1):@1
address [EMAIL PROTECTED]
-comment "Minimum test for @1 value";
+comment "Maximum test for @1 value";
@mal
@+ Date atom
@@ -2851,22 +2851,25 @@
@:compareDef(GT,>,@1)@
@:compareDef(GE,>=,@1)@
@= compareAll
-str [EMAIL PROTECTED](bit *ret, @1 *v){
- *ret= *v == @1_nil;
+str [EMAIL PROTECTED](bit *ret, @1 *v)
+{
+ *ret = (*v == @1_nil);
return MAL_SUCCEED;
}
-str [EMAIL PROTECTED](@1 *ret, @1 *v, @1 *w){
- if( *v== @1_nil || *w== @1_nil)
- *ret= @1_nil;
+str [EMAIL PROTECTED](@1 *ret, @1 *v, @1 *w)
+{
+ if( *v == @1_nil || *w == @1_nil)
+ *ret= @1_nil;
else
- *ret= *v<*w ? *v: *w;
+ *ret = *v<*w ? *v: *w;
return MAL_SUCCEED;
}
-str [EMAIL PROTECTED](@1 *ret, @1 *v, @1 *w){
- if( *v== @1_nil || *w== @1_nil)
- *ret= @1_nil;
+str [EMAIL PROTECTED](@1 *ret, @1 *v, @1 *w)
+{
+ if (*v == @1_nil || *w == @1_nil)
+ *ret = @1_nil;
else
- *ret= *v<*w ? *v: *w;
+ *ret = *v>*w ? *v: *w;
return MAL_SUCCEED;
}
@:compareImpl(EQ,==,@1)@
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
