[PATCH] Use long-r when extending unsigned 4-byte integers.

[Andrius Štikonas]

* module/mescc/compile.scm: use long-r instead of long-signed-r
---
 module/mescc/compile.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm
index 3135ec9c..87c6d4f7 100644
--- a/module/mescc/compile.scm
+++ b/module/mescc/compile.scm
@@ -1485,7 +1485,7 @@
                (wrap-as (as info 'long-signed-r)))
               ((and (> reg-size 4) (= size 4))
                ;; for 17-unsigned-le
-               (wrap-as (as info 'long-signed-r))  ; huh, why not long-r?
+               (wrap-as (as info 'long-r))
                ;; for a0-call-trunc-int
                ;;(wrap-as (as info 'long-r))
                )
-- 
2.43.0