paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-30 06:25:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for the stricter compilemode

Browse Source
This commit is contained in:
peter 2001-04-13 23:51:02 +00:00
parent ff4ee28066
commit 8de2a09d2a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/targets/t_win32.pas
View File

@ -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