diff options
Diffstat (limited to 'backendC')
-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; |