Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-10 23:29:02 +00:00
Code Issues Projects Releases Wiki Activity

remove no longer needed strlen() calls from diskio routines

Browse Source
This commit is contained in:
Irmen de Jong 2021-01-23 22:46:46 +01:00
parent bf69219f98
commit 975af4764d
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/res/prog8lib/diskio.p8
View File

@ -424,10 +424,9 @@ io_error:
sub delete(ubyte drivenumber, uword filenameptr) {
; -- delete a file on the drive
ubyte flen = string.length(filenameptr)
filename[0] = 's'
filename[1] = ':'
string.copy(filenameptr, &filename+2)
ubyte flen = string.copy(filenameptr, &filename+2)
c64.SETNAM(flen+2, filename)
c64.SETLFS(1, drivenumber, 15)
void c64.OPEN()
@ -437,13 +436,11 @@ io_error:
sub rename(ubyte drivenumber, uword oldfileptr, uword newfileptr) {
; -- rename a file on the drive
ubyte flen_old = string.length(oldfileptr)
ubyte flen_new = string.length(newfileptr)
filename[0] = 'r'
filename[1] = ':'
string.copy(newfileptr, &filename+2)
ubyte flen_new = string.copy(newfileptr, &filename+2)
filename[flen_new+2] = '='
string.copy(oldfileptr, &filename+3+flen_new)
ubyte flen_old = string.copy(oldfileptr, &filename+3+flen_new)
c64.SETNAM(3+flen_new+flen_old, filename)
c64.SETLFS(1, drivenumber, 15)
void c64.OPEN()

2
examples/test.p8
View File

@ -16,5 +16,7 @@ main {
diskio.directory(8)
diskio.delete(8, "newname")
diskio.directory(8)
txt.print("---------------------------------\n")
}
}