From 4198aed283e26976086a0927be9214de0a43954d Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 2 Oct 2000 13:51:36 +0000 Subject: [PATCH] [project @ 2000-10-02 13:51:36 by simonmar] Names of mpz routines in GMP 3 now have a "__g" prefix (untested, but should fix the NCG). --- ghc/compiler/nativeGen/StixInteger.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/nativeGen/StixInteger.lhs b/ghc/compiler/nativeGen/StixInteger.lhs index aa24af3..bb96cff 100644 --- a/ghc/compiler/nativeGen/StixInteger.lhs +++ b/ghc/compiler/nativeGen/StixInteger.lhs @@ -60,7 +60,7 @@ gmpCompare res args@(csa1,cda1, csa2,cda2) (a1,a2,a3) = toStruct scratch1 (aa1,sa1,da1) (a4,a5,a6) = toStruct scratch2 (aa2,sa2,da2) - mpz_cmp = StCall SLIT("mpz_cmp") cCallConv IntRep [scratch1, scratch2] + mpz_cmp = StCall SLIT("__gmpz_cmp") cCallConv IntRep [scratch1, scratch2] r1 = StAssign IntRep result mpz_cmp in returnUs (\xs -> a1 : a2 : a3 : a4 : a5 : a6 : r1 : xs) @@ -79,7 +79,7 @@ gmpCompareInt res args@(csa1,cda1, cai) da1 = stgArrWords__BYTE_ARR_CTS (amodeToStix cda1) ai = amodeToStix cai (a1,a2,a3) = toStruct scratch1 (aa1,sa1,da1) - mpz_cmp_si = StCall SLIT("mpz_cmp_si") cCallConv IntRep [scratch1, ai] + mpz_cmp_si = StCall SLIT("__gmpz_cmp_si") cCallConv IntRep [scratch1, ai] r1 = StAssign IntRep result mpz_cmp_si in returnUs (\xs -> a1 : a2 : a3 : r1 : xs) @@ -99,7 +99,7 @@ gmpInteger2Int res args@(csa,cda) da = stgArrWords__BYTE_ARR_CTS (amodeToStix cda) (a1,a2,a3) = toStruct scratch1 (aa,sa,da) - mpz_get_si = StCall SLIT("mpz_get_si") cCallConv IntRep [scratch1] + mpz_get_si = StCall SLIT("__gmpz_get_si") cCallConv IntRep [scratch1] r1 = StAssign IntRep result mpz_get_si in returnUs (\xs -> a1 : a2 : a3 : r1 : xs) @@ -117,7 +117,7 @@ gmpInteger2Word res args@(csa,cda) da = stgArrWords__BYTE_ARR_CTS (amodeToStix cda) (a1,a2,a3) = toStruct scratch1 (aa,sa,da) - mpz_get_ui = StCall SLIT("mpz_get_ui") cCallConv IntRep [scratch1] + mpz_get_ui = StCall SLIT("__gmpz_get_ui") cCallConv IntRep [scratch1] r1 = StAssign WordRep result mpz_get_ui in returnUs (\xs -> a1 : a2 : a3 : r1 : xs) -- 1.7.10.4