Explorar el Código

* always pass a valid constsize to ConcatConstSymbol; this prevents a compiler
internal error on i8086, generated by 'DB xx' or 'DB OFFSET xx'

git-svn-id: trunk@38153 -

nickysn hace 7 años
padre
commit
5f56f6ec11
Se han modificado 1 ficheros con 4 adiciones y 1 borrados
  1. 4 1
      compiler/x86/rax86int.pas

+ 4 - 1
compiler/x86/rax86int.pas

@@ -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