From 8de2a09d2aac5cf7373f8d94fefde0b534d6735c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 13 Apr 2001 23:51:02 +0000
Subject: [PATCH]   * fix for the stricter compilemode

---
 compiler/targets/t_win32.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/targets/t_win32.pas b/compiler/targets/t_win32.pas
index 8203a69e55..bcd28c9b98 100644
--- a/compiler/targets/t_win32.pas
+++ b/compiler/targets/t_win32.pas
@@ -66,7 +66,7 @@ interface
     tDLLScannerWin32=class(tDLLScanner)
     private
       cstring : array[0..127]of char;
-      function DOSstubOK(var x:longint):boolean;
+      function DOSstubOK(var x:cardinal):boolean;
       function FindDLL(const s:string;var founddll:string):boolean;
       function DllName(Const Name : string) : string;
     public
@@ -1147,7 +1147,7 @@ end;
                             TDLLScannerWin32
 ****************************************************************************}
 
-    function tDLLScannerWin32.DOSstubOK(var x:longint):boolean;
+    function tDLLScannerWin32.DOSstubOK(var x:cardinal):boolean;
       begin
         blockread(f,TheWord,2,loaded);
         if loaded<>2 then
@@ -1381,7 +1381,10 @@ function tDLLScannerWin32.scan(const binname:string):longbool;
 end.
 {
   $Log$
-  Revision 1.4  2001-04-13 01:22:22  peter
+  Revision 1.5  2001-04-13 23:51:02  peter
+    * fix for the stricter compilemode
+
+  Revision 1.4  2001/04/13 01:22:22  peter
     * symtable change to classes
     * range check generation and errors fixed, make cycle DEBUG=1 works
     * memory leaks fixed