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

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

Browse Source 
git-svn-id: trunk@45845 -
This commit is contained in:
yury 2020-07-24 16:39:26 +00:00
parent 6edbc9ed7e
commit b1b9d1f341
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/i8086/n8086ld.pas
View File

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