mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 22:14:25 +02:00
* helper name of val for qword fixed
This commit is contained in:
parent
7a03f8f3b2
commit
9e14dafee3
@ -782,7 +782,7 @@ implementation
|
|||||||
procedureprefix := 'FPC_VAL_UINT_';
|
procedureprefix := 'FPC_VAL_UINT_';
|
||||||
end;
|
end;
|
||||||
End;
|
End;
|
||||||
|
|
||||||
saveregvars($ff);
|
saveregvars($ff);
|
||||||
emitcall(procedureprefix+pstringdef(node.resulttype)^.stringtypname);
|
emitcall(procedureprefix+pstringdef(node.resulttype)^.stringtypname);
|
||||||
{ before disposing node we need to ungettemp !! PM }
|
{ before disposing node we need to ungettemp !! PM }
|
||||||
@ -1682,7 +1682,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.9 2000-12-07 17:19:46 jonas
|
Revision 1.10 2000-12-09 22:51:37 florian
|
||||||
|
* helper name of val for qword fixed
|
||||||
|
|
||||||
|
Revision 1.9 2000/12/07 17:19:46 jonas
|
||||||
* new constant handling: from now on, hex constants >$7fffffff are
|
* new constant handling: from now on, hex constants >$7fffffff are
|
||||||
parsed as unsigned constants (otherwise, $80000000 got sign extended
|
parsed as unsigned constants (otherwise, $80000000 got sign extended
|
||||||
and became $ffffffff80000000), all constants in the longint range
|
and became $ffffffff80000000), all constants in the longint range
|
||||||
|
Loading…
Reference in New Issue
Block a user