[MLton-commit] r6709
Matthew Fluet
fluet at mlton.org
Tue Aug 19 15:09:25 PDT 2008
Formatting; eliminate trailing blank lines.
----------------------------------------------------------------------
U mlton/trunk/runtime/basis-ffi.h
U mlton/trunk/runtime/gen/basis-ffi.h
U mlton/trunk/runtime/gen/gen-basis-ffi.sml
----------------------------------------------------------------------
Modified: mlton/trunk/runtime/basis-ffi.h
===================================================================
--- mlton/trunk/runtime/basis-ffi.h 2008-08-19 21:40:54 UTC (rev 6708)
+++ mlton/trunk/runtime/basis-ffi.h 2008-08-19 22:09:24 UTC (rev 6709)
@@ -1121,4 +1121,3 @@
INTERNAL Real64_t WordU8_rndToReal64(Word8_t);
MLTON_CODEGEN_STATIC_INLINE Word8_t WordU8_rshift(Word8_t,Word32_t);
#endif /* _MLTON_BASIS_FFI_H_ */
-
Modified: mlton/trunk/runtime/gen/basis-ffi.h
===================================================================
--- mlton/trunk/runtime/gen/basis-ffi.h 2008-08-19 21:40:54 UTC (rev 6708)
+++ mlton/trunk/runtime/gen/basis-ffi.h 2008-08-19 22:09:24 UTC (rev 6709)
@@ -1121,4 +1121,3 @@
INTERNAL Real64_t WordU8_rndToReal64(Word8_t);
MLTON_CODEGEN_STATIC_INLINE Word8_t WordU8_rshift(Word8_t,Word32_t);
#endif /* _MLTON_BASIS_FFI_H_ */
-
Modified: mlton/trunk/runtime/gen/gen-basis-ffi.sml
===================================================================
--- mlton/trunk/runtime/gen/gen-basis-ffi.sml 2008-08-19 21:40:54 UTC (rev 6708)
+++ mlton/trunk/runtime/gen/gen-basis-ffi.sml 2008-08-19 22:09:24 UTC (rev 6709)
@@ -1,4 +1,4 @@
-(* Copyright (C) 2004-2006 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 2004-2006, 2008 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
*
* MLton is released under a BSD-style license.
@@ -344,7 +344,7 @@
val () = println "#ifndef _MLTON_BASIS_FFI_H_\n"
val () = println "#define _MLTON_BASIS_FFI_H_\n"
val () = List.app (fn entry => println (Entry.toC entry)) entries
- val () = println "#endif /* _MLTON_BASIS_FFI_H_ */\n"
+ val () = println "#endif /* _MLTON_BASIS_FFI_H_ */"
val () = TextIO.closeOut f
in
()
More information about the MLton-commit
mailing list