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

* removed cosntructor/constructor warning and 0.99.5 recompiles it again

Browse Source
This commit is contained in:
peter 1998-06-19 15:40:42 +00:00
parent c6b54d420b
commit cc8071a7b1
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symsym.inc
View File

@ -857,7 +857,8 @@
constructor tvarsym.init_C(const n,mangled : string;p : pdef); constructor tvarsym.init_C(const n,mangled : string;p : pdef);
begin begin
init(n,p); { The tarsym is necessary for 0.99.5 (PFV) }
tvarsym.init(n,p);
var_options:=var_options or vo_is_C_var; var_options:=var_options or vo_is_C_var;
_mangledname:=strpnew(target_os.Cprefix+mangled); _mangledname:=strpnew(target_os.Cprefix+mangled);
end; end;
@ -865,7 +866,8 @@
constructor tvarsym.load_C; constructor tvarsym.load_C;
begin begin
load; { Adding tvarsym removes the warning }
tvarsym.load;
typ:=varsym; typ:=varsym;
var_options:=readbyte; var_options:=readbyte;
_mangledname:=strpnew(readstring); _mangledname:=strpnew(readstring);
@ -1645,7 +1647,10 @@
{ {
$Log$ $Log$
Revision 1.15 1998-06-17 14:10:18 peter Revision 1.16 1998-06-19 15:40:42 peter
* removed cosntructor/constructor warning and 0.99.5 recompiles it again
Revision 1.15 1998/06/17 14:10:18 peter
* small os2 fixes * small os2 fixes
* fixed interdependent units with newppu (remake3 under linux works now) * fixed interdependent units with newppu (remake3 under linux works now)