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

* always pass a valid constsize to ConcatConstSymbol; this prevents a compiler

Browse Source 
internal error on i8086, generated by 'DB xx' or 'DB OFFSET xx'

git-svn-id: trunk@38153 -
This commit is contained in:
nickysn 2018-02-07 16:17:05 +00:00
parent a792a92cfb
commit 5f56f6ec11
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/rax86int.pas
View File

@ -2458,7 +2458,10 @@ Unit Rax86int;
(constsize<>sizeof(pint))
{$endif i8086}
then
Message1(asmr_w_const32bit_for_address,asmsym);
begin
Message1(asmr_w_const32bit_for_address,asmsym);
constsize:=sizeof(pint);
end;
{$ifdef i8086}
if asmsym='@DATA' then
begin