godotengine/emacs-gdscript-mode
1
0
Fork 0
mirror of https://github.com/godotengine/emacs-gdscript-mode.git synced 2026-01-04 18:09:55 +03:00
Code Issues Packages Projects Releases Wiki Activity

Signed 64-bit integer support

Browse Source
This commit is contained in:
Josef Vlach
2020-10-03 20:15:00 +01:00
parent d9b7c26c89
commit a9263e30ae
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gdscript-debug.el
View File

@@ -27,14 +27,16 @@ when breakpoint is encountered in Godot."
(defvar gdscript-debug--integer-spec
`((:data u32r)
(:integer-data eval (- (logand ,(lsh -1 -31) last) (logand last ,(lsh 1 31))))))
(:integer-data eval (- (logand last ,(lognot (lsh 1 31))) (logand last ,(lsh 1 31))))))
(defvar gdscript-debug--integer-64-spec
'((:data-a u32r)
`((:data-a u32r)
(:data-b u32r)
(:integer-data eval (let ((a (bindat-get-field struct :data-a))
(b (bindat-get-field struct :data-b)))
(logior (lsh b 32) a)))))
(:data eval (let ((a (bindat-get-field struct :data-a))
(b (bindat-get-field struct :data-b)))
(logior (lsh b 32) a)))
(:integer-data eval (let ((a (bindat-get-field struct :data)))
(- (logand a ,(lognot (lsh 1 63))) (logand a ,(lsh 1 63)))))))
;; Credit goes to https://github.com/skeeto/bitpack/blob/master/bitpack.el
(defsubst gdscript-debug--load-f32 (b0 b1 b2 b3)
@@ -700,7 +702,7 @@ when breakpoint is encountered in Godot."
(line (stack-dump->line stack-dump))
(full-file-path (concat project-root (gdscript-debug--drop-res file))))
(if (not project-root)
(error "Project for file %s not found." file)
(error "Project for file %s not found" file)
(with-current-buffer (find-file full-file-path)
(let* ((posns (line-posns line))
(start-posn (car posns)))