浏览代码

+ wdosx target

carl 23 年之前
父节点
当前提交
bd0fb2399d
共有 1 个文件被更改,包括 6 次插入3 次删除
  1. 6 3
      compiler/scandir.pas

+ 6 - 3
compiler/scandir.pas

@@ -230,7 +230,7 @@ implementation
 
 
     procedure dir_description;
     procedure dir_description;
       begin
       begin
-        if not (target_info.target in [target_i386_os2,target_i386_win32,target_i386_netware]) then
+        if not (target_info.target in [target_i386_os2,target_i386_win32,target_i386_netware,target_i386_wdosx]) then
           Message(scan_w_description_not_support);
           Message(scan_w_description_not_support);
         { change description global var in all cases }
         { change description global var in all cases }
         { it not used but in win32, os2 and netware }
         { it not used but in win32, os2 and netware }
@@ -736,7 +736,7 @@ implementation
         major, minor, revision : longint;
         major, minor, revision : longint;
         error : integer;
         error : integer;
       begin
       begin
-        if not (target_info.target in [target_i386_os2,target_i386_win32,target_i386_netware]) then
+        if not (target_info.target in [target_i386_os2,target_i386_win32,target_i386_netware,target_i386_wdosx]) then
           begin
           begin
             Message(scan_n_version_not_support);
             Message(scan_n_version_not_support);
             exit;
             exit;
@@ -925,7 +925,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.11  2002-04-04 19:06:05  peter
+  Revision 1.12  2002-04-07 13:34:20  carl
+  + wdosx target
+
+  Revision 1.11  2002/04/04 19:06:05  peter
     * removed unused units
     * removed unused units
     * use tlocation.size in cg.a_*loc*() routines
     * use tlocation.size in cg.a_*loc*() routines