andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "mescc: Only use signed division when numerator is signed." 

This breaks tcc-boot0 on ARM.

This reverts commit 348dcbcbd7.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2022-09-13 19:36:41 +02:00
parent 0c3ba50634
commit f87c49e19c
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
module/mescc/compile.scm
View File

@ -1218,9 +1218,9 @@
((rshift ,a ,b) ((binop->r info) a b 'r0>>r1))
((div ,a ,b)
((binop->r info) a b 'r0/r1
(signed? (ast->type a info))))
(or (signed? (ast->type a info)) (signed? (ast->type b info)))))
((mod ,a ,b) ((binop->r info) a b 'r0%r1
(signed? (ast->type a info))))
(or (signed? (ast->type a info)) (signed? (ast->type b info)))))
((mul ,a ,b) ((binop->r info) a b 'r0*r1))
((not ,expr)
@ -1361,7 +1361,7 @@
info)))
(info (expr->register a info))
(info (append-text info (wrap-as (as info 'swap-r0-r1))))
(signed? (signed? type))
(signed? (or (signed? type) (signed? type-b)))
(info (append-text info (cond ((equal? op "+=") (wrap-as (as info 'r0+r1)))
((equal? op "-=") (wrap-as (as info 'r0-r1)))
((equal? op "*=") (wrap-as (as info 'r0*r1)))