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

* fix for bug #876

Browse Source
This commit is contained in:
pierre 2000-03-20 13:09:07 +00:00
parent 1475038147
commit 4a66eb02e5
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/go32v2/profile.pp
View File

@ -74,8 +74,10 @@ const
var
djgpp_timer_hdlr : pointer;external name '___djgpp_timer_hdlr';
djgpp_old_timer : tseginfo;external name '___djgpp_old_timer';
endtext : longint;external name '_etext';
starttext : longint;external name 'start';
start : longint;external name 'start';
_etext : longint;external name '_etext';
starttext : longint;
endtext : longint;
procedure sbrk_getmem(var p : pointer;size : longint);
@ -285,6 +287,8 @@ procedure mcount_init;
end;
begin
starttext:=longint(@start);
endtext:=longint(@_etext);
h.low := starttext;
h.high := endtext;
histlen := ((h.high-h.low) div 16) * 2; { must be even }
@ -324,7 +328,10 @@ begin
end.
{
$Log$
Revision 1.5 2000-02-09 16:59:29 peter
Revision 1.6 2000-03-20 13:09:07 pierre
* fix for bug 876
Revision 1.5 2000/02/09 16:59:29 peter
* truncated log
Revision 1.4 2000/01/07 16:41:32 daniel
@ -333,4 +340,4 @@ end.
Revision 1.3 2000/01/07 16:32:23 daniel
* copyright 2000 added
}
}