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

* 64bit typecast

Browse Source
This commit is contained in:
peter 2004-12-15 21:09:06 +00:00
parent 29db12ecfa
commit c3f6b3125e
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/symtype.pas
View File

@ -1257,7 +1257,7 @@ implementation
function tcompilerppufile.getasmsymbol:tasmsymbol;
begin
getasmsymbol:=tasmsymbol(pointer(getlongint));
getasmsymbol:=tasmsymbol(pointer(ptrint(getlongint)));
end;
@ -1457,7 +1457,10 @@ finalization
end.
{
$Log$
Revision 1.48 2004-11-15 23:35:31 peter
Revision 1.49 2004-12-15 21:09:06 peter
* 64bit typecast
Revision 1.48 2004/11/15 23:35:31 peter
* tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym