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

* cdecl array fix, hack to change it to vs_var is not needed

Browse Source
This commit is contained in:
peter 2002-12-23 20:58:52 +00:00
parent 4cb96bf79b
commit 1c3ac34aa8
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/pdecsub.pas
View File

@ -121,7 +121,6 @@ implementation
begin
if (varspez<>vs_var) then
Message(parser_h_c_arrays_are_references);
varspez:=vs_var;
end;
if assigned(vartype.def) and
(is_array_of_const(vartype.def) or
@ -1569,10 +1568,18 @@ const
begin
if not tprocdef(def).has_mangledname then
begin
if assigned(tprocdef(def)._class) then
tprocdef(def).setmangledname(target_info.Cprefix+tprocdef(def)._class.objrealname^+'_'+sym.realname)
if (po_external in def.procoptions) and
target_info.DllScanSupported then
begin
tprocdef(def).setmangledname(sym.realname);
end
else
tprocdef(def).setmangledname(target_info.Cprefix+sym.realname);
begin
if assigned(tprocdef(def)._class) then
tprocdef(def).setmangledname(target_info.Cprefix+tprocdef(def)._class.objrealname^+'_'+sym.realname)
else
tprocdef(def).setmangledname(target_info.Cprefix+sym.realname);
end;
end;
if not assigned(tprocdef(def).parast) then
internalerror(200110234);
@ -2080,7 +2087,10 @@ const
end.
{
$Log$
Revision 1.90 2002-12-17 22:19:33 peter
Revision 1.91 2002-12-23 20:58:52 peter
* cdecl array fix, hack to change it to vs_var is not needed
Revision 1.90 2002/12/17 22:19:33 peter
* fixed pushing of records>8 bytes with stdcall
* simplified hightree loading