소스 검색

* 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}