paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 07:27:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Handle invalid register correctly

Browse Source 
git-svn-id: trunk@17894 -
This commit is contained in:
pierre 2011-07-01 11:52:37 +00:00
parent bffd571f9d
commit 37b98917e0
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/avr/cpubase.pas
View File

@ -458,10 +458,13 @@ unit cpubase;
function dwarf_reg(r:tregister):byte; function dwarf_reg(r:tregister):byte;
var
reg : shortint;
begin begin
result:=regdwarf_table[findreg_by_number(r)]; reg:=regdwarf_table[findreg_by_number(r)];
if result=-1 then if reg=-1 then
internalerror(200603251); internalerror(200603251);
result:=reg;
end; end;