paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 19:05:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation

Browse Source
This commit is contained in:
peter 2004-11-29 20:39:36 +00:00
parent 8117e33c2a
commit acb6b83a20
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/go32v2/dpmiexcp.pp
View File

@ -215,14 +215,7 @@ procedure djgpp_npx_hdlr;external name '___djgpp_npx_hdlr';
procedure djgpp_kbd_hdlr;external name '___djgpp_kbd_hdlr';
procedure djgpp_kbd_hdlr_pc98;external name '___djgpp_kbd_hdlr_pc98';
procedure djgpp_cbrk_hdlr;external name '___djgpp_cbrk_hdlr';
{$endif CREATE_C_FUNCTIONS}
var
endtext : longint;external name '_etext';
starttext : longint;external name 'start';
djgpp_exception_state_ptr : pexception_state;external name '___djgpp_exception_state_ptr';
djgpp_hwint_flags : longint;external name '___djgpp_hwint_flags';
{$ifdef CREATE_C_FUNCTIONS}
var
exceptions_on : boolean;
{ old_int00 : tseginfo;cvar;external;
@ -233,6 +226,12 @@ const
exception_level : longint = 0;
{$endif CREATE_C_FUNCTIONS}
var
endtext : longint;external name '_etext';
starttext : longint;external name 'start';
djgpp_exception_state_ptr : pexception_state;external name '___djgpp_exception_state_ptr';
djgpp_hwint_flags : longint;external name '___djgpp_hwint_flags';
{$ifndef IN_DPMIEXCP_UNIT}
{****************************************************************************
@ -759,7 +758,16 @@ end;
Exceptions
****************************************************************************}
var
__djgpp_selector_limit: cardinal; external name '__djgpp_selector_limit';
{$ifdef CREATE_C_FUNCTIONS}
{$ifdef IN_DPMIEXCP_UNIT}
procedure ___exit(c:longint);cdecl;external name '___exit';
{$endif}
function except_to_sig(excep : longint) : longint;
begin
case excep of
@ -856,15 +864,6 @@ end;
const message_level : byte = 0;
{$ifdef IN_DPMIEXCP_UNIT}
procedure ___exit(c:longint);cdecl;external name '___exit';
{$endif}
{$endif CREATE_C_FUNCTIONS}
var
__djgpp_selector_limit: cardinal; external name '__djgpp_selector_limit';
{$ifdef CREATE_C_FUNCTIONS}
function do_faulting_finish_message(fake : boolean) : integer;cdecl;
public;
var
@ -875,11 +874,9 @@ label
simple_exit;
function _my_cs: word; assembler;
{$ASMMODE INTEL}
asm
mov ax, cs
movw %cs,%ax
end;
{$ASMMODE DEFAULT}
begin
inc(message_level);
@ -887,7 +884,7 @@ begin
goto simple_exit;
do_faulting_finish_message:=0;
signum:=djgpp_exception_state_ptr^.__signum;
{ check video mode for original here and reset (not if PC98) */ }
{ check video mode for original here and reset (not if PC98) }
if ((go32_info_block.linear_address_of_primary_screen <> $a0000) and
(farpeekb(dosmemselector, $449) <> old_video_mode)) then
begin
@ -927,7 +924,7 @@ begin
( * For fake exceptions like SIGABRT report where `raise' was called. * )
if fake and (djgpp_exception_state_ptr^.__cs = _my_cs)
and (djgpp_exception_state_ptr^.__ebp >= djgpp_exception_state_ptr^.__esp)
and (djgpp_exception_state_ptr^.__ebp >= &end) (* ??? *)
and (djgpp_exception_state_ptr^.__ebp >= &end)
and (djgpp_exception_state_ptr^.__ebp < __djgpp_selector_limit) then
itox(djgpp_exception_state_ptr^.__ebp + 1), 8);
else
@ -1621,7 +1618,10 @@ end;
{$endif IN_SYSTEM}
{
$Log$
Revision 1.15 2004-11-25 20:06:55 jonas
Revision 1.16 2004-11-29 20:39:36 peter
fixed compilation
Revision 1.15 2004/11/25 20:06:55 jonas
* fixes from Tomas
Revision 1.14 2003/10/03 21:46:25 peter