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

* fix for 885

Browse Source
This commit is contained in:
pierre 2000-03-28 10:06:19 +00:00
parent 920a042079
commit 1223e79acb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/profile.pp
View File

@ -72,13 +72,13 @@ const
cache : pMTABE = nil;
var
djgpp_timer_hdlr : pointer;external name '___djgpp_timer_hdlr';
djgpp_old_timer : tseginfo;external name '___djgpp_old_timer';
start : longint;external name 'start';
_etext : longint;external name '_etext';
starttext : longint;
endtext : longint;
procedure djgpp_timer_hdlr;external name '___djgpp_timer_hdlr';
procedure sbrk_getmem(var p : pointer;size : longint);
@ -310,7 +310,7 @@ begin
flush(stderr);
{$endif DEBUG}
new_timer.segment:=get_cs;
new_timer.offset:=djgpp_timer_hdlr;
new_timer.offset:=@djgpp_timer_hdlr;
reload:=3;
{$ifdef DEBUG}
writeln(stderr,'new pm int8 '+hexstr(new_timer.segment,4)+':'+hexstr(longint(new_timer.offset),8));
@ -328,7 +328,10 @@ begin
end.
{
$Log$
Revision 1.6 2000-03-20 13:09:07 pierre
Revision 1.7 2000-03-28 10:06:19 pierre
* fix for 885
Revision 1.6 2000/03/20 13:09:07 pierre
* fix for bug 876
Revision 1.5 2000/02/09 16:59:29 peter