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

* better checking of valid addr_no

Browse Source
This commit is contained in:
florian 2025-01-02 15:38:07 +01:00
parent 4185e1dc67
commit 8674d45d7b
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ppcgen/agppcgas.pas
View File

@ -97,12 +97,13 @@ unit agppcgas;
begin
with ref do
begin
if ((offset < -32768) or (offset > 32767)) and
(refaddr = addr_no) then
internalerror(2006052501);
case refaddr of
addr_no:
s := '';
begin
if (offset < -32768) or (offset > 32767) or assigned(symbol) then
internalerror(2006052501);
s:='';
end;
addr_pic_no_got:
begin
{ used for TOC-based loads }
@ -142,15 +143,15 @@ unit agppcgas;
end;
end;
if offset<0 then
s:=s+tostr(offset)
s:=s+tostr(offset)
else
if (offset>0) then
begin
if assigned(symbol) then
s:=s+'+'+tostr(offset)
else
s:=s+tostr(offset);
end;
if (offset>0) then
begin
if assigned(symbol) then
s:=s+'+'+tostr(offset)
else
s:=s+tostr(offset);
end;
if not(refaddr in [addr_no,addr_pic_no_got]) then
begin