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

vm: fix comparisons codegen

Browse Source
This commit is contained in:
Irmen de Jong 2022-05-02 21:32:45 +02:00
parent 86cc2f1075
commit 30c2e3e8ff
4 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
codeGenVirtual/src/prog8/codegen/virtual/ExpressionGen.kt
View File

@ -283,8 +283,8 @@ internal class ExpressionGen(private val codeGen: CodeGen) {
"^", "xor" -> operatorXor(binExpr, vmDt, resultRegister) "^", "xor" -> operatorXor(binExpr, vmDt, resultRegister)
"<<" -> operatorShiftLeft(binExpr, vmDt, resultRegister) "<<" -> operatorShiftLeft(binExpr, vmDt, resultRegister)
">>" -> operatorShiftRight(binExpr, vmDt, resultRegister, signed) ">>" -> operatorShiftRight(binExpr, vmDt, resultRegister, signed)
"==" -> operatorEquals(binExpr, vmDt, resultRegister, true) "==" -> operatorEquals(binExpr, vmDt, resultRegister, false)
"!=" -> operatorEquals(binExpr, vmDt, resultRegister, false) "!=" -> operatorEquals(binExpr, vmDt, resultRegister, true)
"<" -> operatorLessThan(binExpr, vmDt, resultRegister, signed, false) "<" -> operatorLessThan(binExpr, vmDt, resultRegister, signed, false)
">" -> operatorGreaterThan(binExpr, vmDt, resultRegister, signed, false) ">" -> operatorGreaterThan(binExpr, vmDt, resultRegister, signed, false)
"<=" -> operatorLessThan(binExpr, vmDt, resultRegister, signed, true) "<=" -> operatorLessThan(binExpr, vmDt, resultRegister, signed, true)

2
compiler/res/prog8lib/virtual/conv.p8
View File

@ -219,7 +219,6 @@ sub str2word(str string) -> word {
sub hex2uword(str string) -> uword { sub hex2uword(str string) -> uword {
; -- hexadecimal string (with or without '$') to uword. ; -- hexadecimal string (with or without '$') to uword.
; stops parsing at the first character that's not a hex digit (except leading $) ; stops parsing at the first character that's not a hex digit (except leading $)
; TODO fix this result
uword result uword result
ubyte char ubyte char
if @(string)=='$' if @(string)=='$'
@ -240,7 +239,6 @@ sub hex2uword(str string) -> uword {
sub bin2uword(str string) -> uword { sub bin2uword(str string) -> uword {
; -- binary string (with or without '%') to uword. ; -- binary string (with or without '%') to uword.
; stops parsing at the first character that's not a 0 or 1. (except leading %) ; stops parsing at the first character that's not a 0 or 1. (except leading %)
; TODO fix this result
uword result uword result
ubyte char ubyte char
if @(string)=='%' if @(string)=='%'

2
docs/source/todo.rst
View File

@ -3,8 +3,6 @@ TODO
For next release For next release
^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^
- vm: fix if @(string)=='$' string++ not working on ea31
- vm: fix conv hex2uword and bin2uword
- vm: implement float div, minus, plus - vm: implement float div, minus, plus
- vm: implement float type casts to integer types - vm: implement float type casts to integer types
- vm: implement float any, all, reverse, sort - vm: implement float any, all, reverse, sort

1
examples/test.p8
View File

@ -8,7 +8,6 @@
main { main {
sub start() { sub start() {
ubyte ub = conv.str2ubyte("234") ubyte ub = conv.str2ubyte("234")
txt.print_ub(ub) txt.print_ub(ub)
txt.nl() txt.nl()