Fixed CFU

diff --git a/util/int/do_conv.c b/util/int/do_conv.c
index 6752933..cab003f 100644 (file)
--- a/util/int/do_conv.c
+++ b/util/int/do_conv.c
@@ -357,22 +357,22 @@ DoCFU()
                        wtrap(WILLCONV, EILLINS);
                }
                f = fpop(4L);
-               npush((long) f, 2L);
+               npush((unsigned long) f, 2L);
                return;
        case 44:
                f = fpop(4L);
-               npush((long) f, 4L);
+               npush((unsigned long) f, 4L);
                return;
        case 82:
                if (wsize == 4) {
                        wtrap(WILLCONV, EILLINS);
                }
                f = fpop(8L);
-               npush((long) f, 2L);
+               npush((unsigned long) f, 2L);
                return;
        case 84:
                f = fpop(8L);
-               npush((long) f, 4L);
+               npush((unsigned long) f, 4L);
                return;
        default:
                wtrap(WILLCONV, EILLINS);