From 6400d612e8eb74681ba7bdce0e469a8190c283c7 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 11 Feb 2018 22:26:01 +0000
Subject: [PATCH] + seg(<procvardef>) returns the segment stored in the
 procedure variable

git-svn-id: trunk@38216 -
---
 .gitattributes              |  1 +
 compiler/i8086/n8086inl.pas |  8 ++++++++
 tests/tbs/tb0638.pp         | 14 ++++++++++++++
 3 files changed, 23 insertions(+)
 create mode 100644 tests/tbs/tb0638.pp

diff --git a/.gitattributes b/.gitattributes
index 96862cc5a5..83be369594 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -11488,6 +11488,7 @@ tests/tbs/tb0634.pp svneol=native#text/pascal
 tests/tbs/tb0635.pp svneol=native#text/pascal
 tests/tbs/tb0636.pp svneol=native#text/pascal
 tests/tbs/tb0637.pp svneol=native#text/pascal
+tests/tbs/tb0638.pp svneol=native#text/pascal
 tests/tbs/tb205.pp svneol=native#text/plain
 tests/tbs/tb610.pp svneol=native#text/pascal
 tests/tbs/tb613.pp svneol=native#text/plain
diff --git a/compiler/i8086/n8086inl.pas b/compiler/i8086/n8086inl.pas
index fa1fdf00b8..77f4d23ed4 100644
--- a/compiler/i8086/n8086inl.pas
+++ b/compiler/i8086/n8086inl.pas
@@ -204,6 +204,14 @@ implementation
                    location_reset(location,LOC_REGISTER,OS_16);
                    location.register:=cg.GetNextReg(left.location.register);
                  end;
+               LOC_CREFERENCE,LOC_REFERENCE:
+                  begin
+                    location_reset(location,LOC_REGISTER,OS_16);
+                    segref:=left.location.reference;
+                    inc(segref.offset,2);
+                    location.register:=cg.getintregister(current_asmdata.CurrAsmList,OS_16);
+                    current_asmdata.CurrAsmList.concat(Taicpu.op_ref_reg(A_MOV,S_W,segref,location.register));
+                  end;
                else
                  internalerror(2017121301);
              end;
diff --git a/tests/tbs/tb0638.pp b/tests/tbs/tb0638.pp
new file mode 100644
index 0000000000..1445fa0824
--- /dev/null
+++ b/tests/tbs/tb0638.pp
@@ -0,0 +1,14 @@
+{ %cpu=i8086 }
+{$MODE TP}
+program tsegie;
+
+var
+  a: procedure;
+  b: word;
+
+begin
+  a:=nil;
+  b:=seg(a);
+  if b<>0 then
+    halt(1);
+end.