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

* fixed ptr() to pointer() typecase

Browse Source
This commit is contained in:
peter 2000-11-13 19:32:31 +00:00
parent 53b0ce0780
commit a7b837f4ff
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/pmode.pas
View File

@ -650,7 +650,7 @@ var s: tseginfo;
begin
if get_rm_callback(PMAddr,RealRegs^,s) then
P:=MakePtr(s.segment,longint(s.offset))
else
else
P:=nil;
allocrmcallback:=P;
end;
@ -658,7 +658,8 @@ end;
procedure freermcallback(RealCallAddr: pointer);
var s: tseginfo;
begin
s.segment:=PtrRec(RealCallAddr).seg; s.offset:=ptr(0,PtrRec(RealCallAddr).ofs);
s.segment:=PtrRec(RealCallAddr).seg;
s.offset:=Pointer(Longint(PtrRec(RealCallAddr).ofs));
free_rm_callback(s);
end;
@ -717,7 +718,10 @@ end;
END.
{
$Log$
Revision 1.1 2000-07-13 09:48:36 michael
Revision 1.2 2000-11-13 19:32:31 peter
* fixed ptr() to pointer() typecase
Revision 1.1 2000/07/13 09:48:36 michael
+ Initial import
Revision 1.2 2000/06/22 09:07:13 pierre