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

* fix write pointerconst

Browse Source
This commit is contained in:
peter 2003-12-22 22:15:13 +00:00
parent cc8d2226ae
commit 545c1b82d5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symppu.pas
View File

@ -109,7 +109,7 @@ implementation
var var
l1,l2 : longint; l1,l2 : longint;
begin begin
if sizeof(tconstexprint)=8 then if sizeof(TConstPtrUInt)=8 then
begin begin
l1:=getlongint; l1:=getlongint;
l2:=getlongint; l2:=getlongint;
@ -400,7 +400,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.23 2003-10-28 15:36:01 peter Revision 1.24 2003-12-22 22:15:13 peter
* fix write pointerconst
Revision 1.23 2003/10/28 15:36:01 peter
* absolute to object field supported, fixes tb0458 * absolute to object field supported, fixes tb0458
Revision 1.22 2003/10/23 14:44:07 peter Revision 1.22 2003/10/23 14:44:07 peter