瀏覽代碼

+ support for GO32v1 and GO32v2 added

Tomas Hajny 24 年之前
父節點
當前提交
c05c393691
共有 1 個文件被更改,包括 10 次插入1 次删除
  1. 10 1
      tests/test/units/dos/tdos2.pp

+ 10 - 1
tests/test/units/dos/tdos2.pp

@@ -41,6 +41,12 @@ GetEnv      | Func | Returns the value of a specified environment variable.
 {$IFDEF MSDOS}
 {$IFDEF MSDOS}
         {$DEFINE EXTATTR}
         {$DEFINE EXTATTR}
 {$ENDIF}
 {$ENDIF}
+{$IFDEF GO32V1}
+        {$DEFINE EXTATTR}
+{$ENDIF}
+{$IFDEF GO32V2}
+        {$DEFINE EXTATTR}
+{$ENDIF}
 {$IFDEF OS2}
 {$IFDEF OS2}
         {$DEFINE EXTATTR}
         {$DEFINE EXTATTR}
 {$ENDIF}
 {$ENDIF}
@@ -977,7 +983,10 @@ GetEnv      | Func | Returns the value of a specified environment variable.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.1  2001-05-19 12:10:02  peter
+  Revision 1.2  2001-05-20 18:30:46  hajny
+    + support for GO32v1 and GO32v2 added
+
+  Revision 1.1  2001/05/19 12:10:02  peter
     * renamed to .pp
     * renamed to .pp
 
 
   Revision 1.1  2001/04/02 02:34:13  carl
   Revision 1.1  2001/04/02 02:34:13  carl