* fixed endless loop in TCGPara.ppuwrite

git-svn-id: trunk@15355 -

compiler/parabase.pas

@@ -280,6 +280,7 @@ implementation
 {$endif}
                 ppufile.putlongint(longint(hparaloc^.register));
               end;
+            hparaloc:=hparaloc^.Next;
           end;
       end;