paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* kill warnings about non-longint code parameters with val()

Browse Source 
which popped up again after yesterday's patches to the
    potential range error warnings

git-svn-id: trunk@2508 -
This commit is contained in:
Jonas Maebe 2006-02-10 10:08:07 +00:00
parent e422ddbca3
commit cd70b38e8b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ninl.pas
View File

@ -1060,7 +1060,8 @@ implementation
if assigned(orgcode) then if assigned(orgcode) then
addstatement(newstatement,cassignmentnode.create( addstatement(newstatement,cassignmentnode.create(
orgcode, orgcode,
ctemprefnode.create(tempcode))); ctypeconvnode.create_internal(
ctemprefnode.create(tempcode),orgcode.resulttype)));
{ release the temp if we allocated one } { release the temp if we allocated one }
if assigned(tempcode) then if assigned(tempcode) then