diff options
| author | sof <unknown> | 1999-01-18 14:31:52 +0000 |
|---|---|---|
| committer | sof <unknown> | 1999-01-18 14:31:52 +0000 |
| commit | 9eca3c2602653b8be80f13e0114adebc1e460177 (patch) | |
| tree | 850df6bdc263f4b85eeab564eaa1b9013e94db40 /ghc/compiler/codeGen | |
| parent | 301b341806ff4c6ad8e0c947530e0fbe9094caa7 (diff) | |
| download | haskell-9eca3c2602653b8be80f13e0114adebc1e460177.tar.gz | |
[project @ 1999-01-18 14:31:50 by sof]
long long support: cleared up Real vs. virtual regs. confusion (I hope!)
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgRetConv.lhs | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/ghc/compiler/codeGen/CgRetConv.lhs b/ghc/compiler/codeGen/CgRetConv.lhs index 77a37f373d..9dc622a2b6 100644 --- a/ghc/compiler/codeGen/CgRetConv.lhs +++ b/ghc/compiler/codeGen/CgRetConv.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP Project, Glasgow University, 1992-1998 % -% $Id: CgRetConv.lhs,v 1.16 1998/12/18 17:40:52 simonpj Exp $ +% $Id: CgRetConv.lhs,v 1.17 1999/01/18 14:31:51 sof Exp $ % \section[CgRetConv]{Return conventions for the code generator} @@ -21,10 +21,9 @@ module CgRetConv ( import AbsCSyn -- quite a few things import Constants ( mAX_FAMILY_SIZE_FOR_VEC_RETURNS, mAX_Vanilla_REG, mAX_Float_REG, - mAX_Double_REG, + mAX_Double_REG, mAX_Real_Double_REG, mAX_Real_Vanilla_REG, mAX_Real_Float_REG, - mAX_Real_Double_REG, - mAX_Long_REG + mAX_Long_REG, mAX_Real_Long_REG ) import Maybes ( catMaybes ) import DataCon ( dataConRawArgTys, DataCon ) @@ -182,17 +181,17 @@ We take these register supplies from the *real* registers, i.e. those that are guaranteed to map to machine registers. \begin{code} -vanillaRegNos, floatRegNos, doubleRegNos :: [Int] +vanillaRegNos, floatRegNos, doubleRegNos, longRegNos :: [Int] vanillaRegNos = [1 .. mAX_Real_Vanilla_REG] floatRegNos = [1 .. mAX_Real_Float_REG] doubleRegNos = [1 .. mAX_Real_Double_REG] -longRegNos = [1 .. mAX_Long_REG] +longRegNos = [1 .. mAX_Real_Long_REG] allVanillaRegNos, allFloatRegNos, allDoubleRegNos, allLongRegNos :: [Int] allVanillaRegNos = [1 .. mAX_Vanilla_REG] allFloatRegNos = [1 .. mAX_Float_REG] allDoubleRegNos = [1 .. mAX_Double_REG] -allLongRegNos = [1 .. mAX_Double_REG] +allLongRegNos = [1 .. mAX_Long_REG] type AvailRegs = ( [Int] -- available vanilla regs. , [Int] -- floats |