paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* for vars with is_dll_var the mangledname is written to the ppu as well

Browse Source
This commit is contained in:
florian 2004-03-02 18:12:31 +00:00
parent 5b32162bde
commit fac0d1e23e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symsym.pas
View File

@ -1348,7 +1348,7 @@ implementation
defaultconstsym:=nil; defaultconstsym:=nil;
ppufile.gettype(_vartype); ppufile.gettype(_vartype);
ppufile.getsmallset(varoptions); ppufile.getsmallset(varoptions);
if (vo_is_C_var in varoptions) then if [vo_is_C_var,vo_is_dll_var]*varoptions<>[] then
_mangledname:=stringdup(ppufile.getstring); _mangledname:=stringdup(ppufile.getstring);
end; end;
@ -1385,7 +1385,7 @@ implementation
turn off the regable } turn off the regable }
hvo:=varoptions-[vo_regable,vo_fpuregable]; hvo:=varoptions-[vo_regable,vo_fpuregable];
ppufile.putsmallset(hvo); ppufile.putsmallset(hvo);
if (vo_is_C_var in varoptions) then if [vo_is_C_var,vo_is_dll_var]*varoptions<>[] then
ppufile.putstring(_mangledname^); ppufile.putstring(_mangledname^);
ppufile.writeentry(ibvarsym); ppufile.writeentry(ibvarsym);
end; end;
@ -2250,7 +2250,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.163 2004-03-02 17:32:12 florian Revision 1.164 2004-03-02 18:12:31 florian
* for vars with is_dll_var the mangledname is written to the ppu as well
Revision 1.163 2004/03/02 17:32:12 florian
* make cycle fixed * make cycle fixed
+ pic support for darwin + pic support for darwin
+ support of importing vars from shared libs on darwin implemented + support of importing vars from shared libs on darwin implemented