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

3
compiler/x86/rax86int.pas
View File

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