diff options
| author | simonmar <unknown> | 2000-10-02 13:51:36 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-10-02 13:51:36 +0000 |
| commit | 4198aed283e26976086a0927be9214de0a43954d (patch) | |
| tree | 0b5db12851bfb3db141f6640a9a9e0c6004eb1ba | |
| parent | e9e111d726ae93939d4dc16d548d6f011f7215c8 (diff) | |
| download | haskell-4198aed283e26976086a0927be9214de0a43954d.tar.gz | |
[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).
| -rw-r--r-- | ghc/compiler/nativeGen/StixInteger.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/nativeGen/StixInteger.lhs b/ghc/compiler/nativeGen/StixInteger.lhs index aa24af3278..bb96cfff47 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) |