+ Workaround for IE2010053115 internal errors while writing PPU with explicitparaloc functions.

* MorphOS cycles again now at least, someone with clue might want to take a look if this is the proper way to fix this.

git-svn-id: trunk@16154 -

compiler/parabase.pas

@@ -286,6 +286,12 @@ implementation
 {$endif}
                   ppufile.putlongint(longint(hparaloc^.register));
                 end;
+              { This seems to be required for systems using explicitparaloc (eg. MorphOS)
+                or otherwise it hits the internalerror below. I don't know if this is
+                the proper way to fix this, someone else with clue might want to take a
+                look. The compiler cycles on the affected systems with this enabled. (KB) }
+              LOC_VOID:
+                begin end
               else
                 internalerror(2010053115);
             end;
@@ -329,7 +335,13 @@ implementation
                   hparaloc^.shiftval:=ppufile.getbyte;
 {$endif}
                   hparaloc^.register:=tregister(ppufile.getlongint);
-                end
+                end;
+              { This seems to be required for systems using explicitparaloc (eg. MorphOS)
+                or otherwise it hits the internalerror below. I don't know if this is
+                the proper way to fix this, someone else with clue might want to take a
+                look. The compiler cycles on the affected systems with this enabled. (KB) }
+              LOC_VOID:
+                begin end
               else
                 internalerror(2010051301);
             end;