cc, ?[acl]: fix gethunk() and move common memory allocator code to cc/compat

[plan9front.git] / sys / src / cmd / pc.y

diff --git a/sys/src/cmd/pc.y b/sys/src/cmd/pc.y
index 7592f578bf32a229a61dd43e315c6773a9673bf0..6d828f8a2c5a2be8b0881fa0fb0254b42894c6b8 100644 (file)
--- a/sys/src/cmd/pc.y
+++ b/sys/src/cmd/pc.y
@@ -825,6 +825,7 @@ fntrunc(int, Num **a)
                numdecref(a[1]);
                return nil;
        }
+       a[0] = nummod(a[0]);
        mptrunc(a[0], i, a[0]);
        return a[0];
 }
@@ -835,6 +836,7 @@ fnxtend(int, Num **a)
        int i;
        
        if(toint(a[1], &i, 1)) return nil;
+       a[0] = nummod(a[0]);
        mpxtend(a[0], i, a[0]);
        return a[0];
 }