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

* release the register used to hold the value of the case variable

Browse Source 
at the end of the case
This commit is contained in:
Jonas Maebe 2000-03-26 11:33:49 +00:00
parent a3fe5e74cf
commit a7e1271da1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386set.pas
View File

@ -876,9 +876,7 @@ implementation
else
{ it's always not bad }
genlinearlist(p^.nodes);
{$IfDef regallocfix}
ungetregister(hregister);
{$EndIf regallocfix}
{ now generate the instructions }
@ -906,7 +904,11 @@ implementation
end.
{
$Log$
Revision 1.48 2000-02-09 13:22:48 peter
Revision 1.49 2000-03-26 11:33:49 jonas
* release the register used to hold the value of the case variable
at the end of the case
Revision 1.48 2000/02/09 13:22:48 peter
* log truncated
Revision 1.47 2000/01/09 12:35:02 jonas