mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-02 03:22:37 +02:00
1f96763b9d
jsstringh.inc -> use generic inc/sstrings.inc
* added a bunch of extra {$ifdef FPC_HAS_XXX} protections around
routines in inc/sstrings.inc and implemented those routines for
the JVM target in java/jsstrings.inc
* use the majority of the generic routine in sstrings.inc now also
for the JVM target! Only a few changes were needed:
o in a few places, calls to move() for copying shortstring->shortstring
or shortstring->chararray were replaced with calls to a new inline
helper that calls move() in the version in inc/sstrings.inc, and
JLSystem.arraycopt() in in the version in java/jsstrings.inc
o changed the currency argument to str() for the JVM target to constref
so its address can be taken (has to be typecasted to int64 without
changing the value), and similarly changed the temporary result
inside that routine to an array of 1 elements so the address can be
taken
o don't typecast the real value to a record type in str_real for the
JVM target, but work via an int64 instead to extract sign/mantissa/exp
o everything else compiled and worked as is!!
-> val, str, hexstr/octstr/binstr, delete, pos, insert, setstring and
comparetext now all work for shortstrings on the JVM target
git-svn-id: branches/jvmbackend@18836 -
38 lines
390 B
ObjectPascal
38 lines
390 B
ObjectPascal
|
|
unit tval4;
|
|
|
|
{$mode fpc}
|
|
|
|
interface
|
|
|
|
{$ifdef cpujvm}
|
|
uses
|
|
jdk15;
|
|
|
|
{$macro on}
|
|
{$define write:=JLSystem.fout.print}
|
|
{$define writeln:=JLSystem.fout.println}
|
|
{$endif}
|
|
|
|
|
|
function TestAllval4 : boolean;
|
|
|
|
implementation
|
|
|
|
uses
|
|
tvalc;
|
|
|
|
type
|
|
IntegerType = qword;
|
|
|
|
{$i tval.inc}
|
|
|
|
|
|
function TestAllval4 : boolean;
|
|
begin
|
|
Writeln('Test val for qword type');
|
|
TestAllval4:=TestAll;
|
|
end;
|
|
|
|
end.
|