mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-24 03:39:31 +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;
|
||||
|
||||
{******************************************************************
|
||||
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.
|
||||
|
Loading…
Reference in New Issue
Block a user