paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 11:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix anumval wrong overwriting as found out by Sergey

Browse Source 
git-svn-id: trunk@17861 -
This commit is contained in:
pierre 2011-06-28 20:39:53 +00:00
parent 4f12937bb3
commit c07bcefb6b
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ogbase.pas
View File

@ -1805,14 +1805,18 @@ implementation
if oneval<>'' then if oneval<>'' then
begin begin
if oneval[1]='-' then if oneval[1]='-' then
val(oneval,signedval,code) begin
val(oneval,signedval,code);
anumval:=qword(signedval);
end
else else
val(oneval,anumval,code); val(oneval,anumval,code);
if code<>0 then if code<>0 then
Comment(V_Error,'Invalid number '+avalue) Comment(V_Error,'Invalid number '+avalue)
else if (indexpos<MAXVAL) then else
begin
if (indexpos<MAXVAL) then
begin begin
anumval:=qword(signedval);
if source_info.endian<>target_info.endian then if source_info.endian<>target_info.endian then
swapendian(anumval); swapendian(anumval);
{ No range checking here } { No range checking here }
@ -1826,6 +1830,9 @@ implementation
else if bytesize=8 then else if bytesize=8 then
eightbytevalues[indexpos]:=anumval; eightbytevalues[indexpos]:=anumval;
inc(indexpos); inc(indexpos);
end
else
Comment(V_Error,'Buffer overrun in Order_values');
end; end;
end; end;
until allvals=''; until allvals='';