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

* Improved getregisterint

Browse Source
This commit is contained in:
daniel 2003-03-07 21:57:53 +00:00
parent f3c7b66380
commit b253f0b8a1
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/i386/rgcpu.pas
View File

@ -165,18 +165,7 @@ unit rgcpu;
var subreg:Tsubregister; var subreg:Tsubregister;
begin begin
case size of subreg:=cgsize2subreg(size);
OS_8,OS_S8:
subreg:=R_SUBL;
OS_16,OS_S16:
subreg:=R_SUBW;
OS_32,OS_S32:
subreg:=R_SUBD;
OS_64,OS_S64:
subreg:=R_SUBQ;
else
internalerror(200301102);
end;
if countunusedregsint=0 then if countunusedregsint=0 then
internalerror(10); internalerror(10);
@ -522,7 +511,10 @@ end.
{ {
$Log$ $Log$
Revision 1.12 2003-02-19 22:00:16 daniel Revision 1.13 2003-03-07 21:57:53 daniel
* Improved getregisterint
Revision 1.12 2003/02/19 22:00:16 daniel
* Code generator converted to new register notation * Code generator converted to new register notation
- Horribily outdated todo.txt removed - Horribily outdated todo.txt removed