mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 06:05:57 +02:00
* fixed web bug #1383
This commit is contained in:
parent
f005ab378d
commit
177ec922fe
@ -233,7 +233,9 @@ implementation
|
||||
begin
|
||||
emit_reg(A_PUSH,S_L,R_EAX);
|
||||
popeax:=true;
|
||||
end;
|
||||
end
|
||||
else
|
||||
getexplicitregister32(R_EAX);
|
||||
emit_reg_reg(A_MOV,S_L,R_EDX,R_EAX);
|
||||
end
|
||||
else
|
||||
@ -996,7 +998,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.9 2000-12-07 17:19:46 jonas
|
||||
Revision 1.10 2001-02-03 12:52:34 jonas
|
||||
* fixed web bug 1383
|
||||
|
||||
Revision 1.9 2000/12/07 17:19:46 jonas
|
||||
* new constant handling: from now on, hex constants >$7fffffff are
|
||||
parsed as unsigned constants (otherwise, $80000000 got sign extended
|
||||
and became $ffffffff80000000), all constants in the longint range
|
||||
|
Loading…
Reference in New Issue
Block a user