paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 13:46:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug #881: for the include/exclude instruction sometimes wrong

Browse Source 
code was generated
This commit is contained in:
florian 2000-03-21 16:24:43 +00:00
parent 2dbe07f533
commit 5925e8fb20
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cg386inl.pas
View File

@ -1371,7 +1371,11 @@ implementation
if psetdef(p^.left^.resulttype)^.settype=smallset then if psetdef(p^.left^.resulttype)^.settype=smallset then
begin begin
if p^.left^.right^.left^.location.loc in [LOC_CREGISTER,LOC_REGISTER] then if p^.left^.right^.left^.location.loc in [LOC_CREGISTER,LOC_REGISTER] then
hregister:=p^.left^.right^.left^.location.register { we don't need a mod 32 because this is done automatically }
{ by the bts instruction. For proper checking we would }
{ need a cmp and jmp, but this should be done by the }
{ type cast code which does range checking if necessary (FK) }
hregister:=makereg32(p^.left^.right^.left^.location.register)
else else
begin begin
{$ifndef noAllocEdi} {$ifndef noAllocEdi}
@ -1507,7 +1511,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.94 2000-02-13 22:46:27 florian Revision 1.95 2000-03-21 16:24:43 florian
* fixed bug 881: for the include/exclude instruction sometimes wrong
code was generated
Revision 1.94 2000/02/13 22:46:27 florian
* fixed an internalerror with writeln * fixed an internalerror with writeln
* fixed arrayconstructor_to_set to force the generation of better code * fixed arrayconstructor_to_set to force the generation of better code
and added a more strict type checking and added a more strict type checking