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

+ parentfpvoidpointertype changed to a near 'ss' pointer on i8086

Browse Source 
git-svn-id: trunk@27689 -
This commit is contained in:
nickysn 2014-04-29 23:17:22 +00:00
parent 7da8719036
commit a7e5896504
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psystem.pas
View File

@ -289,7 +289,7 @@ implementation
charpointertype:=cpointerdef.create(cansichartype); charpointertype:=cpointerdef.create(cansichartype);
widecharpointertype:=cpointerdef.create(cwidechartype); widecharpointertype:=cpointerdef.create(cwidechartype);
{$ifdef i8086} {$ifdef i8086}
parentfpvoidpointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near); parentfpvoidpointertype:=tcpupointerdefclass(cpointerdef).createx86(voidtype,x86pt_near_ss);
{$else i8086} {$else i8086}
parentfpvoidpointertype:=cpointerdef.create(voidtype); parentfpvoidpointertype:=cpointerdef.create(voidtype);
{$endif i8086} {$endif i8086}