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

* fix clearing of superregset (from Peter)

Browse Source
This commit is contained in:
michael 2004-10-14 10:59:58 +00:00
parent 60c73cc0e5
commit 9e879f3931
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cgbase.pas
View File

@ -427,7 +427,7 @@ implementation
maxreg:Tsuperregister);{$ifdef USEINLINE}inline;{$endif} maxreg:Tsuperregister);{$ifdef USEINLINE}inline;{$endif}
begin begin
fillchar(regs,(maxreg or 7) shr 3,-byte(setall)); fillchar(regs,(maxreg+7) shr 3,-byte(setall));
end; end;
@ -607,7 +607,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.94 2004-08-24 21:02:32 florian Revision 1.95 2004-10-14 10:59:58 michael
* fix clearing of superregset (from Peter)
Revision 1.94 2004/08/24 21:02:32 florian
* fixed longbool(<int64>) on sparc * fixed longbool(<int64>) on sparc
Revision 1.93 2004/07/19 19:21:02 florian Revision 1.93 2004/07/19 19:21:02 florian