mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-30 12:20:19 +02:00
- removed orphan helpers
git-svn-id: branches/jvmbackend@18533 -
This commit is contained in:
parent
6614f3220c
commit
2610cea230
@ -212,27 +212,4 @@ implementation
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{******************************************************************
|
|
||||||
jvm type validity checking
|
|
||||||
*******************************************************************}
|
|
||||||
|
|
||||||
function jvmencodetype(def: tdef): string;
|
|
||||||
var
|
|
||||||
errordef: tdef;
|
|
||||||
begin
|
|
||||||
if not jvmtryencodetype(def,result,errordef) then
|
|
||||||
internalerror(2011012305);
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function jvmchecktype(def: tdef; out founderror: tdef): boolean;
|
|
||||||
var
|
|
||||||
encodedtype: string;
|
|
||||||
begin
|
|
||||||
{ don't duplicate the code like in objcdef, since the resulting strings
|
|
||||||
are much shorter here so it's not worth it }
|
|
||||||
result:=jvmtryencodetype(def,encodedtype,founderror);
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user