From b5c032874fd0cd64afd8cf750ed78064063ff446 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 9 Jun 2013 17:54:29 +0000
Subject: [PATCH] * set the po_far flag by default in far code memory models
git-svn-id: trunk@24846 -
---
compiler/symdef.pas | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index db67c5ee39..82e96c6d29 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -3870,6 +3870,10 @@ implementation
proctypeoption:=potype_none;
proccalloption:=pocall_none;
procoptions:=[];
+{$ifdef i8086}
+ if current_settings.x86memorymodel in x86_far_code_models then
+ procoptions:=procoptions+[po_far];
+{$endif i8086}
returndef:=voidtype;
savesize:=sizeof(pint);
callerargareasize:=0;