[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / nativeGen / AlphaGen.lhs

diff --git a/ghc/compiler/nativeGen/AlphaGen.lhs b/ghc/compiler/nativeGen/AlphaGen.lhs
index 3eb5a04..533a518 100644 (file)
--- a/ghc/compiler/nativeGen/AlphaGen.lhs
+++ b/ghc/compiler/nativeGen/AlphaGen.lhs
@@ -294,7 +294,6 @@ getReg (StPrim primop args) =
        IntSubOp -> trivialCode (SUB Q False) args
        IntMulOp -> trivialCode (MUL Q False) args
        IntQuotOp -> trivialCode (DIV Q False) args
-       IntDivOp -> call SLIT("stg_div") IntKind
        IntRemOp -> trivialCode (REM Q False) args
        IntNegOp -> trivialUCode (NEG Q False) args
        IntAbsOp -> trivialUCode (ABS Q) args