* Another 200301081 fixed

This commit is contained in:
daniel 2003-01-21 08:48:08 +00:00
parent c3321868d5
commit a86b31c4f0

View File

@ -1508,10 +1508,14 @@ uses
new(ref);
ref^:=r;
{$ifdef i386}
if ref^.segment.enum>lastreg then
internalerror(200301081);
{ We allow this exception for i386, since overloading this would be
too much of a a speed penalty}
if ref^.segment.enum=R_INTREGISTER then
begin
if (ref^.segment.number <> NR_NO) and (ref^.segment.number <> NR_DS) then
segprefix:=ref^.segment;
end
else
if not(ref^.segment.enum in [R_DS,R_NO]) then
segprefix:=ref^.segment;
{$endif}
@ -1750,7 +1754,10 @@ uses
end.
{
$Log$
Revision 1.18 2003-01-09 20:40:59 daniel
Revision 1.19 2003-01-21 08:48:08 daniel
* Another 200301081 fixed
Revision 1.18 2003/01/09 20:40:59 daniel
* Converted some code in cgx86.pas to new register numbering
Revision 1.17 2003/01/09 15:49:56 daniel