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

* getmmregister should test the mm register allocator for being assigned

Browse Source 
git-svn-id: trunk@221 -
This commit is contained in:
florian 2005-06-05 15:32:24 +00:00
parent 6ac47e7d81
commit 83209064f9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/cgx86.pas
View File

@ -181,15 +181,15 @@ unit cgx86;
function Tcgx86.getmmxregister(list:Taasmoutput):Tregister; function Tcgx86.getmmxregister(list:Taasmoutput):Tregister;
begin begin
if not assigned(rg[R_MMXREGISTER]) then if not assigned(rg[R_MMXREGISTER]) then
internalerror(200312124); internalerror(2003121214);
result:=rg[R_MMXREGISTER].getregister(list,R_SUBNONE); result:=rg[R_MMXREGISTER].getregister(list,R_SUBNONE);
end; end;
function Tcgx86.getmmregister(list:Taasmoutput;size:Tcgsize):Tregister; function Tcgx86.getmmregister(list:Taasmoutput;size:Tcgsize):Tregister;
begin begin
if not assigned(rg[R_MMXREGISTER]) then if not assigned(rg[R_MMREGISTER]) then
internalerror(200312124); internalerror(2003121234);
case size of case size of
OS_F64: OS_F64:
result:=rg[R_MMREGISTER].getregister(list,R_SUBMMD); result:=rg[R_MMREGISTER].getregister(list,R_SUBMMD);