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

Fixed the backend to work out the header extension better

Browse Source
This commit is contained in:
Neil Brown 2009-04-14 17:03:55 +00:00
parent 54175f1a08
commit ca3fc18748
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
backends/GenerateC.hs
View File

@ -191,7 +191,10 @@ cgenTopLevel headerName s
tell ["#include \"", dropPath headerName, "\"\n"]
sequence_ [tell ["#include \"", usedFile, ".tock.h\"\n"]
sequence_ [let usedFile' = if ".tock.inc" `isSuffixOf` usedFile
then take (length usedFile - length ".tock.inc") usedFile
else usedFile
in tell ["#include \"", usedFile', ".tock.h\"\n"]
| usedFile <- Set.toList $ csUsedFiles cs]
nss <- needStackSizes