paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 16:10:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initialize DS from CS in the interrupt procedure entry code in tiny model,

Browse Source 
because dgroup emits relocations, which results in a linker warning and broken
  code when the target format is .com file.

git-svn-id: trunk@27517 -
This commit is contained in:
nickysn 2014-04-10 20:02:35 +00:00
parent e21783a281
commit afcb8c3f10
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/x86/cgx86.pas
View File

@ -2754,10 +2754,30 @@ unit cgx86;
list.concat(Taicpu.Op_reg(A_PUSH,S_W,NR_DI));
list.concat(Taicpu.Op_reg(A_PUSH,S_W,NR_DS));
list.concat(Taicpu.Op_reg(A_PUSH,S_W,NR_ES));
reference_reset(dgroup,0);
dgroup.refaddr:=addr_dgroup;
list.concat(Taicpu.Op_ref_reg(A_MOV,S_W,dgroup,NR_AX));
list.concat(Taicpu.Op_reg_reg(A_MOV,S_W,NR_AX,NR_DS));
if current_settings.x86memorymodel=mm_tiny then
begin
{ in the tiny memory model, we can't use dgroup, because that
adds a relocation entry to the .exe and we can't produce a
.com file (because they don't support relactions), so instead
we initialize DS from CS. }
if cs_opt_size in current_settings.optimizerswitches then
begin
list.concat(Taicpu.Op_reg(A_PUSH,S_W,NR_CS));
list.concat(Taicpu.Op_reg(A_POP,S_W,NR_DS));
end
else
begin
list.concat(Taicpu.Op_reg_reg(A_MOV,S_W,NR_CS,NR_AX));
list.concat(Taicpu.Op_reg_reg(A_MOV,S_W,NR_AX,NR_DS));
end;
end
else
begin
reference_reset(dgroup,0);
dgroup.refaddr:=addr_dgroup;
list.concat(Taicpu.Op_ref_reg(A_MOV,S_W,dgroup,NR_AX));
list.concat(Taicpu.Op_reg_reg(A_MOV,S_W,NR_AX,NR_DS));
end;
end;
{$endif i8086}
{$ifdef i386}