paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 16:29:31 +02: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; procoptions : tprocoptions;
i,params : longint; i,params : longint;
first : boolean; first : boolean;
paraloc : array[0..15] of byte; paraloclen : byte;
paraloc : array[0..127] of byte;
begin begin
write(space,' Return type : '); write(space,' Return type : ');
readtype; readtype;
@ -785,7 +786,8 @@ begin
readsymref; readsymref;
write (space,' Location : '); write (space,' Location : ');
writeln('<not yet implemented>'); writeln('<not yet implemented>');
ppufile.getdata(paraloc,sizeof(paraloc)); paraloclen:=ppufile.getbyte;
ppufile.getdata(paraloc,paraloclen);
end; end;
end; end;
@ -1345,6 +1347,11 @@ begin
begin begin
readcommondef('Procedural type (ProcVar) definition'); readcommondef('Procedural type (ProcVar) definition');
read_abstract_proc_def; read_abstract_proc_def;
space:=' '+space;
{ parast }
readdefinitions(false);
readsymbols;
delete(space,1,4);
end; end;
ibshortstringdef : ibshortstringdef :
@ -1930,7 +1937,10 @@ begin
end. end.
{ {
$Log$ $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 * removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter * vs_hidden parameter for funcret passed in parameter