sort enum bit fields

This commit is contained in:
water
2021-08-14 13:17:24 -04:00
parent 51dd1bdae8
commit e473ede677
6 changed files with 28 additions and 28 deletions
+9 -12
View File
@@ -782,11 +782,8 @@
)
(cond
((= s4-0 'menu)
(let ((s4-1 (new 'debug 'debug-menu arg0 (the-as string s5-1))))
(set!
s5-0
(new 'debug 'debug-menu-item-submenu (the-as string s5-1) s4-1)
)
(let ((s4-1 (new 'debug 'debug-menu arg0 s5-1)))
(set! s5-0 (new 'debug 'debug-menu-item-submenu s5-1 s4-1))
(let* ((gp-1 (cdr (cdr arg1)))
(a1-3 (car gp-1))
)
@@ -803,7 +800,7 @@
)
)
((= s4-0 'main-menu)
(set! s5-0 (new 'debug 'debug-menu arg0 (the-as string s5-1)))
(set! s5-0 (new 'debug 'debug-menu arg0 s5-1))
(let* ((gp-2 (cdr (cdr arg1)))
(a1-6 (car gp-2))
)
@@ -828,7 +825,7 @@
(new
'debug
'debug-menu-item-flag
(the-as string s5-1)
s5-1
(the-as symbol (car (cdr (cdr arg1))))
(debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))
)
@@ -837,7 +834,7 @@
(new
'debug
'debug-menu-item-function
(the-as string s5-1)
s5-1
(the-as int (car (cdr (cdr arg1))))
(debug-menu-func-decode (car (cdr (cdr (cdr arg1)))))
)
@@ -846,7 +843,7 @@
(new
'debug
'debug-menu-item-var
(the-as string s5-1)
s5-1
(the-as int (car (cdr (cdr arg1))))
(the-as int (car (cdr (cdr (cdr arg1)))))
)
@@ -861,7 +858,7 @@
(new
'debug
'debug-menu-item-var
(the-as string s5-1)
s5-1
(the-as int (car (cdr (cdr arg1))))
(the-as int (ref arg1 4))
)
@@ -898,7 +895,7 @@
(new
'debug
'debug-menu-item-var
(the-as string s5-1)
s5-1
(the-as int (car (cdr (cdr arg1))))
(the-as int (ref arg1 4))
)
@@ -933,7 +930,7 @@
(new
'debug
'debug-menu-item-var
(the-as string s5-1)
s5-1
(the-as int (car (cdr (cdr arg1))))
(the-as int (ref arg1 4))
)