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

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

diff --git a/ghc/compiler/nativeGen/SparcGen.lhs b/ghc/compiler/nativeGen/SparcGen.lhs
index f5bc3a0..b271591 100644 (file)
--- a/ghc/compiler/nativeGen/SparcGen.lhs
+++ b/ghc/compiler/nativeGen/SparcGen.lhs
@@ -308,7 +308,6 @@ getReg (StPrim primop args) =
        IntSubOp -> trivialCode (SUB False False) args
        IntMulOp -> call SLIT(".umul") IntKind
        IntQuotOp -> call SLIT(".div") IntKind
-       IntDivOp -> call SLIT("stg_div") IntKind
        IntRemOp -> call SLIT(".rem") IntKind
        IntNegOp -> trivialUCode (SUB False False g0) args
        IntAbsOp -> absIntCode args