Fast double-to-ascii conversion.

tools/generate-ten-powers.scm

 ;; Copyright 2010 the V8 project authors. All rights reserved.
 ;; Redistribution and use in source and binary forms, with or without
 ;; modification, are permitted provided that the following conditions are
 ;; met:
 ;;
 ;;     * Redistributions of source code must retain the above copyright
 ;;       notice, this list of conditions and the following disclaimer.
 ;;     * Redistributions in binary form must reproduce the above
 ;;       copyright notice, this list of conditions and the following
 ;;       disclaimer in the documentation and/or other materials provided
@@ skipping 153 matching lines @@
              (let* ((power (vector-ref powers i))
                     (e (Cached-Fast-e power)))
              (display-power power (+ i from))
              (loop (+ i n)
                    (+ nb-elements 1)
                    e
                    (cond
                       ((=fx i 0) max-distance)
                       ((> (- e last-e) max-distance) (- e last-e))
                       (else max-distance))))))))
+   (print "// Copyright 2010 the V8 project authors. All rights reserved.")
    (print "// ------------ GENERATED FILE ----------------")
    (print "// command used:")
    (print "// "
           (apply string-append (map (lambda (str)
                                        (string-append " " str))
                                     *main-args*))
           "  // NOLINT")
    (print)
    (print
     "// This file is intended to be included inside another .h or .cc files\n"
@@ skipping 92 matching lines @@
       (unwind-protect
          (with-output-to-port p
             (lambda ()
                (print-c dividers *from* *to*
                         "GRISU_CACHE_STRUCT" "GRISU_CACHE_NAME"
                         "GRISU_CACHE_MAX_DISTANCE" "GRISU_CACHE_OFFSET"
                         "GRISU_UINT64_C"
                         )))
          (if *dest*
              (close-output-port p)))))