Преглед изворни кода

* use win32err unit for win32 target

pierre пре 22 година
родитељ
комит
b378f18d13
1 измењених фајлова са 5 додато и 0 уклоњено
  1. 5 0
      tests/test/units/dos/tfexpand.pp

+ 5 - 0
tests/test/units/dos/tfexpand.pp

@@ -7,6 +7,11 @@ program TFExpand;
 (* to be written to the console to make debugging easier.  *)
 
 uses
+{$ifdef FPC}
+  {$ifdef win32}
+    win32err,
+  {$endif win32}
+{$endif FPC}
  Dos;
 
 {$IFDEF OS2}