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

+ add a 'constsize' parameter to ConcatConstSymbol, so it can be used to

Browse Source 
distinguish between e.g. 16-bit and 32-bit offsets on i8086

git-svn-id: trunk@38141 -
This commit is contained in:
nickysn 2018-02-06 16:22:41 +00:00
parent f3dbb09e21
commit 629be9cee1
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/raatt.pas
View File

@ -896,7 +896,7 @@ unit raatt;
begin
if constsize<>sizeof(pint) then
Message(asmr_w_32bit_const_for_address);
ConcatConstSymbol(curlist,asmsym,asmsymtyp,value)
ConcatConstSymbol(curlist,asmsym,asmsymtyp,value,constsize)
end
else
ConcatConstant(curlist,value,constsize);

4
compiler/rautils.pas
View File

@ -198,7 +198,7 @@ Function AsmRegisterPara(sym: tabstractnormalvarsym): boolean;
Procedure ConcatLabel(p: TAsmList;var l : tasmlabel);
Procedure ConcatConstant(p : TAsmList;value: tcgint; constsize:byte);
Procedure ConcatConstSymbol(p : TAsmList;const sym:string;symtyp:tasmsymtype;l:tcgint);
Procedure ConcatConstSymbol(p : TAsmList;const sym:string;symtyp:tasmsymtype;l:tcgint;constsize:byte);
Procedure ConcatRealConstant(p : TAsmList;value: bestreal; real_typ : tfloattype);
Procedure ConcatString(p : TAsmList;s:string);
procedure ConcatAlign(p:TAsmList;l:tcgint);
@ -1647,7 +1647,7 @@ Begin
end;
Procedure ConcatConstSymbol(p : TAsmList;const sym:string;symtyp:tasmsymtype;l:tcgint);
Procedure ConcatConstSymbol(p : TAsmList;const sym:string;symtyp:tasmsymtype;l:tcgint;constsize:byte);
begin
p.concat(Tai_const.Createname(sym,l));
end;

2
compiler/x86/rax86int.pas
View File

@ -2486,7 +2486,7 @@ Unit Rax86int;
end
else
{$endif i8086}
ConcatConstSymbol(curlist,asmsym,asmsymtyp,value);
ConcatConstSymbol(curlist,asmsym,asmsymtyp,value,constsize);
end
else
ConcatConstant(curlist,value,constsize);