mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

Stronger hashing for C files initialization names

Browse source
This commit is contained in:
jjgarcia 2008-05-30 23:52:16 +00:00
parent 7677ee8ce6
commit abec6e581f
1 changed files with 17 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/cmp/cmpname.lsp
View file

@ -30,21 +30,30 @@
(base (length code))
(output '())
(digit 0))
((zerop number) (concatenate 'string (nreverse output)))
((zerop number) (coerce (nreverse output) 'base-string))
(multiple-value-setq (number digit) (floor number base))
(push (char code digit) output)))))
(defun unique-init-name (pathname)
(defun unique-init-name (file)
"Create a unique name for this initialization function. The current algorithm
relies only on the name of the source file and the time at which it is built. This
should be enough to prevent name collisions for object files built in the same
machine."
(let ((tag (concatenate 'base-string
"_ecl"
(encode-number-in-name (sxhash pathname))
"_"
(encode-number-in-name (get-universal-time)))))
(cmpnote "Creating tag: ~S for ~S" tag pathname)
(let* ((path (pathname file))
(path-hash (logxor (ash (sxhash path) 8)
(ash (sxhash (cddr (pathname-directory path))) 16)
(sxhash (pathname-name path))))
(seconds (get-universal-time))
(ms (+ (* seconds 1000)
(mod (floor (* 1000 (get-internal-real-time))
internal-time-units-per-second)
1000)))
(tag (concatenate 'base-string
"_ecl"
(encode-number-in-name path-hash)
"_"
(encode-number-in-name ms))))
(cmpnote "Creating tag: ~S for ~S" tag file)
tag))
(defun init-name-tag (init-name)