* i8086: Removed internal error, since global vars can be in registers if used only in pascalmain.

git-svn-id: trunk@45845 -

compiler/i8086/n8086ld.pas

@@ -211,9 +211,8 @@ implementation
                      (not (vo_is_external in gvs.varoptions) and gvs.Owner.iscurrentunit) then
                     begin
                       inherited pass_generate_code;
-                      if (location.loc<>LOC_REFERENCE) and (location.loc<>LOC_CREFERENCE) then
-                        internalerror(2017121101);
-                      location.reference.segment:=NR_DS;
+                      if location.loc in [LOC_REFERENCE,LOC_CREFERENCE] then
+                        location.reference.segment:=NR_DS;
                       exit;
                     end;