paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +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

8
ide/text/pmode.pas
View File

@ -658,7 +658,8 @@ end;
procedure freermcallback(RealCallAddr: pointer); procedure freermcallback(RealCallAddr: pointer);
var s: tseginfo; var s: tseginfo;
begin 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); free_rm_callback(s);
end; end;
@ -717,7 +718,10 @@ end;
END. END.
{ {
$Log$ $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 + Initial import
Revision 1.2 2000/06/22 09:07:13 pierre Revision 1.2 2000/06/22 09:07:13 pierre