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

* fixed typed file read/write

Browse Source
This commit is contained in:
peter 1999-01-20 12:34:22 +00:00
parent ffddbaccac
commit 10aa438409
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/types.pas
View File

@ -379,7 +379,8 @@ unit types;
{ true if a parameter is too large to copy and only the address is pushed } { true if a parameter is too large to copy and only the address is pushed }
function push_addr_param(def : pdef) : boolean; function push_addr_param(def : pdef) : boolean;
begin begin
push_addr_param:=(def^.deftype in [arraydef,objectdef,formaldef,recorddef]) or push_addr_param:=never_copy_const_param or
(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_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));
@ -1046,7 +1047,10 @@ unit types;
end. end.
{ {
$Log$ $Log$
Revision 1.44 1999-01-15 11:33:03 pierre Revision 1.45 1999-01-20 12:34:22 peter
* fixed typed file read/write
Revision 1.44 1999/01/15 11:33:03 pierre
* bug in mmx code removed * bug in mmx code removed
Revision 1.43 1998/12/30 13:41:20 peter Revision 1.43 1998/12/30 13:41:20 peter