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

* fixed too long line

Browse Source
This commit is contained in:
peter 1998-06-11 13:58:45 +00:00
parent 86e21aef48
commit a4fa957178
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386ld.pas
View File

@ -146,7 +146,8 @@ implementation
if (pvarsym(p^.symtableentry)^.properties and sp_static)<>0 then if (pvarsym(p^.symtableentry)^.properties and sp_static)<>0 then
begin begin
stringdispose(p^.location.reference.symbol); stringdispose(p^.location.reference.symbol);
p^.location.reference.symbol:=stringdup(p^.symtableentry^.mangledname); p^.location.reference.symbol:=
stringdup(p^.symtableentry^.mangledname);
if p^.symtable^.defowner^.owner^.symtabletype=unitsymtable then if p^.symtable^.defowner^.owner^.symtabletype=unitsymtable then
concat_external(p^.symtableentry^.mangledname,EXT_NEAR); concat_external(p^.symtableentry^.mangledname,EXT_NEAR);
end end
@ -520,7 +521,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.3 1998-06-09 16:01:35 pierre Revision 1.4 1998-06-11 13:58:45 peter
* fixed too long line
Revision 1.3 1998/06/09 16:01:35 pierre
+ added procedure directive parsing for procvars + added procedure directive parsing for procvars
(accepted are popstack cdecl and pascal) (accepted are popstack cdecl and pascal)
+ added C vars with the following syntax + added C vars with the following syntax