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

* fixes to common code to get the alpha compiler compiled applied

Browse Source
This commit is contained in:
florian 2002-09-30 07:07:25 +00:00
parent d5f0cbbf2b
commit 1a6d33860b
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/paramgr.pas
View File

@ -211,12 +211,14 @@ unit paramgr;
enumdef : enumdef :
begin begin
result.loc := LOC_REGISTER; result.loc := LOC_REGISTER;
{$ifndef cpu64bit}
if result.size in [OS_64,OS_S64] then if result.size in [OS_64,OS_S64] then
begin begin
result.register64.reghi:=accumulatorhigh; result.register64.reghi:=accumulatorhigh;
result.register64.reglo:=accumulator; result.register64.reglo:=accumulator;
end end
else else
{$endif cpu64bit}
result.register:=accumulator; result.register:=accumulator;
end; end;
floatdef : floatdef :
@ -331,7 +333,10 @@ end.
{ {
$Log$ $Log$
Revision 1.19 2002-09-30 07:00:47 florian Revision 1.20 2002-09-30 07:07:25 florian
* fixes to common code to get the alpha compiler compiled applied
Revision 1.19 2002/09/30 07:00:47 florian
* fixes to common code to get the alpha compiler compiled applied * fixes to common code to get the alpha compiler compiled applied
Revision 1.18 2002/09/09 09:10:51 florian Revision 1.18 2002/09/09 09:10:51 florian