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

* fixed wrong asm with inc(qword), but not it's not correctly supported

Browse Source
This commit is contained in:
peter 1999-11-09 22:54:45 +00:00
parent 36912a7a2b
commit 67a8409186
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386inl.pas
View File

@ -1062,6 +1062,7 @@ implementation
else else
asmop:=A_ADD; asmop:=A_ADD;
case p^.resulttype^.size of case p^.resulttype^.size of
8 : opsize:=S_L;
4 : opsize:=S_L; 4 : opsize:=S_L;
2 : opsize:=S_W; 2 : opsize:=S_W;
1 : opsize:=S_B; 1 : opsize:=S_B;
@ -1115,6 +1116,7 @@ implementation
1 : opsize:=S_B; 1 : opsize:=S_B;
2 : opsize:=S_W; 2 : opsize:=S_W;
4 : opsize:=S_L; 4 : opsize:=S_L;
8 : opsize:=S_L;
end; end;
end; end;
pointerdef : begin pointerdef : begin
@ -1426,7 +1428,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.77 1999-11-06 14:34:17 peter Revision 1.78 1999-11-09 22:54:45 peter
* fixed wrong asm with inc(qword), but not it's not correctly supported
Revision 1.77 1999/11/06 14:34:17 peter
* truncated log to 20 revs * truncated log to 20 revs
Revision 1.76 1999/10/29 15:28:51 peter Revision 1.76 1999/10/29 15:28:51 peter