paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-24 17:09:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid some Range Check errors

Browse Source
This commit is contained in:
pierre 2000-05-19 13:20:37 +00:00
parent 3d7b736511
commit f86765618d
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/win32/dos.pp
View File

@ -367,7 +367,7 @@ End;
external 'kernel32' name 'CloseHandle'; external 'kernel32' name 'CloseHandle';
var var
lastdosexitcode : word; lastdosexitcode : longint;
procedure exec(const path : pathstr;const comline : comstr); procedure exec(const path : pathstr;const comline : comstr);
var var
@ -406,7 +406,7 @@ end;
function dosexitcode : word; function dosexitcode : word;
begin begin
dosexitcode:=lastdosexitcode; dosexitcode:=lastdosexitcode and $ffff;
end; end;
@ -799,8 +799,12 @@ begin
doserror:=0; doserror:=0;
l:=GetFileAttributes(filerec(f).name); l:=GetFileAttributes(filerec(f).name);
if l=$ffffffff then if l=$ffffffff then
doserror:=getlasterror; begin
attr:=l; doserror:=getlasterror;
attr:=0;
end
else
attr:=l and $ffff;
end; end;
@ -950,7 +954,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.35 2000-04-17 20:43:27 pierre Revision 1.36 2000-05-19 13:20:37 pierre
* avoid some Range Check errors
Revision 1.35 2000/04/17 20:43:27 pierre
fix bug 902 for win32 and linux fix bug 902 for win32 and linux
Revision 1.34 2000/02/26 13:24:26 peter Revision 1.34 2000/02/26 13:24:26 peter