improve comp-c-func-name

This commit is contained in:
Andrea Corallo 2019-07-14 21:10:56 +02:00 committed by Andrea Corallo
parent 15e4c44564
commit 721d110298

View file

@ -150,7 +150,7 @@ LIMPLE basic block.")
(human-readable (replace-regexp-in-string
"-" "_" orig-name))
(human-readable (replace-regexp-in-string
(rx (not (any "a-z_"))) "" human-readable)))
(rx (not (any "0-9a-z_"))) "" human-readable)))
(concat "F" crypted "_" human-readable)))
(defun comp-decrypt-lambda-list (x)