1 /* src/vm/jit/x86_64/asmpart.S - Java-C interface functions for x86_64
3 Copyright (C) 1996-2005, 2006 R. Grafl, A. Krall, C. Kruegel,
4 C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
5 E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
6 J. Wenninger, Institut f. Computersprachen - TU Wien
8 This file is part of CACAO.
10 This program is free software; you can redistribute it and/or
11 modify it under the terms of the GNU General Public License as
12 published by the Free Software Foundation; either version 2, or (at
13 your option) any later version.
15 This program is distributed in the hope that it will be useful, but
16 WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
25 Contact: cacao@cacaojvm.org
27 Authors: Andreas Krall
31 Changes: Edwin Steiner
33 $Id: asmpart.S 5110 2006-07-11 22:23:55Z twisti $
40 #include "vm/jit/x86_64/arch.h"
41 #include "vm/jit/x86_64/md-abi.h"
42 #include "vm/jit/x86_64/md-asm.h"
43 #include "vm/jit/x86_64/offsets.h"
45 #include "vm/jit/abi-asm.h"
46 #include "vm/jit/methodheader.h"
52 /* export functions ***********************************************************/
54 .globl asm_vm_call_method
55 .globl asm_vm_call_method_int
56 .globl asm_vm_call_method_long
57 .globl asm_vm_call_method_float
58 .globl asm_vm_call_method_double
59 .globl asm_vm_call_method_exception_handler
61 .globl asm_call_jit_compiler
63 .globl asm_handle_exception
64 .globl asm_handle_nat_exception
66 .globl asm_abstractmethoderror
68 .globl asm_wrapper_patcher
70 .globl asm_replacement_out
71 .globl asm_replacement_in
73 .globl asm_builtin_f2i
74 .globl asm_builtin_f2l
75 .globl asm_builtin_d2i
76 .globl asm_builtin_d2l
78 .globl asm_criticalsections
79 .globl asm_getclassvalues_atomic
82 /********************* function asm_calljavafunction ***************************
84 * This function calls a Java-method (which possibly needs compilation) *
85 * with up to 4 address parameters. *
87 * This functions calls the JIT-compiler which eventually translates the *
88 * method into machine code. *
91 * javaobject_header *asm_calljavamethod (methodinfo *m, *
92 * void *arg1, void *arg2, void *arg3, void *arg4); *
94 *******************************************************************************/
98 .quad 0 /* catch type all */
99 .quad 0 /* handler pc */
101 .quad 0 /* start pc */
102 .long 1 /* extable size */
103 .long 0 /* ALIGNMENT PADDING */
104 .quad 0 /* line number table start */
105 .quad 0 /* line number table size */
106 .long 0 /* ALIGNMENT PADDING */
107 .long 0 /* fltsave */
108 .long 0 /* intsave */
111 .long 0 /* frame size */
112 .quad 0 /* codeinfo pointer */
115 asm_vm_call_method_int:
116 asm_vm_call_method_long:
117 asm_vm_call_method_float:
118 asm_vm_call_method_double:
119 sub $(7*8),sp /* keep stack 16-byte aligned */
120 mov %rbx,0*8(sp) /* %rbx is not a callee saved in cacao*/
127 mov a0,itmp1 /* move method pointer for compiler */
128 xor %rbp,%rbp /* set argument stack frame to zero */
130 test a1,a1 /* maybe we have no args... */
133 mov a1,itmp3 /* arg count */
134 mov a2,itmp2 /* pointer to arg block */
136 mov itmp2,%r14 /* save argument block pointer */
137 mov itmp3,%r15 /* save argument count */
139 sub $sizevmarg,itmp2 /* initialize pointer (smaller code) */
140 add $1,itmp3 /* initialize argument count */
141 xor %r12,%r12 /* initialize integer argument counter*/
142 xor %r13,%r13 /* initialize float argument counter */
145 add $sizevmarg,itmp2 /* goto next argument block */
146 dec itmp3 /* argument count - 1 */
147 jz L_register_copy_done
148 andb $0x02,offvmargtype(itmp2) /* is this a float/double type? */
149 jnz L_register_handle_float /* yes, handle it */
151 cmp $INT_ARG_CNT,%r12 /* are we out of integer argument */
152 je L_register_copy /* register? yes, next loop */
154 lea jumptable_integer(%rip),%rbp
155 mov 0(%rbp,%r12,8),%rbx
156 inc %r12 /* integer argument counter + 1 */
159 L_register_handle_float:
160 cmp $FLT_ARG_CNT,%r13 /* are we out of float argument */
161 je L_register_copy /* register? yes, next loop */
163 lea jumptable_float(%rip),%rbp
164 mov 0(%rbp,%r13,8),%rbx
165 inc %r13 /* float argument counter + 1 */
168 L_register_copy_done:
169 mov %r15,%rbp /* calculate remaining arguments */
170 sub %r12,%rbp /* - integer arguments in registers */
171 sub %r13,%rbp /* - float arguments in registers */
172 jle L_copy_done /* are all assigned to registers? */
174 and $0xfffffffffffffffe,%rbp /* keep stack 16-byte aligned */
175 shl $3,%rbp /* calculate stack size */
176 sub %rbp,sp /* stack frame for arguments */
177 mov sp,%rbx /* use %rbx as temp sp */
179 sub $sizevmarg,%r14 /* initialize pointer (smaller code) */
180 add $1,%r15 /* initialize argument count */
183 add $sizevmarg,%r14 /* goto next argument block */
184 dec %r15 /* are there any arguments left? */
185 jz L_copy_done /* no test needed after dec */
187 andb $0x02,offvmargtype(%r14) /* is this a float/double type? */
188 jnz L_stack_handle_float
189 dec %r12 /* arguments assigned to registers */
190 jge L_stack_copy_loop
193 L_stack_handle_float:
194 dec %r13 /* arguments assigned to registers */
195 jge L_stack_copy_loop
198 mov offvmargdata(%r14),itmp3 /* copy s8 argument onto stack */
200 add $8,%rbx /* increase sp to next argument */
201 jmp L_stack_copy_loop
204 /* itmp1 still contains method pointer*/
205 lea L_asm_call_jit_compiler(%rip),mptr
206 mov sp,itmp3 /* calculate the old stack pointer */
209 lea (6*8-256)(itmp3),mptr /* We subtract 256 to force the next */
210 /* move instruction to have a 32-bit */
213 mov (0*8+256)(mptr),itmp3 /* method call as in Java */
214 call *itmp3 /* call JIT compiler */
216 add bp,sp /* remove argument stack frame if any */
218 L_asm_vm_call_method_return:
219 mov 0*8(sp),%rbx /* restore callee saved registers */
225 add $(7*8),sp /* free stack space */
228 asm_vm_call_method_exception_handler:
229 mov xptr,a0 /* pass exception pointer */
230 call builtin_throw_exception@PLT
231 jmp L_asm_vm_call_method_return
243 mov offvmargdata(itmp2),a0
246 mov offvmargdata(itmp2),a1
249 mov offvmargdata(itmp2),a2
252 mov offvmargdata(itmp2),a3
255 mov offvmargdata(itmp2),a4
258 mov offvmargdata(itmp2),a5
273 movq offvmargdata(itmp2),fa0
276 movq offvmargdata(itmp2),fa1
279 movq offvmargdata(itmp2),fa2
282 movq offvmargdata(itmp2),fa3
285 movq offvmargdata(itmp2),fa4
288 movq offvmargdata(itmp2),fa5
291 movq offvmargdata(itmp2),fa6
294 movq offvmargdata(itmp2),fa7
298 /****************** function asm_call_jit_compiler *****************************
300 * invokes the compiler for untranslated JavaVM methods. *
302 * Register R0 contains a pointer to the method info structure (prepared *
303 * by createcompilerstub). Using the return address in R26 and the *
304 * offset in the LDA instruction or using the value in methodptr R28 the *
305 * patching address for storing the method address can be computed: *
307 * method address was either loaded using *
309 * i386_mov_imm_reg(a, REG_ITMP2) ; invokestatic/special *
310 * i386_call_reg(REG_ITMP2) *
314 * i386_mov_membase_reg(REG_SP, 0, REG_ITMP2) ; invokevirtual/interface *
315 * i386_mov_membase_reg(REG_ITMP2, OFFSET(, vftbl), REG_ITMP3) *
316 * i386_mov_membase_reg(REG_ITMP3, OFFSET(vftbl, table[0]) + \ *
317 * sizeof(methodptr) * m->vftblindex, REG_ITMP1) *
318 * i386_call_reg(REG_ITMP1) *
320 * in the static case the method pointer can be computed using the *
321 * return address and the lda function following the jmp instruction *
323 *******************************************************************************/
325 asm_call_jit_compiler:
326 L_asm_call_jit_compiler: /* required for PIC code */
327 sub $(ARG_CNT+1)*8,sp /* +1: keep stack 16-byte aligned */
329 SAVE_ARGUMENT_REGISTERS(0)
331 mov itmp1,a0 /* pass methodinfo pointer */
332 mov mptr,a1 /* pass method pointer */
333 mov sp,a2 /* pass java sp */
334 add $(1+ARG_CNT+1)*8,a2
335 mov (ARG_CNT+1)*8(sp),a3 /* pass ra to java function */
336 call jit_asm_compile@PLT
338 RESTORE_ARGUMENT_REGISTERS(0)
340 add $(ARG_CNT+1)*8,sp /* remove stack frame */
342 test v0,v0 /* check for exception */
343 je L_asm_call_jit_compiler_exception
345 jmp *v0 /* ...and now call the new method */
347 L_asm_call_jit_compiler_exception:
348 call exceptions_get_and_clear_exception@PLT
349 pop xpc /* delete return address */
350 sub $3,xpc /* faulting address is ra - 3 */
351 jmp L_asm_handle_exception
354 /* asm_handle_exception ********************************************************
356 * This function handles an exception. It does not use the usual calling *
357 * conventions. The exception pointer is passed in REG_ITMP1 and the *
358 * pc from the exception raising position is passed in REG_ITMP2. It searches *
359 * the local exception table for a handler. If no one is found, it unwinds *
360 * stacks and continues searching the callers. *
362 *******************************************************************************/
364 asm_handle_nat_exception:
365 add $8,sp /* clear return address of native stub*/
367 asm_handle_exception:
368 L_asm_handle_exception: /* required for PIC code */
369 sub $((ARG_CNT+TMP_CNT)*8),sp /* create maybe-leaf stackframe */
371 SAVE_ARGUMENT_REGISTERS(0) /* we save arg and temp registers in */
372 SAVE_TEMPORARY_REGISTERS(ARG_CNT) /* case this is a leaf method */
374 mov $((ARG_CNT+TMP_CNT)*8),a3 /* prepare a3 for handle_exception */
375 mov $1,t0 /* set maybe-leaf flag */
377 L_asm_handle_exception_stack_loop:
379 mov xptr,0*8(sp) /* save exception pointer */
380 mov xpc,1*8(sp) /* save exception pc */
381 add sp,a3 /* calculate Java sp into a3... */
383 mov a3,3*8(sp) /* ...and save it */
384 mov t0,4*8(sp) /* save maybe-leaf flag */
386 mov xpc,a0 /* exception pc */
387 call codegen_findmethod@PLT
388 mov v0,2*8(sp) /* save data segment pointer */
390 mov 0*8(sp),a0 /* pass exception pointer */
391 mov 1*8(sp),a1 /* pass exception pc */
392 mov v0,a2 /* pass data segment pointer */
393 mov 3*8(sp),a3 /* pass Java stack pointer */
394 call exceptions_handle_exception@PLT
397 jz L_asm_handle_exception_not_catched
399 mov v0,xpc /* move handlerpc into xpc */
400 mov 0*8(sp),xptr /* restore exception pointer */
401 mov 4*8(sp),t0 /* get maybe-leaf flag */
402 add $(6*8),sp /* free stack frame */
404 test t0,t0 /* test for maybe-leaf flag */
405 jz L_asm_handle_exception_no_leaf
407 RESTORE_ARGUMENT_REGISTERS(0) /* if this is a leaf method, we have */
408 RESTORE_TEMPORARY_REGISTERS(ARG_CNT)/* to restore arg and temp registers */
410 add $((ARG_CNT+TMP_CNT)*8),sp /* remove maybe-leaf stackframe */
412 L_asm_handle_exception_no_leaf:
413 jmp *xpc /* jump to the handler */
415 L_asm_handle_exception_not_catched:
416 mov 0*8(sp),xptr /* restore exception pointer */
417 mov 2*8(sp),itmp3 /* restore data segment pointer */
418 mov 4*8(sp),t0 /* get maybe-leaf flag */
422 jz L_asm_handle_exception_no_leaf_stack
424 add $((ARG_CNT+TMP_CNT)*8),sp /* remove maybe-leaf stackframe */
425 xor t0,t0 /* clear the isleaf flags */
427 L_asm_handle_exception_no_leaf_stack:
428 mov FrameSize(itmp3),itmp2l /* get frame size */
429 add sp,itmp2 /* pointer to save area */
431 mov IntSave(itmp3),a0l /* a0l = saved int register count */
454 shl $3,a0l /* multiply by 8 bytes */
459 mov FltSave(itmp3),a0l /* a0l = saved flt register count */
472 movq -5*8(itmp2),%xmm11
474 movq -4*8(itmp2),%xmm12
476 movq -3*8(itmp2),%xmm13
478 movq -2*8(itmp2),%xmm14
480 movq -1*8(itmp2),%xmm15
484 mov FrameSize(itmp3),itmp2l /* get frame size */
485 add itmp2,sp /* unwind stack */
487 /* exception pointer is still set */
488 pop xpc /* the new xpc is return address */
489 sub $3,xpc /* subtract 3 bytes for call */
491 xor a3,a3 /* prepare a3 for handle_exception */
493 jmp L_asm_handle_exception_stack_loop
496 /* asm_abstractmethoderror *****************************************************
498 Creates and throws an AbstractMethodError.
500 *******************************************************************************/
502 asm_abstractmethoderror:
503 mov sp,a0 /* pass java sp */
505 mov 0*8(sp),a1 /* pass exception address */
507 call exceptions_asm_new_abstractmethoderror@PLT
508 /* exception pointer is return value */
509 pop xpc /* get exception address */
510 sub $3,xpc /* exception address is ra - 3 */
511 jmp L_asm_handle_exception
514 /* asm_wrapper_patcher *********************************************************
520 32 pointer to virtual java_objectheader
521 24 machine code (which is patched back later)
522 16 unresolved class/method/field reference
523 8 data segment displacement from load instructions
524 0 pointer to patcher function
527 *******************************************************************************/
530 push bp /* save base pointer */
531 mov sp,bp /* move actual sp to bp */
532 sub $((3+ARG_CNT+TMP_CNT)*8+sizestackframeinfo),sp
533 and $0xfffffffffffffff0,sp /* align sp to 16-byte (this is for */
534 /* leaf functions) */
536 SAVE_ARGUMENT_REGISTERS(3)
537 SAVE_TEMPORARY_REGISTERS(3+ARG_CNT)
539 mov itmp1,0*8(sp) /* save itmp1 and itmp2 */
540 mov itmp2,1*8(sp) /* can be used by some instructions */
542 mov sp,a0 /* create stackframe info */
543 add $((3+ARG_CNT+TMP_CNT)*8),a0
544 xor a1,a1 /* if pv is NULL, use findmethod */
545 mov bp,a2 /* pass java sp */
547 mov ((5+1)*8)(bp),a3 /* pass ra to java function */
548 mov a3,a4 /* xpc is equal to ra */
549 call stacktrace_create_extern_stackframeinfo@PLT
551 mov bp,a0 /* pass stack pointer */
552 add $((1+1)*8),a0 /* skip function pointer */
553 mov 1*8(bp),itmp3 /* get function pointer */
554 call *itmp3 /* call the patcher function */
555 mov v0,2*8(sp) /* save return value */
557 mov sp,a0 /* remove stackframe info */
558 add $((3+ARG_CNT+TMP_CNT)*8),a0
559 call stacktrace_remove_stackframeinfo@PLT
561 RESTORE_ARGUMENT_REGISTERS(3)
562 RESTORE_TEMPORARY_REGISTERS(3+ARG_CNT)
564 mov 0*8(sp),itmp1 /* restore itmp1 and itmp2 */
565 mov 1*8(sp),itmp2 /* can be used by some instructions */
566 mov 2*8(sp),itmp3 /* restore return value */
568 mov bp,sp /* restore original sp */
569 pop bp /* restore bp */
570 add $(5*8),sp /* remove patcher stackframe, keep ra */
572 test itmp3,itmp3 /* exception thrown? */
573 jz L_asm_wrapper_patcher_exception
574 ret /* call new patched code */
576 L_asm_wrapper_patcher_exception:
577 call exceptions_get_and_clear_exception@PLT
578 pop xpc /* get and remove return address */
579 jmp L_asm_handle_exception
582 /* asm_replacement_out *********************************************************
584 This code is jumped to from the replacement-out stubs that are executed
585 when a thread reaches an activated replacement point.
587 The purpose of asm_replacement_out is to read out the parts of the
588 execution state that cannot be accessed from C code, store this state,
589 and then call the C function replace_me.
592 8 start of stack inside method to replace
593 0 rplpoint * info on the replacement point that was reached
595 *******************************************************************************/
597 /* some room to accomodate changes of the stack frame size during replacement */
598 /* XXX we should find a cleaner solution here */
599 #define REPLACEMENT_ROOM 512
602 /* create stack frame */
603 sub $(sizeexecutionstate + REPLACEMENT_ROOM),sp
605 /* save registers in execution state */
606 mov %rax,(RAX*8+offes_intregs)(sp)
607 mov %rbx,(RBX*8+offes_intregs)(sp)
608 mov %rcx,(RCX*8+offes_intregs)(sp)
609 mov %rdx,(RDX*8+offes_intregs)(sp)
610 mov %rsi,(RSI*8+offes_intregs)(sp)
611 mov %rdi,(RDI*8+offes_intregs)(sp)
612 mov %rbp,(RBP*8+offes_intregs)(sp)
613 movq $0 ,(RSP*8+offes_intregs)(sp) /* not used */
614 mov %r8 ,(R8 *8+offes_intregs)(sp)
615 mov %r9 ,(R9 *8+offes_intregs)(sp)
616 mov %r10,(R10*8+offes_intregs)(sp)
617 mov %r11,(R11*8+offes_intregs)(sp)
618 mov %r12,(R12*8+offes_intregs)(sp)
619 mov %r13,(R13*8+offes_intregs)(sp)
620 mov %r14,(R14*8+offes_intregs)(sp)
621 mov %r15,(R15*8+offes_intregs)(sp)
623 movq %xmm0 ,(XMM0 *8+offes_fltregs)(sp)
624 movq %xmm1 ,(XMM1 *8+offes_fltregs)(sp)
625 movq %xmm2 ,(XMM2 *8+offes_fltregs)(sp)
626 movq %xmm3 ,(XMM3 *8+offes_fltregs)(sp)
627 movq %xmm4 ,(XMM4 *8+offes_fltregs)(sp)
628 movq %xmm5 ,(XMM5 *8+offes_fltregs)(sp)
629 movq %xmm6 ,(XMM6 *8+offes_fltregs)(sp)
630 movq %xmm7 ,(XMM7 *8+offes_fltregs)(sp)
631 movq %xmm8 ,(XMM8 *8+offes_fltregs)(sp)
632 movq %xmm9 ,(XMM9 *8+offes_fltregs)(sp)
633 movq %xmm10,(XMM10*8+offes_fltregs)(sp)
634 movq %xmm11,(XMM11*8+offes_fltregs)(sp)
635 movq %xmm12,(XMM12*8+offes_fltregs)(sp)
636 movq %xmm13,(XMM13*8+offes_fltregs)(sp)
637 movq %xmm14,(XMM14*8+offes_fltregs)(sp)
638 movq %xmm15,(XMM15*8+offes_fltregs)(sp)
640 /* calculate sp of method */
642 add $(sizeexecutionstate + REPLACEMENT_ROOM + 8),itmp1
643 mov itmp1,(offes_sp)(sp)
645 /* pv must be looked up via AVL tree */
646 movq $0,(offes_pv)(sp)
648 /* call replace_me */
649 mov -8(itmp1),a0 /* rplpoint * */
650 mov sp,a1 /* arg1: execution state */
651 call replace_me@PLT /* call C function replace_me */
652 call abort@PLT /* NEVER REACHED */
654 /* asm_replacement_in **********************************************************
656 This code writes the given execution state and jumps to the replacement
659 This function never returns!
662 void asm_replacement_in(executionstate *es);
664 *******************************************************************************/
667 mov a0,%rbp /* executionstate *es */
670 mov (offes_sp)(%rbp),%rsp
672 /* store address of new code */
673 push (offes_pc)(%rbp)
675 /* copy registers from execution state */
676 movq (XMM0 *8+offes_fltregs)(%rbp),%xmm0
677 movq (XMM1 *8+offes_fltregs)(%rbp),%xmm1
678 movq (XMM2 *8+offes_fltregs)(%rbp),%xmm2
679 movq (XMM3 *8+offes_fltregs)(%rbp),%xmm3
680 movq (XMM4 *8+offes_fltregs)(%rbp),%xmm4
681 movq (XMM5 *8+offes_fltregs)(%rbp),%xmm5
682 movq (XMM6 *8+offes_fltregs)(%rbp),%xmm6
683 movq (XMM7 *8+offes_fltregs)(%rbp),%xmm7
684 movq (XMM8 *8+offes_fltregs)(%rbp),%xmm8
685 movq (XMM9 *8+offes_fltregs)(%rbp),%xmm9
686 movq (XMM10*8+offes_fltregs)(%rbp),%xmm10
687 movq (XMM11*8+offes_fltregs)(%rbp),%xmm11
688 movq (XMM12*8+offes_fltregs)(%rbp),%xmm12
689 movq (XMM13*8+offes_fltregs)(%rbp),%xmm13
690 movq (XMM14*8+offes_fltregs)(%rbp),%xmm14
691 movq (XMM15*8+offes_fltregs)(%rbp),%xmm15
693 mov (RAX*8+offes_intregs)(%rbp),%rax
694 mov (RBX*8+offes_intregs)(%rbp),%rbx
695 mov (RCX*8+offes_intregs)(%rbp),%rcx
696 mov (RDX*8+offes_intregs)(%rbp),%rdx
697 mov (RSI*8+offes_intregs)(%rbp),%rsi
698 mov (RDI*8+offes_intregs)(%rbp),%rdi
699 mov (R8 *8+offes_intregs)(%rbp),%r8
700 mov (R9 *8+offes_intregs)(%rbp),%r9
701 mov (R10*8+offes_intregs)(%rbp),%r10
702 mov (R11*8+offes_intregs)(%rbp),%r11
703 mov (R12*8+offes_intregs)(%rbp),%r12
704 mov (R13*8+offes_intregs)(%rbp),%r13
705 mov (R14*8+offes_intregs)(%rbp),%r14
706 mov (R15*8+offes_intregs)(%rbp),%r15
708 mov (RBP*8+offes_intregs)(%rbp),%rbp
710 /* jump to new code */
714 /* asm_builtin_x2x *************************************************************
716 * Wrapper functions for float to int corner cases *
718 *******************************************************************************/
723 SAVE_ARGUMENT_REGISTERS(0)
728 RESTORE_ARGUMENT_REGISTERS(0)
737 SAVE_ARGUMENT_REGISTERS(0)
742 RESTORE_ARGUMENT_REGISTERS(0)
751 SAVE_ARGUMENT_REGISTERS(0)
756 RESTORE_ARGUMENT_REGISTERS(0)
765 SAVE_ARGUMENT_REGISTERS(0)
770 RESTORE_ARGUMENT_REGISTERS(0)
776 asm_getclassvalues_atomic:
779 movl offbaseval(a0),itmp1l
780 movl offdiffval(a0),itmp2l
781 movl offbaseval(a1),itmp3l
783 movl itmp1l,offcast_super_baseval(a2)
784 movl itmp2l,offcast_super_diffval(a2)
785 movl itmp3l,offcast_sub_baseval(a2)
790 asm_criticalsections:
791 #if defined(ENABLE_THREADS)
799 /* Disable exec-stacks, required for Gentoo ***********************************/
801 #if defined(__GCC__) && defined(__ELF__)
802 .section .note.GNU-stack,"",@progbits
807 * These are local overrides for various environment variables in Emacs.
808 * Please do not remove this and leave it at the end of the file, where
809 * Emacs will automagically detect them.
810 * ---------------------------------------------------------------------
813 * indent-tabs-mode: t
817 * vim:noexpandtab:sw=4:ts=4: