paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 14:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* incompatible size warning or error suppressed for sizes > 4

Browse Source
This commit is contained in:
pierre 1999-01-29 11:24:02 +00:00
parent d9ee9a43c3
commit 8f5a141f9b
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ra386att.pas
View File

@ -1058,14 +1058,19 @@ var
Begin Begin
CheckAndSetOpsize:=true; CheckAndSetOpsize:=true;
{ operandtype for constant get a default value for size } { operandtype for constant get a default value for size }
if (op.operandtype<>OPR_CONSTANT) and (op.size<>S_NO) and (op.size<>size) then { only claim for op.size in S_B, S_W or S_L :
if the var is a float it will be accessed as 2 longs !! }
if (op.operandtype<>OPR_CONSTANT) and (op.size in [S_B,S_W,S_L]) and
(op.size<>size) then
begin begin
CheckAndSetOpsize:=false;
if (cs_compilesystem in aktmoduleswitches) or if (cs_compilesystem in aktmoduleswitches) or
not (cs_check_range in aktlocalswitches) then not (cs_check_range in aktlocalswitches) then
Message(assem_w_size_suffix_and_dest_dont_match) Message(assem_w_size_suffix_and_dest_dont_match)
else else
Message(assem_e_size_suffix_and_dest_dont_match); Begin
Message(assem_e_size_suffix_and_dest_dont_match);
CheckAndSetOpsize:=false;
End;
end; end;
op.size:=size; op.size:=size;
End; End;
@ -3702,7 +3707,10 @@ end.
{ {
$Log$ $Log$
Revision 1.30 1999-01-28 14:12:59 pierre Revision 1.31 1999-01-29 11:24:02 pierre
* incompatible size warning or error suppressed for sizes > 4
Revision 1.30 1999/01/28 14:12:59 pierre
* bug0175 solved give error on $R+ and warning otherwise * bug0175 solved give error on $R+ and warning otherwise
Revision 1.29 1999/01/10 15:37:54 peter Revision 1.29 1999/01/10 15:37:54 peter