mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 14:09:17 +02:00
* reference reading fix from Jonas (merged)
This commit is contained in:
parent
fac523d7f6
commit
2c58f511b0
@ -1222,7 +1222,10 @@ Begin
|
|||||||
else
|
else
|
||||||
Inc(opr.ref.offset,l);
|
Inc(opr.ref.offset,l);
|
||||||
end;
|
end;
|
||||||
GotPlus:=(prevasmtoken=AS_PLUS);
|
GotPlus:=(prevasmtoken=AS_PLUS) or
|
||||||
|
(prevasmtoken=AS_MINUS);
|
||||||
|
if GotPlus then
|
||||||
|
negative := prevasmtoken = AS_MINUS;
|
||||||
GotStar:=(prevasmtoken=AS_STAR);
|
GotStar:=(prevasmtoken=AS_STAR);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -1903,7 +1906,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.3 2000-07-30 17:04:43 peter
|
Revision 1.4 2000-08-12 15:32:02 peter
|
||||||
|
* reference reading fix from Jonas (merged)
|
||||||
|
|
||||||
|
Revision 1.3 2000/07/30 17:04:43 peter
|
||||||
* merged fixes
|
* merged fixes
|
||||||
|
|
||||||
Revision 1.2 2000/07/13 11:32:48 michael
|
Revision 1.2 2000/07/13 11:32:48 michael
|
||||||
|
Loading…
Reference in New Issue
Block a user