Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-19 11:32:17 +00:00
Code Issues Projects Releases Wiki Activity

fix passing address of pass-by-reference assignment to a UWORD

Browse Source
This commit is contained in:
Irmen de Jong 2020-11-10 00:35:24 +01:00
parent 8d0607ef58
commit 4825b4dc68
3 changed files with 18 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/src/prog8/compiler/target/c64/codegen/assignment/AssignmentAsmGen.kt
View File

@ -48,7 +48,13 @@ internal class AssignmentAsmGen(private val program: Program, private val asmgen
val variable = assign.source.asmVarname
when (assign.target.datatype) {
DataType.UBYTE, DataType.BYTE -> assignVariableByte(assign.target, variable)
DataType.UWORD, DataType.WORD -> assignVariableWord(assign.target, variable)
DataType.WORD -> assignVariableWord(assign.target, variable)
DataType.UWORD -> {
if(assign.source.datatype in PassByReferenceDatatypes)
assignAddressOf(assign.target, variable)
else
assignVariableWord(assign.target, variable)
}
DataType.FLOAT -> assignVariableFloat(assign.target, variable)
DataType.STR -> assignVariableString(assign.target, variable)
else -> throw AssemblyError("unsupported assignment target type ${assign.target.datatype}")

5
examples/cx16/cobramk3-gfx.p8
View File

@ -3,7 +3,6 @@
%import conv
; TODO add all other Elite's ships, show their name, advance to next ship on keypress
; TODO doesn't draw anything on cx16 anymore...
main {
@ -37,7 +36,7 @@ main {
cx16.GRAPH_set_colors(1, 0, 0)
draw_lines_hiddenremoval()
;draw_lines()
; draw_lines()
anglex += 217
angley -= 505
@ -225,6 +224,8 @@ main {
shipdata {
%option force_output
; Ship model data converted from BBC Elite's Cobra MK 3
; downloaded from http://www.elitehomepage.org/archive/index.htm

36
examples/test.p8
View File

@ -7,37 +7,17 @@ main {
sub start() {
; byte bb = 4
; bb += sgn(bb+bb)
; txt.print_b(bb)
; txt.chrout('\n')
;
; word ww = 4
; ww += sgn(ww+ww)
; txt.print_w(ww)
; txt.chrout('\n')
ubyte[100] array
float x = 4
x += abs(x+x)
floats.print_f(x)
memset(array, len(array)-1, 255)
ubyte xx
for xx in array {
txt.print_ubhex(xx, false)
txt.chrout(',')
}
txt.chrout('\n')
x = 4
x += sgn(x+x) ; TODO missing byte->float cast in assembly??? Also fucks up stack
x += sgn(x+x) ; TODO missing byte->float cast in assembly??? Also fucks up stack
x += sgn(x+x) ; TODO missing byte->float cast in assembly??? Also fucks up stack
floats.print_f(x)
txt.chrout('\n')
; repeat 10 {
; float cosa = cos(t)
; float sina = sin(t)
; float cosb = cos(t*0.33)
; float sinb = sin(t*0.33)
; float cosc = cos(t*0.78)
; float sinc = sin(t*0.78)
; }
testX()
}