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

* length of tparalocation is now stored in ppu

Browse Source
This commit is contained in:
peter 2003-04-26 09:56:24 +00:00
parent 35801981d1
commit 063979bcae
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/utils/ppudump.pp
View File

@ -731,7 +731,8 @@ var
procoptions : tprocoptions;
i,params : longint;
first : boolean;
paraloc : array[0..15] of byte;
paraloclen : byte;
paraloc : array[0..127] of byte;
begin
write(space,' Return type : ');
readtype;
@ -785,7 +786,8 @@ begin
readsymref;
write (space,' Location : ');
writeln('<not yet implemented>');
ppufile.getdata(paraloc,sizeof(paraloc));
paraloclen:=ppufile.getbyte;
ppufile.getdata(paraloc,paraloclen);
end;
end;
@ -1345,6 +1347,11 @@ begin
begin
readcommondef('Procedural type (ProcVar) definition');
read_abstract_proc_def;
space:=' '+space;
{ parast }
readdefinitions(false);
readsymbols;
delete(space,1,4);
end;
ibshortstringdef :
@ -1930,7 +1937,10 @@ begin
end.
{
$Log$
Revision 1.39 2003-04-25 20:59:35 peter
Revision 1.40 2003-04-26 09:56:24 peter
* length of tparalocation is now stored in ppu
Revision 1.39 2003/04/25 20:59:35 peter
* removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter