paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 11:50:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cache inoutres threadvar address

Browse Source 
git-svn-id: trunk@8824 -
This commit is contained in:
peter 2007-10-16 19:12:29 +00:00
parent 4f862a23a7
commit cd35804502
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/system.inc
View File

@ -607,20 +607,25 @@ end;
procedure fpc_iocheck;[public,alias:'FPC_IOCHECK']; compilerproc; procedure fpc_iocheck;[public,alias:'FPC_IOCHECK']; compilerproc;
var var
l : longint; l : longint;
HInoutRes : PWord;
begin begin
if InOutRes<>0 then HInOutRes:=@InoutRes;
if HInOutRes^<>0 then
begin begin
l:=InOutRes; l:=HInOutRes^;
InOutRes:=0; HInOutRes^:=0;
HandleErrorFrame(l,get_frame); HandleErrorFrame(l,get_frame);
end; end;
end; end;
Function IOResult:Word;{$ifdef SYSTEMINLINE}inline;{$endif} Function IOResult:Word;{$ifdef SYSTEMINLINE}inline;{$endif}
var
HInoutRes : PWord;
Begin Begin
IOResult:=InOutRes; HInoutRes:=@InoutRes;
InOutRes:=0; IOResult:=HInOutRes^;
HInOutRes^:=0;
End; End;