paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-04 11:27:56 +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) tDLLScannerWin32=class(tDLLScanner)
private private
cstring : array[0..127]of char; 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 FindDLL(const s:string;var founddll:string):boolean;
function DllName(Const Name : string) : string; function DllName(Const Name : string) : string;
public public
@ -1147,7 +1147,7 @@ end;
TDLLScannerWin32 TDLLScannerWin32
****************************************************************************} ****************************************************************************}
function tDLLScannerWin32.DOSstubOK(var x:longint):boolean; function tDLLScannerWin32.DOSstubOK(var x:cardinal):boolean;
begin begin
blockread(f,TheWord,2,loaded); blockread(f,TheWord,2,loaded);
if loaded<>2 then if loaded<>2 then
@ -1381,7 +1381,10 @@ function tDLLScannerWin32.scan(const binname:string):longbool;
end. end.
{ {
$Log$ $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 * symtable change to classes
* range check generation and errors fixed, make cycle DEBUG=1 works * range check generation and errors fixed, make cycle DEBUG=1 works
* memory leaks fixed * memory leaks fixed