paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added new unit flag uf_i8086_ss_equals_ds, which indicates memory models with

Browse Source 
SS=DS. This is currently redundant (whether SS=DS can be derived by the other
  i8086 memory model unit flags), but in the future will allow adding extra
  memory models, where the SS=DS assumption differs from the current ones.

git-svn-id: trunk@34139 -
This commit is contained in:
nickysn 2016-07-16 11:16:25 +00:00
parent 44e4b638ec
commit a8ad82b99f
3 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/fppu.pas
View File

@ -302,6 +302,14 @@ var
Message(unit_u_ppu_invalid_memory_model,@queuecomment);
exit;
end;
if ((ppufile.header.common.flags and uf_i8086_ss_equals_ds)<>0) xor
(current_settings.x86memorymodel in [mm_tiny,mm_small,mm_medium]) then
begin
ppufile.free;
ppufile:=nil;
Message(unit_u_ppu_invalid_memory_model,@queuecomment);
exit;
end;
{$endif i8086}
{$ifdef cpufpemu}
{ check if floating point emulation is on?
@ -1293,6 +1301,8 @@ var
flags:=flags or uf_i8086_huge_data;
if current_settings.x86memorymodel=mm_tiny then
flags:=flags or uf_i8086_cs_equals_ds;
if current_settings.x86memorymodel in [mm_tiny,mm_small,mm_medium] then
flags:=flags or uf_i8086_ss_equals_ds;
{$endif i8086}
{$ifdef cpufpemu}
if (cs_fp_emulation in current_settings.moduleswitches) then

1
compiler/ppu.pas
View File

@ -78,6 +78,7 @@ const
uf_i8086_cs_equals_ds = $10000000; { this unit uses an i8086 memory model with CS=DS (i.e. tiny) }
uf_package_deny = $20000000; { this unit must not be part of a package }
uf_package_weak = $40000000; { this unit may be completely contained in a package }
uf_i8086_ss_equals_ds = $80000000; { this unit uses an i8086 memory model with SS=DS (i.e. tiny, small or medium) }
type
{ bestreal is defined based on the target architecture }

5
compiler/utils/ppuutils/ppudump.pp
View File

@ -537,7 +537,7 @@ type
str : string[30];
end;
const
flagopts=30;
flagopts=31;
flagopt : array[1..flagopts] of tflagopt=(
(mask: $1 ;str:'init'),
(mask: $2 ;str:'final'),
@ -570,7 +570,8 @@ const
(mask: $8000000 ;str:'i8086_huge_data'),
(mask: $10000000;str:'i8086_cs_equals_ds'),
(mask: $20000000;str:'package_deny'),
(mask: $40000000;str:'package_weak')
(mask: $40000000;str:'package_weak'),
(mask: $80000000;str:'i8086_ss_equals_ds')
);
var
i,ntflags : longint;