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

* some bugs fix:

Browse Source 
- overload; with external procedures fixed
    - better selection of routine to do an overloaded
      type case
    - ... some more
This commit is contained in:
florian 2001-08-19 21:11:20 +00:00
parent b43aef367e
commit 7db13ea48f
5 changed files with 89 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/n386cal.pas
View File

@ -510,7 +510,7 @@ implementation
if inlined or
(right=nil) then
begin
{ overloaded operator have no symtable }
{ overloaded operator has no symtable }
{ push self }
if assigned(symtableproc) and
(symtableproc.symtabletype=withsymtable) then
@ -1584,7 +1584,14 @@ begin
end.
{
$Log$
Revision 1.28 2001-08-06 21:40:50 peter
Revision 1.29 2001-08-19 21:11:21 florian
* some bugs fix:
- overload; with external procedures fixed
- better selection of routine to do an overloaded
type case
- ... some more
Revision 1.28 2001/08/06 21:40:50 peter
* funcret moved from tprocinfo to tprocdef
Revision 1.27 2001/07/08 21:00:16 peter

21
compiler/ncal.pas
View File

@ -970,13 +970,13 @@ implementation
end;
{ if there are several choices left then for orddef }
{ if a type is totally included in the other }
{ if a type is totally included in the other }
{ we don't fear an overflow , }
{ so we can do as if it is an exact match }
{ this will convert integer to longint }
{ rather than to words }
{ conversion of byte to integer or longint }
{would still not be solved }
{ so we can do as if it is an exact match }
{ this will convert integer to longint }
{ rather than to words }
{ conversion of byte to integer or longint }
{ would still not be solved }
if assigned(procs) and assigned(procs^.next) then
begin
hp:=procs;
@ -1687,7 +1687,14 @@ begin
end.
{
$Log$
Revision 1.41 2001-08-13 12:41:56 jonas
Revision 1.42 2001-08-19 21:11:20 florian
* some bugs fix:
- overload; with external procedures fixed
- better selection of routine to do an overloaded
type case
- ... some more
Revision 1.41 2001/08/13 12:41:56 jonas
* made code for str(x,y) completely processor independent
Revision 1.40 2001/08/06 21:40:46 peter

15
compiler/pdecsub.pas
View File

@ -919,6 +919,7 @@ end;
procedure pd_overload;
begin
include(aktprocsym.symoptions,sp_has_overloaded);
end;
procedure pd_message;
@ -1073,7 +1074,10 @@ begin
current_module.uses_imports:=true;
importlib.preparelib(current_module.modulename^);
end;
if not(m_repeat_forward in aktmodeswitches) then
if not(m_repeat_forward in aktmodeswitches) and
{ if the procedure is declared with the overload option }
{ it requires a full declaration in the implementation part }
not(sp_has_overloaded in aktprocsym.symoptions) then
begin
{ we can only have one overloaded here ! }
if assigned(aktprocsym.definition.nextoverloaded) then
@ -1910,7 +1914,14 @@ const
end.
{
$Log$
Revision 1.32 2001-08-19 11:22:23 peter
Revision 1.33 2001-08-19 21:11:20 florian
* some bugs fix:
- overload; with external procedures fixed
- better selection of routine to do an overloaded
type case
- ... some more
Revision 1.32 2001/08/19 11:22:23 peter
* palmos support from v10 merged
Revision 1.31 2001/08/05 13:18:50 peter

12
compiler/symconst.pas
View File

@ -111,6 +111,8 @@ type
sp_hint_deprecated,
sp_hint_platform,
sp_hint_library
{ is there any use for this constants }
{ else sp_has_overloaded can be moved up FK }
,sp_7
,sp_8
,sp_9
@ -129,6 +131,7 @@ type
,sp_22
,sp_23
,sp_24
,sp_has_overloaded
);
tsymoptions=set of tsymoption;
@ -450,7 +453,14 @@ implementation
end.
{
$Log$
Revision 1.21 2001-08-01 15:07:29 jonas
Revision 1.22 2001-08-19 21:11:21 florian
* some bugs fix:
- overload; with external procedures fixed
- better selection of routine to do an overloaded
type case
- ... some more
Revision 1.21 2001/08/01 15:07:29 jonas
+ "compilerproc" directive support, which turns both the public and mangled
name to lowercase(declaration_name). This prevents a normal user from
accessing the routine, but they can still be easily looked up within

47
compiler/types.pas
View File

@ -824,7 +824,10 @@ implementation
begin
if not explicit then
begin
if (def.deftype=enumdef) or
if ((def.deftype=enumdef) and
{ delphi allows range check errors in
enumeration type casts FK }
not(m_delphi in aktmodeswitches)) or
(cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
@ -1202,14 +1205,41 @@ implementation
passproc:=overloaded_operators[_ASSIGNMENT].definition
else
exit;
{ look for an exact match first }
while passproc<>nil do
begin
if is_equal(passproc.rettype.def,to_def) and
(is_equal(TParaItem(passproc.Para.first).paratype.def,from_def) or
(isconvertable(from_def,TParaItem(passproc.Para.first).paratype.def,convtyp,ordconstn,false)=1)) then
(TParaItem(passproc.Para.first).paratype.def=from_def) then
begin
assignment_overloaded:=passproc;
break;
exit;
end;
passproc:=passproc.nextoverloaded;
end;
passproc:=overloaded_operators[_ASSIGNMENT].definition;
{ .... then look for an equal match }
while passproc<>nil do
begin
if is_equal(passproc.rettype.def,to_def) and
is_equal(TParaItem(passproc.Para.first).paratype.def,from_def) then
begin
assignment_overloaded:=passproc;
exit;
end;
passproc:=passproc.nextoverloaded;
end;
passproc:=overloaded_operators[_ASSIGNMENT].definition;
{ .... then for convert level 1 }
while passproc<>nil do
begin
if is_equal(passproc.rettype.def,to_def) and
(isconvertable(from_def,TParaItem(passproc.Para.first).paratype.def,convtyp,ordconstn,false)=1) then
begin
assignment_overloaded:=passproc;
exit;
end;
passproc:=passproc.nextoverloaded;
end;
@ -1747,7 +1777,14 @@ implementation
end.
{
$Log$
Revision 1.44 2001-07-08 21:00:16 peter
Revision 1.45 2001-08-19 21:11:21 florian
* some bugs fix:
- overload; with external procedures fixed
- better selection of routine to do an overloaded
type case
- ... some more
Revision 1.44 2001/07/08 21:00:16 peter
* various widestring updates, it works now mostly without charset
mapping supported