mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 05:42:34 +02:00
* fixed reg_cgsize
git-svn-id: trunk@4760 -
This commit is contained in:
parent
48340d291e
commit
d379417ca4
@ -516,10 +516,12 @@ implementation
|
||||
function reg_cgsize(const reg: tregister): tcgsize;
|
||||
begin
|
||||
case getregtype(reg) of
|
||||
R_MMREGISTER,
|
||||
R_FPUREGISTER,
|
||||
R_INTREGISTER :
|
||||
result:=OS_32;
|
||||
R_MMREGISTER:
|
||||
result:=OS_M128;
|
||||
R_FPUREGISTER:
|
||||
result:=OS_F64;
|
||||
else
|
||||
internalerror(200303181);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user