mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 23:21:57 +02:00
- removed po_java procoption, since it wasn't really used for anything
git-svn-id: branches/jvmbackend@18694 -
This commit is contained in:
parent
7e7bdc3c55
commit
4074bf412b
@ -782,7 +782,6 @@ implementation
|
||||
begin
|
||||
if is_java_class_or_interface(pd.struct) then
|
||||
begin
|
||||
include(pd.procoptions,po_java);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
@ -608,7 +608,7 @@ implementation
|
||||
{ in case the referred method is from an external class }
|
||||
exclude(result.procoptions,po_external);
|
||||
{ not virtual/override/abstract/... }
|
||||
result.procoptions:=result.procoptions*[po_classmethod,po_staticmethod,po_java,po_varargs,po_public];
|
||||
result.procoptions:=result.procoptions*[po_classmethod,po_staticmethod,po_varargs,po_public];
|
||||
result.synthetickind:=tsk_callthrough;
|
||||
{ so we know the name of the routine to call through to }
|
||||
result.skpara:=pd;
|
||||
|
@ -315,9 +315,7 @@ type
|
||||
(when calling a regular procedure using the above convention, it will
|
||||
simply not see the frame pointer parameter, and since the caller cleans
|
||||
up the stack will also remain balanced) }
|
||||
po_delphi_nested_cc,
|
||||
{ Java method }
|
||||
po_java
|
||||
po_delphi_nested_cc
|
||||
);
|
||||
tprocoptions=set of tprocoption;
|
||||
|
||||
|
@ -1148,8 +1148,7 @@ const
|
||||
(mask:po_objc; str:'ObjC'),
|
||||
(mask:po_enumerator_movenext; str:'EnumeratorMoveNext'),
|
||||
(mask:po_optional; str: 'Optional'),
|
||||
(mask:po_delphi_nested_cc;str: 'Delphi-style nested frameptr'),
|
||||
(mask:po_java ;str: 'Java method')
|
||||
(mask:po_delphi_nested_cc;str: 'Delphi-style nested frameptr')
|
||||
);
|
||||
var
|
||||
proctypeoption : tproctypeoption;
|
||||
|
Loading…
Reference in New Issue
Block a user