Subject: 24.4.50; hif-string-to-number convert a hex(or any non-decial) integer as float
From: William Xu <[email-masked]>
To: [email-masked]
Date: Thu, 19 Jun 2014 14:26:59 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

(hif-string-to-number "0F" 16)
        => 15.0

It would fail hif-logand, like the one below, caught in cedet.

Is it really necessary to support non-decial floats? When is something
like "0xff.e9" useful?

Anyway, how about attached fix?

---------------------------------8<-------------------------------------
Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p 15.0)
  logand(0 15.0)
  hif-logand(0 15.0)
  (hif-notequal (hif-logand (hif-lookup (quote SPURIOUS_APIC_VECTOR)) 15.0)
15.0)
  eval((hif-notequal (hif-logand (hif-lookup (quote SPURIOUS_APIC_VECTOR))
15.0) 15.0))
  semantic-c-do-lex-if()
  semantic-c-lexer(1 4938 nil nil)
  semantic-lex(1 4938 nil)
  semantic-parse-region-default(1 4938 nil nil nil)
  semantic-parse-region-c-mode(1 4938 nil nil nil)
  semantic-parse-region(1 4938)
  semantic-fetch-tags()
  byte-code("\212\212\300 \210*\301\207" [semantic-fetch-tags nil] 1)
  semantic-idle-scheduler-refresh-tags()
  (and (semantic-idle-scheduler-enabled-p)
(semantic-idle-scheduler-refresh-tags))
  ...
---------------------------------8<-------------------------------------

In GNU Emacs 24.4.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.12.2)
 of 2014-06-10 on linux-xwl
Windowing system distributor `The X.Org Foundation', version 11.0.11501000
System Description:    Debian GNU/Linux unstable (sid)

Configured using:
 `configure --with-x-toolkit=gtk3'

-- 
William

http://xwl.appspot.com
From 83f61b25fe896112420e4b9d00b7db8c8b6d8bcf Mon Sep 17 00:00:00 2001
From: William Xu <[email-masked]>
Date: Thu, 19 Jun 2014 14:18:36 +0800
Subject: [PATCH] Convert non-decimal integer string still as an integer.

(hif-string-to-number): e.g., Change (hif-string-to-number "0F" 16) to
return `15' instead of `15.0'.
---
 lisp/progmodes/hideif.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index bcb4659..ee144df 100644
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -412,9 +412,13 @@ that form should be displayed.")
   (if (or (not base) (= base 10))
       (string-to-number string base)
     (let* ((parts (split-string string "\\." t "[ \t]+"))
-	   (frac (cadr parts))
-	   (quot (expt (* base 1.0) (length frac))))
-      (/ (string-to-number (concat (car parts) frac) base) quot))))
+           (frac (cadr parts))
+           (quot (expt (* base 1.0) (length frac)))
+           (num (/ (string-to-number (concat (car parts) frac) base)
+                   quot)))
+      (if (= num (truncate num))
+          (truncate num)
+        num))))
 
 (defun hif-tokenize (start end)
   "Separate string between START and END into a list of tokens."
-- 
2.0.0