aboutsummaryrefslogtreecommitdiff
path: root/backendC
diff options
context:
space:
mode:
Diffstat (limited to 'backendC')
-rw-r--r--backendC/CleanCompilerSources/types.t2
-rw-r--r--backendC/CleanCompilerSources/windows_io.c4
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;