diff options
| author | johnvg | 2008-12-19 13:32:55 +0000 |
|---|---|---|
| committer | johnvg | 2008-12-19 13:32:55 +0000 |
| commit | ba7da2f6a9d0a20e4f6055be230f7bf2a387886b (patch) | |
| tree | 044180ef9158ba28b05f2486f26e0617a2cc1962 | |
| parent | add AddStrictnessToExportedFunctionTypes (diff) | |
add hsFile
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1718 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/types.t | 2 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/windows_io.c | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/types.t b/backendC/CleanCompilerSources/types.t index 673436d..f5f7090 100644 --- a/backendC/CleanCompilerSources/types.t +++ b/backendC/CleanCompilerSources/types.t @@ -33,7 +33,7 @@ typedef enum {abcFile = 1, iclFile, dclFile, dumpFile, statFile, stasFile, helpFile, applFile, assFile, sunAssFile, obj00File, obj20File, obj81File, - otherFile,miraFile,miraExpFile + otherFile, hsFile } FileKind; #define EndOfFile ((int) -1) diff --git a/backendC/CleanCompilerSources/windows_io.c b/backendC/CleanCompilerSources/windows_io.c index 8b5014d..e6d9783 100644 --- a/backendC/CleanCompilerSources/windows_io.c +++ b/backendC/CleanCompilerSources/windows_io.c @@ -33,6 +33,8 @@ char *GetFileExtension (FileKind kind) return ".icl"; case dclFile: return ".dcl"; + case hsFile: + return ".hs"; case dumpFile: return ".dmp"; case statFile: @@ -250,6 +252,8 @@ File FOpen (char *fname,FileKind kind,char *mode) res=findfilepath (fname,dclFile,path); if (!res) res=findfilepath (fname,iclFile,path); + if (!res) + res=findfilepath (fname,hsFile,path); if (res){ char *p,*after_last_slash; |