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

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

Browse Source 
* 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 -
This commit is contained in:
Károly Balogh 2010-10-13 19:58:44 +00:00
parent ec99b1ba40
commit f634ef6640
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/parabase.pas
View File

@ -286,6 +286,12 @@ implementation
{$endif} {$endif}
ppufile.putlongint(longint(hparaloc^.register)); ppufile.putlongint(longint(hparaloc^.register));
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 else
internalerror(2010053115); internalerror(2010053115);
end; end;
@ -329,7 +335,13 @@ implementation
hparaloc^.shiftval:=ppufile.getbyte; hparaloc^.shiftval:=ppufile.getbyte;
{$endif} {$endif}
hparaloc^.register:=tregister(ppufile.getlongint); 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 else
internalerror(2010051301); internalerror(2010051301);
end; end;