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

* also set intsize for paralocs written to ppu

Browse Source
This commit is contained in:
peter 2005-03-14 15:59:18 +00:00
parent b2a39bd32e
commit aee4b7bcf7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symsym.pas
View File

@ -1762,6 +1762,7 @@ implementation
internalerror(200411154); internalerror(200411154);
ppufile.getdata(paraloc[callerside].add_location^,sizeof(paraloc[callerside].location^)); ppufile.getdata(paraloc[callerside].add_location^,sizeof(paraloc[callerside].location^));
paraloc[callerside].size:=paraloc[callerside].location^.size; paraloc[callerside].size:=paraloc[callerside].location^.size;
paraloc[callerside].intsize:=tcgsize2size[paraloc[callerside].size];
end; end;
typ:=paravarsym; typ:=paravarsym;
end; end;
@ -2649,7 +2650,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.201 2005-02-14 17:13:07 peter Revision 1.202 2005-03-14 15:59:18 peter
* also set intsize for paralocs written to ppu
Revision 1.201 2005/02/14 17:13:07 peter
* truncate log * truncate log
Revision 1.200 2005/02/03 21:43:25 peter Revision 1.200 2005/02/03 21:43:25 peter