+ 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: http://svn.freepascal.org/svn/fpc/trunk@16154 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 13 insertions, 1 deletions

diff --git a/compiler/parabase.pas b/compiler/parabase.pas
index c2b95f5881..b81273f108 100644
--- a/compiler/parabase.pas
+++ b/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;