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

+ extra sanity checks in TCGPara.ppuwrite()

Browse Source 
git-svn-id: trunk@15358 -
This commit is contained in:
Jonas Maebe 2010-05-31 20:48:35 +00:00
parent d167f338a7
commit c8d75245a9
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/parabase.pas
View File

@ -268,19 +268,28 @@ implementation
begin
ppufile.putbyte(byte(hparaloc^.Size));
ppufile.putbyte(byte(hparaloc^.loc));
if hparaloc^.loc=LOC_REFERENCE then
begin
ppufile.putlongint(longint(hparaloc^.reference.index));
ppufile.putaint(hparaloc^.reference.offset);
end
else
begin
case hparaloc^.loc of
LOC_REFERENCE:
begin
ppufile.putlongint(longint(hparaloc^.reference.index));
ppufile.putaint(hparaloc^.reference.offset);
end;
LOC_FPUREGISTER,
LOC_CFPUREGISTER,
LOC_MMREGISTER,
LOC_CMMREGISTER,
LOC_REGISTER,
LOC_CREGISTER :
begin
{$ifdef powerpc64}
ppufile.putbyte(hparaloc^.shiftval);
ppufile.putbyte(hparaloc^.shiftval);
{$endif}
ppufile.putlongint(longint(hparaloc^.register));
end;
hparaloc:=hparaloc^.Next;
ppufile.putlongint(longint(hparaloc^.register));
end;
else
internalerror(2010053115);
end;
hparaloc:=hparaloc^.next;
end;
end;