Explorar o código

* use win32err unit for win32 target

pierre %!s(int64=22) %!d(string=hai) anos
pai
achega
b378f18d13
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  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}