Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-08-10 10:25:31 +00:00
Code Issues Projects Releases Wiki Activity

fix vm textio prefix type

Browse Source
This commit is contained in:
Irmen de Jong
2024-03-11 22:22:30 +01:00
parent c11a9b8709
commit e63a8f0c01
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/res/prog8lib/virtual/textio.p8
View File

@@ -81,30 +81,30 @@ sub print_bool(bool value) {
print("false") print("false")
} }
sub print_ubhex (ubyte value, ubyte prefix) { sub print_ubhex (ubyte value, bool prefix) {
; ---- print the ubyte in hex form ; ---- print the ubyte in hex form
if prefix!=0 if prefix
chrout('$') chrout('$')
print(conv.str_ubhex(value)) print(conv.str_ubhex(value))
} }
sub print_ubbin (ubyte value, ubyte prefix) { sub print_ubbin (ubyte value, bool prefix) {
; ---- print the ubyte in binary form ; ---- print the ubyte in binary form
if prefix!=0 if prefix
chrout('%') chrout('%')
print(conv.str_ubbin(value)) print(conv.str_ubbin(value))
} }
sub print_uwbin (uword value, ubyte prefix) { sub print_uwbin (uword value, bool prefix) {
; ---- print the uword in binary form ; ---- print the uword in binary form
if prefix!=0 if prefix
chrout('%') chrout('%')
print(conv.str_uwbin(value)) print(conv.str_uwbin(value))
} }
sub print_uwhex (uword value, ubyte prefix) { sub print_uwhex (uword value, bool prefix) {
; ---- print the uword in hexadecimal form (4 digits) ; ---- print the uword in hexadecimal form (4 digits)
if prefix!=0 if prefix
chrout('$') chrout('$')
print(conv.str_uwhex(value)) print(conv.str_uwhex(value))
} }