mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 11:18:18 +02:00
1e2c70796e
+ basic target information for jvm target (assembling/linking
helpers are still dummies for now)
+ basic jasmin assembler writer
+ cpunode and cputarg units to include the target units in the
compiler
git-svn-id: branches/jvmbackend@18309 -
100 lines
3.6 KiB
ObjectPascal
100 lines
3.6 KiB
ObjectPascal
{
|
|
Copyright (c) 1998-2002 by Florian Klaempfl
|
|
|
|
This unit contains the JVM Jasmin instruction tables
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
****************************************************************************
|
|
}
|
|
unit itcpujas;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
cpubase,cgbase;
|
|
|
|
const
|
|
jas_op2str : array[tasmop] of string[15] = ('<none>',
|
|
'aaload', 'aastore', 'aconst_null',
|
|
'aload', 'aload_0', 'aload_1', 'aload_2', 'aload_3',
|
|
'anewarray', 'areturn', 'arraylength',
|
|
'astore', 'astore_0', 'astore_1', 'astore_2', 'astore_3',
|
|
'athrow', 'baload', 'bastore', 'bipush', 'breakpoint',
|
|
'caload', 'castore', 'checkcast',
|
|
'd2f', 'd2i', 'd2l', 'dadd', 'daload', 'dastore', 'dcmpg', 'dcmpl',
|
|
'dconst_0', 'dconst_1', 'ddiv',
|
|
'dload', 'dload_0', 'dload_1', 'dload_2', 'dload_3',
|
|
'dmul', 'dneg', 'drem', 'dreturn',
|
|
'dstore', 'dstore_0', 'dstore_1', 'dstore_2', 'dstore_3',
|
|
'dsub',
|
|
'dup', 'dup2', 'dup2_x1', 'dup2_x2', 'dup_x1', 'dup_x2',
|
|
'f2d', 'f2i', 'f2l', 'fadd', 'faload', 'fastore', 'fcmpg', 'fcmpl',
|
|
'fconst_0', 'fconst_1', 'fconst_2', 'fdiv',
|
|
'fload', 'fload_0', 'fload_1', 'fload_2', 'fload_3',
|
|
'fmul', 'fneg', 'frem', 'freturn',
|
|
'fstore', 'fstore_0', 'fstore_1', 'fstore_2', 'fstore_3',
|
|
'fsub',
|
|
'getfield', 'getstatic',
|
|
'goto', 'goto_w',
|
|
'i2b', 'i2c', 'i2d', 'i2f', 'i2l', 'i2s',
|
|
'iadd', 'iaload', 'iand', 'iastore',
|
|
'iconst_m1', 'iconst_0', 'iconst_1', 'iconst_2', 'iconst_3',
|
|
'iconst_4', 'iconst_5',
|
|
'idiv',
|
|
'if_acmpeq', 'if_acmpne', 'if_icmpeq', 'if_icmpge', 'if_icmpgt',
|
|
'if_icmple', 'if_icmplt', 'if_icmpne',
|
|
'ifeq', 'ifge', 'ifgt', 'ifle', 'iflt', 'ifne', 'ifnonnull', 'ifnull',
|
|
'iinc',
|
|
'iload', 'iload_0', 'iload_1', 'iload_2', 'iload_3',
|
|
'imul', 'ineg',
|
|
'instanceof',
|
|
'invokeinterface', 'invokespecial', 'invokestatic', 'invokevirtual',
|
|
'ior', 'irem', 'ireturn', 'ishl', 'ishr',
|
|
'istore', 'istore_0', 'istore_1', 'istore_2', 'istore_3',
|
|
'isub', 'iushr', 'ixor',
|
|
'jsr', 'jsr_w',
|
|
'l2d', 'l2f', 'l2i', 'ladd', 'laload', 'land', 'lastore', 'lcmp',
|
|
'lconst_0', 'lconst_1',
|
|
'ldc', 'ldc2_w', 'ldc_w', 'ldiv',
|
|
'lload', 'lload_0', 'lload_1', 'lload_2', 'lload_3',
|
|
'lmul', 'lneg',
|
|
'lookupswitch',
|
|
'lor', 'lrem',
|
|
'lreturn',
|
|
'lshl', 'lshr',
|
|
'lstore', 'lstore_0', 'lstore_1', 'lstore_2', 'lstore_3',
|
|
'lsub', 'lushr', 'lxor',
|
|
'monitorenter',
|
|
'monitorexit',
|
|
'multianewarray',
|
|
'new',
|
|
'newarray',
|
|
'nop',
|
|
'pop', 'pop2',
|
|
'putfield', 'putstatic',
|
|
'ret', 'return',
|
|
'saload', 'sastore', 'sipush',
|
|
'swap',
|
|
'tableswitch',
|
|
'wide'
|
|
);
|
|
|
|
implementation
|
|
|
|
end.
|