paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:09:25 +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 :
begin
result.loc := LOC_REGISTER;
{$ifndef cpu64bit}
if result.size in [OS_64,OS_S64] then
begin
result.register64.reghi:=accumulatorhigh;
result.register64.reglo:=accumulator;
end
else
{$endif cpu64bit}
result.register:=accumulator;
end;
floatdef :
@ -331,7 +333,10 @@ end.
{
$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
Revision 1.18 2002/09/09 09:10:51 florian