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

* added pi_do_call if a procedure has a value shortstring parameter

Browse Source 
(it's copied to the local stackframe with a helper)
This commit is contained in:
Jonas Maebe 2003-05-31 20:23:39 +00:00
parent 18f6811154
commit 5a4c00bedd
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psub.pas
View File

@ -888,6 +888,9 @@ implementation
{ warnings only on local copy ! } { warnings only on local copy ! }
varstate:=vs_used; varstate:=vs_used;
end; end;
if is_shortstring(vartype.def) and
(varspez = vs_value) then
include(current_procinfo.flags,pi_do_call);
end; end;
end; end;
@ -1210,7 +1213,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.120 2003-05-30 23:57:08 peter Revision 1.121 2003-05-31 20:23:39 jonas
* added pi_do_call if a procedure has a value shortstring parameter
(it's copied to the local stackframe with a helper)
Revision 1.120 2003/05/30 23:57:08 peter
* more sparc cleanup * more sparc cleanup
* accumulator removed, splitted in function_return_reg (called) and * accumulator removed, splitted in function_return_reg (called) and
function_result_reg (caller) function_result_reg (caller)