paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ implemented dos.SwapVectors for i8086-msdos

Browse Source 
git-svn-id: trunk@27156 -
This commit is contained in:
nickysn 2014-03-16 12:37:52 +00:00
parent 07c3762164
commit 044a744ba8
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/msdos/dos.pp
View File

@ -745,21 +745,18 @@ begin
end; end;
type swap_proc = procedure; procedure SwapIntVec(IntNo: Byte; var Vector: FarPointer);
var var
_swap_in : swap_proc;external name '_swap_in'; tmpvec: FarPointer;
_swap_out : swap_proc;external name '_swap_out';
_exception_exit : pointer;external name '_exception_exit';
_v2prt0_exceptions_on : longbool;external name '_v2prt0_exceptions_on';
procedure swapvectors;
begin begin
if _exception_exit<>nil then GetIntVec(IntNo, tmpvec);
if _v2prt0_exceptions_on then SetIntVec(IntNo, Vector);
_swap_out() Vector := tmpvec;
else end;
_swap_in();
procedure SwapVectors;
begin
SwapIntVec(0, SaveInt00);
end; end;