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

* fixed compilation cycle with -Cr option by adding explicit

Browse Source 
longint typecast in PutPtrUInt and putexprint methods.
 + added checks for sizeof and internalerros if size is not handled.
This commit is contained in:
pierre 2002-08-26 14:05:57 +00:00
parent 354a96f9eb
commit b6f43ac07b
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/symppu.pas
View File

@ -330,8 +330,10 @@ implementation
putlongint(longint(lo(v)));
putlongint(longint(hi(v)));
end
else if sizeof(TConstExprInt)=4 then
putlongint(longint(v))
else
putlongint(v);
internalerror(2002082601);
end;
@ -342,8 +344,10 @@ implementation
putlongint(longint(lo(v)));
putlongint(longint(hi(v)));
end
else if sizeof(TConstPtrUInt)=4 then
putlongint(longint(v))
else
putlongint(v);
internalerror(2002082601);
end;
@ -490,7 +494,12 @@ implementation
end.
{
$Log$
Revision 1.15 2002-08-18 20:06:26 peter
Revision 1.16 2002-08-26 14:05:57 pierre
* fixed compilation cycle with -Cr option by adding explicit
longint typecast in PutPtrUInt and putexprint methods.
+ added checks for sizeof and internalerros if size is not handled.
Revision 1.15 2002/08/18 20:06:26 peter
* inlining is now also allowed in interface
* renamed write/load to ppuwrite/ppuload
* tnode storing in ppu