|
@@ -2139,15 +2139,8 @@ implementation
|
|
|
paraloc[calleeside].init;
|
|
|
paraloc[callerside].init;
|
|
|
if vo_has_explicit_paraloc in varoptions then
|
|
|
- begin
|
|
|
- paraloc[callerside].alignment:=ppufile.getbyte;
|
|
|
- b:=ppufile.getbyte;
|
|
|
- if b<>sizeof(paraloc[callerside].location^) then
|
|
|
- internalerror(200411154);
|
|
|
- ppufile.getdata(paraloc[callerside].add_location^,sizeof(paraloc[callerside].location^));
|
|
|
- paraloc[callerside].size:=paraloc[callerside].location^.size;
|
|
|
- paraloc[callerside].intsize:=tcgsize2size[paraloc[callerside].size];
|
|
|
- end;
|
|
|
+ paraloc[callerside].ppuload(ppufile);
|
|
|
+
|
|
|
ppuload_platform(ppufile);
|
|
|
end;
|
|
|
|
|
@@ -2175,9 +2168,7 @@ implementation
|
|
|
if vo_has_explicit_paraloc in varoptions then
|
|
|
begin
|
|
|
paraloc[callerside].check_simple_location;
|
|
|
- ppufile.putbyte(sizeof(paraloc[callerside].alignment));
|
|
|
- ppufile.putbyte(sizeof(paraloc[callerside].location^));
|
|
|
- ppufile.putdata(paraloc[callerside].location^,sizeof(paraloc[callerside].location^));
|
|
|
+ paraloc[callerside].ppuwrite(ppufile);
|
|
|
end;
|
|
|
writeentry(ppufile,ibparavarsym);
|
|
|
end;
|