summaryrefslogtreecommitdiff
path: root/compiler/psystem.pas
diff options
context:
space:
mode:
authornickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2017-12-14 17:36:15 +0000
committernickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2017-12-14 17:36:15 +0000
commit3432df3a19ab04e1d96dd9b1b7d89131d7e05087 (patch)
tree6b5567dadad46e32e8925c775ea413843f87ec00 /compiler/psystem.pas
parent92f9ad1cb3f52bb3078c341dda9c3f9ec15148a5 (diff)
downloadfpc-3432df3a19ab04e1d96dd9b1b7d89131d7e05087.tar.gz
* changed the codepointer type in the i8086 small and compact memory models from
nearpointer to nearcspointer git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@37730 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/psystem.pas')
-rw-r--r--compiler/psystem.pas4
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/psystem.pas b/compiler/psystem.pas
index ae9b239b7a..4efe323ce1 100644
--- a/compiler/psystem.pas
+++ b/compiler/psystem.pas
@@ -166,8 +166,10 @@ implementation
{$ifdef i8086}
if current_settings.x86memorymodel in x86_far_code_models then
voidcodepointertype:=voidfarpointertype
+ else if current_settings.x86memorymodel=mm_tiny then
+ voidcodepointertype:=voidnearpointertype
else
- voidcodepointertype:=voidnearpointertype;
+ voidcodepointertype:=voidnearcspointertype;
voidstackpointertype:=voidnearsspointertype;
{$else i8086}
voidcodepointertype:=voidpointertype;