paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:29:18 +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

7
compiler/ppcgen/agppcgas.pas
View File

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