* unneeded assembler code converted to pascal

This commit is contained in:
pierre 1999-05-04 23:55:50 +00:00
parent 2ac48e8ad1
commit 4a1e9f1419

View File

@ -634,16 +634,24 @@ begin
end; end;
type swap_proc = procedure;
var var
_swap_in : pointer;external name '_swap_in'; _swap_in : swap_proc;external name '_swap_in';
_swap_out : pointer;external name '_swap_out'; _swap_out : swap_proc;external name '_swap_out';
_exception_exit : pointer;external name '_exception_exit'; _exception_exit : pointer;external name '_exception_exit';
_v2prt0_exceptions_on : longbool;external name '_v2prt0_exceptions_on'; _v2prt0_exceptions_on : longbool;external name '_v2prt0_exceptions_on';
procedure swapvectors; procedure swapvectors;
begin begin
DosError:=0; DosError:=0;
asm if _exception_exit<>nil then
if _v2prt0_exceptions_on then
_swap_in()
else
_swap_out();
(* asm
{ uses four global symbols from v2prt0.as to be able to know the current { uses four global symbols from v2prt0.as to be able to know the current
exception state without using dpmiexcp unit } exception state without using dpmiexcp unit }
movl _exception_exit,%eax movl _exception_exit,%eax
@ -652,14 +660,12 @@ begin
movl _v2prt0_exceptions_on,%eax movl _v2prt0_exceptions_on,%eax
orl %eax,%eax orl %eax,%eax
je .Lexceptions_off je .Lexceptions_off
movl _swap_out,%eax call *_swap_out
call %eax
jmp .Lno_excep jmp .Lno_excep
.Lexceptions_off: .Lexceptions_off:
movl _swap_in,%eax call *_swap_in
call %eax
.Lno_excep: .Lno_excep:
end; end; *)
end; end;
@ -997,7 +1003,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.6 1999-04-28 11:42:44 peter Revision 1.7 1999-05-04 23:55:50 pierre
* unneeded assembler code converted to pascal
Revision 1.6 1999/04/28 11:42:44 peter
+ FileNameCaseSensetive boolean + FileNameCaseSensetive boolean
Revision 1.5 1999/04/02 00:01:29 peter Revision 1.5 1999/04/02 00:01:29 peter