paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 07:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Const ansistrings are not copied.

Browse Source
This commit is contained in:
michael 1998-07-20 23:35:50 +00:00
parent e770d0b0d2
commit d5d8c510eb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/types.pas
View File

@ -237,7 +237,7 @@ unit types;
begin begin
dont_copy_const_param:=(def^.deftype in [arraydef,objectdef,formaldef,recorddef]) or dont_copy_const_param:=(def^.deftype in [arraydef,objectdef,formaldef,recorddef]) or
((def^.deftype=stringdef) and (pstringdef(def)^.string_typ in [st_shortstring,st_longstring])) or ((def^.deftype=stringdef) and (pstringdef(def)^.string_typ in [st_ansistring,st_shortstring,st_longstring])) or
((def^.deftype=procvardef) and ((pprocvardef(def)^.options and pomethodpointer)<>0)) or ((def^.deftype=procvardef) and ((pprocvardef(def)^.options and pomethodpointer)<>0)) or
((def^.deftype=setdef) and (psetdef(def)^.settype<>smallset)); ((def^.deftype=setdef) and (psetdef(def)^.settype<>smallset));
end; end;
@ -858,7 +858,10 @@ unit types;
end. end.
{ {
$Log$ $Log$
Revision 1.15 1998-07-18 22:54:32 florian Revision 1.16 1998-07-20 23:35:50 michael
Const ansistrings are not copied.
Revision 1.15 1998/07/18 22:54:32 florian
* some ansi/wide/longstring support fixed: * some ansi/wide/longstring support fixed:
o parameter passing o parameter passing
o returning as result from functions o returning as result from functions