suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tweaked the C and C++ backends to take the replacement for Int from the TypeSizes module rather than calculate it locally

Browse Source
This commit is contained in:
Neil Brown 2009-01-23 15:52:28 +00:00
parent 9145c993ea
commit 7457d894f8
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backends/GenerateC.hs
View File

@ -317,9 +317,7 @@ cgetScalarType A.UInt16 = Just "uint16_t"
cgetScalarType A.UInt32 = Just "uint32_t"
cgetScalarType A.UInt64 = Just "uint64_t"
cgetScalarType A.Int8 = Just "int8_t"
cgetScalarType A.Int | cIntSize == 2 = cgetScalarType A.Int16
| cIntSize == 4 = cgetScalarType A.Int32
| cIntSize == 8 = cgetScalarType A.Int64
cgetScalarType A.Int = cgetScalarType cIntReplacement
cgetScalarType A.Int16 = Just "int16_t"
cgetScalarType A.Int32 = Just "int32_t"
cgetScalarType A.Int64 = Just "int64_t"

4
backends/GenerateCPPCSP.hs
View File

@ -648,9 +648,7 @@ cppgetScalarType A.UInt16 = Just "uint16_t"
cppgetScalarType A.UInt32 = Just "uint32_t"
cppgetScalarType A.UInt64 = Just "uint64_t"
cppgetScalarType A.Int8 = Just "int8_t"
cppgetScalarType A.Int | cxxIntSize == 2 = cppgetScalarType A.Int16
| cxxIntSize == 4 = cppgetScalarType A.Int32
| cxxIntSize == 8 = cppgetScalarType A.Int64
cppgetScalarType A.Int = cppgetScalarType cXXIntReplacement
cppgetScalarType A.Int16 = Just "int16_t"
cppgetScalarType A.Int32 = Just "int32_t"
cppgetScalarType A.Int64 = Just "int64_t"