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 5041 2006-06-20 09:10:05Z 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
62 .globl asm_handle_exception
63 .globl asm_handle_nat_exception
65 .globl asm_wrapper_patcher
67 .globl asm_replacement_out
68 .globl asm_replacement_in
70 .globl asm_builtin_f2i
71 .globl asm_builtin_f2l
72 .globl asm_builtin_d2i
73 .globl asm_builtin_d2l
75 .globl asm_criticalsections
76 .globl asm_getclassvalues_atomic
79 /********************* function asm_calljavafunction ***************************
81 * This function calls a Java-method (which possibly needs compilation) *
82 * with up to 4 address parameters. *
84 * This functions calls the JIT-compiler which eventually translates the *
85 * method into machine code. *
88 * javaobject_header *asm_calljavamethod (methodinfo *m, *
89 * void *arg1, void *arg2, void *arg3, void *arg4); *
91 *******************************************************************************/
95 .quad 0 /* catch type all */
96 .quad 0 /* handler pc */
98 .quad 0 /* start pc */
99 .long 1 /* extable size */
100 .long 0 /* ALIGNMENT PADDING */
101 .quad 0 /* line number table start */
102 .quad 0 /* line number table size */
103 .long 0 /* ALIGNMENT PADDING */
104 .long 0 /* fltsave */
105 .long 0 /* intsave */
108 .long 0 /* frame size */
109 .quad 0 /* codeinfo pointer */
112 asm_vm_call_method_int:
113 asm_vm_call_method_long:
114 asm_vm_call_method_float:
115 asm_vm_call_method_double:
116 sub $(7*8),sp /* keep stack 16-byte aligned */
117 mov %rbx,0*8(sp) /* %rbx is not a callee saved in cacao*/
124 mov a0,itmp1 /* move method pointer for compiler */
125 xor %rbp,%rbp /* set argument stack frame to zero */
127 test a1,a1 /* maybe we have no args... */
130 mov a1,itmp3 /* arg count */
131 mov a2,itmp2 /* pointer to arg block */
133 mov itmp2,%r14 /* save argument block pointer */
134 mov itmp3,%r15 /* save argument count */
136 sub $sizevmarg,itmp2 /* initialize pointer (smaller code) */
137 add $1,itmp3 /* initialize argument count */
138 xor %r12,%r12 /* initialize integer argument counter*/
139 xor %r13,%r13 /* initialize float argument counter */
142 add $sizevmarg,itmp2 /* goto next argument block */
143 dec itmp3 /* argument count - 1 */
144 jz L_register_copy_done
145 andb $0x02,offvmargtype(itmp2) /* is this a float/double type? */
146 jnz L_register_handle_float /* yes, handle it */
148 cmp $INT_ARG_CNT,%r12 /* are we out of integer argument */
149 je L_register_copy /* register? yes, next loop */
151 lea jumptable_integer(%rip),%rbp
152 mov 0(%rbp,%r12,8),%rbx
153 inc %r12 /* integer argument counter + 1 */
156 L_register_handle_float:
157 cmp $FLT_ARG_CNT,%r13 /* are we out of float argument */
158 je L_register_copy /* register? yes, next loop */
160 lea jumptable_float(%rip),%rbp
161 mov 0(%rbp,%r13,8),%rbx
162 inc %r13 /* float argument counter + 1 */
165 L_register_copy_done:
166 mov %r15,%rbp /* calculate remaining arguments */
167 sub %r12,%rbp /* - integer arguments in registers */
168 sub %r13,%rbp /* - float arguments in registers */
169 jle L_copy_done /* are all assigned to registers? */
171 and $0xfffffffffffffffe,%rbp /* keep stack 16-byte aligned */
172 shl $3,%rbp /* calculate stack size */
173 sub %rbp,sp /* stack frame for arguments */
174 mov sp,%rbx /* use %rbx as temp sp */
176 sub $sizevmarg,%r14 /* initialize pointer (smaller code) */
177 add $1,%r15 /* initialize argument count */
180 add $sizevmarg,%r14 /* goto next argument block */
181 dec %r15 /* are there any arguments left? */
182 jz L_copy_done /* no test needed after dec */
184 andb $0x02,offvmargtype(%r14) /* is this a float/double type? */
185 jnz L_stack_handle_float
186 dec %r12 /* arguments assigned to registers */
187 jge L_stack_copy_loop
190 L_stack_handle_float:
191 dec %r13 /* arguments assigned to registers */
192 jge L_stack_copy_loop
195 mov offvmargdata(%r14),itmp3 /* copy s8 argument onto stack */
197 add $8,%rbx /* increase sp to next argument */
198 jmp L_stack_copy_loop
201 /* itmp1 still contains method pointer*/
202 lea L_asm_call_jit_compiler(%rip),mptr
203 mov sp,itmp3 /* calculate the old stack pointer */
206 lea (6*8-256)(itmp3),mptr /* We subtract 256 to force the next */
207 /* move instruction to have a 32-bit */
210 mov (0*8+256)(mptr),itmp3 /* method call as in Java */
211 call *itmp3 /* call JIT compiler */
213 add bp,sp /* remove argument stack frame if any */
215 L_asm_vm_call_method_return:
216 mov 0*8(sp),%rbx /* restore callee saved registers */
222 add $(7*8),sp /* free stack space */
225 asm_vm_call_method_exception_handler:
226 mov xptr,a0 /* pass exception pointer */
227 call builtin_throw_exception@PLT
228 jmp L_asm_vm_call_method_return
240 mov offvmargdata(itmp2),a0
243 mov offvmargdata(itmp2),a1
246 mov offvmargdata(itmp2),a2
249 mov offvmargdata(itmp2),a3
252 mov offvmargdata(itmp2),a4
255 mov offvmargdata(itmp2),a5
270 movq offvmargdata(itmp2),fa0
273 movq offvmargdata(itmp2),fa1
276 movq offvmargdata(itmp2),fa2
279 movq offvmargdata(itmp2),fa3
282 movq offvmargdata(itmp2),fa4
285 movq offvmargdata(itmp2),fa5
288 movq offvmargdata(itmp2),fa6
291 movq offvmargdata(itmp2),fa7
295 /****************** function asm_call_jit_compiler *****************************
297 * invokes the compiler for untranslated JavaVM methods. *
299 * Register R0 contains a pointer to the method info structure (prepared *
300 * by createcompilerstub). Using the return address in R26 and the *
301 * offset in the LDA instruction or using the value in methodptr R28 the *
302 * patching address for storing the method address can be computed: *
304 * method address was either loaded using *
306 * i386_mov_imm_reg(a, REG_ITMP2) ; invokestatic/special *
307 * i386_call_reg(REG_ITMP2) *
311 * i386_mov_membase_reg(REG_SP, 0, REG_ITMP2) ; invokevirtual/interface *
312 * i386_mov_membase_reg(REG_ITMP2, OFFSET(, vftbl), REG_ITMP3) *
313 * i386_mov_membase_reg(REG_ITMP3, OFFSET(vftbl, table[0]) + \ *
314 * sizeof(methodptr) * m->vftblindex, REG_ITMP1) *
315 * i386_call_reg(REG_ITMP1) *
317 * in the static case the method pointer can be computed using the *
318 * return address and the lda function following the jmp instruction *
320 *******************************************************************************/
322 asm_call_jit_compiler:
323 L_asm_call_jit_compiler: /* required for PIC code */
324 sub $(ARG_CNT+1)*8,sp /* +1: keep stack 16-byte aligned */
326 SAVE_ARGUMENT_REGISTERS(0)
328 mov itmp1,a0 /* pass methodinfo pointer */
329 mov mptr,a1 /* pass method pointer */
330 mov sp,a2 /* pass java sp */
331 add $(1+ARG_CNT+1)*8,a2
332 mov (ARG_CNT+1)*8(sp),a3 /* pass ra to java function */
333 call jit_asm_compile@PLT
335 RESTORE_ARGUMENT_REGISTERS(0)
337 add $(ARG_CNT+1)*8,sp /* remove stack frame */
339 test v0,v0 /* check for exception */
340 je L_asm_call_jit_compiler_exception
342 jmp *v0 /* ...and now call the new method */
344 L_asm_call_jit_compiler_exception:
345 #if defined(ENABLE_THREADS)
346 call builtin_asm_get_exceptionptrptr@PLT
347 mov v0,itmp2 /* v0 == xptr */
349 lea _no_threads_exceptionptr(%rip),itmp2
351 mov (itmp2),xptr /* get the exception pointer */
352 movl $0,(itmp2) /* clear exception pointer */
354 pop xpc /* delete return address */
355 sub $5,xpc /* faulting address is ra - 5 */
356 jmp L_asm_handle_exception
359 /* asm_handle_exception ********************************************************
361 * This function handles an exception. It does not use the usual calling *
362 * conventions. The exception pointer is passed in REG_ITMP1 and the *
363 * pc from the exception raising position is passed in REG_ITMP2. It searches *
364 * the local exception table for a handler. If no one is found, it unwinds *
365 * stacks and continues searching the callers. *
367 *******************************************************************************/
369 asm_handle_nat_exception:
370 add $8,sp /* clear return address of native stub*/
372 asm_handle_exception:
373 L_asm_handle_exception: /* required for PIC code */
374 sub $((ARG_CNT+TMP_CNT)*8),sp /* create maybe-leaf stackframe */
376 SAVE_ARGUMENT_REGISTERS(0) /* we save arg and temp registers in */
377 SAVE_TEMPORARY_REGISTERS(ARG_CNT) /* case this is a leaf method */
379 mov $((ARG_CNT+TMP_CNT)*8),a3 /* prepare a3 for handle_exception */
380 mov $1,t0 /* set maybe-leaf flag */
382 L_asm_handle_exception_stack_loop:
384 mov xptr,0*8(sp) /* save exception pointer */
385 mov xpc,1*8(sp) /* save exception pc */
386 add sp,a3 /* calculate Java sp into a3... */
388 mov a3,3*8(sp) /* ...and save it */
389 mov t0,4*8(sp) /* save maybe-leaf flag */
391 mov xpc,a0 /* exception pc */
392 call codegen_findmethod@PLT
393 mov v0,2*8(sp) /* save data segment pointer */
395 mov 0*8(sp),a0 /* pass exception pointer */
396 mov 1*8(sp),a1 /* pass exception pc */
397 mov v0,a2 /* pass data segment pointer */
398 mov 3*8(sp),a3 /* pass Java stack pointer */
399 call exceptions_handle_exception@PLT
402 jz L_asm_handle_exception_not_catched
404 mov v0,xpc /* move handlerpc into xpc */
405 mov 0*8(sp),xptr /* restore exception pointer */
406 mov 4*8(sp),t0 /* get maybe-leaf flag */
407 add $(6*8),sp /* free stack frame */
409 test t0,t0 /* test for maybe-leaf flag */
410 jz L_asm_handle_exception_no_leaf
412 RESTORE_ARGUMENT_REGISTERS(0) /* if this is a leaf method, we have */
413 RESTORE_TEMPORARY_REGISTERS(ARG_CNT)/* to restore arg and temp registers */
415 add $((ARG_CNT+TMP_CNT)*8),sp /* remove maybe-leaf stackframe */
417 L_asm_handle_exception_no_leaf:
418 jmp *xpc /* jump to the handler */
420 L_asm_handle_exception_not_catched:
421 mov 0*8(sp),xptr /* restore exception pointer */
422 mov 2*8(sp),itmp3 /* restore data segment pointer */
423 mov 4*8(sp),t0 /* get maybe-leaf flag */
427 jz L_asm_handle_exception_no_leaf_stack
429 add $((ARG_CNT+TMP_CNT)*8),sp /* remove maybe-leaf stackframe */
430 xor t0,t0 /* clear the isleaf flags */
432 L_asm_handle_exception_no_leaf_stack:
433 mov FrameSize(itmp3),itmp2l /* get frame size */
434 add sp,itmp2 /* pointer to save area */
436 mov IntSave(itmp3),a0l /* a0l = saved int register count */
459 shl $3,a0l /* multiply by 8 bytes */
464 mov FltSave(itmp3),a0l /* a0l = saved flt register count */
477 movq -5*8(itmp2),%xmm11
479 movq -4*8(itmp2),%xmm12
481 movq -3*8(itmp2),%xmm13
483 movq -2*8(itmp2),%xmm14
485 movq -1*8(itmp2),%xmm15
489 mov FrameSize(itmp3),itmp2l /* get frame size */
490 add itmp2,sp /* unwind stack */
492 /* exception pointer is still set */
493 pop xpc /* the new xpc is return address */
494 sub $3,xpc /* subtract 3 bytes for call */
496 xor a3,a3 /* prepare a3 for handle_exception */
498 jmp L_asm_handle_exception_stack_loop
501 /* asm_wrapper_patcher *********************************************************
507 32 pointer to virtual java_objectheader
508 24 machine code (which is patched back later)
509 16 unresolved class/method/field reference
510 8 data segment displacement from load instructions
511 0 pointer to patcher function
514 *******************************************************************************/
517 push bp /* save base pointer */
518 mov sp,bp /* move actual sp to bp */
519 sub $((3+ARG_CNT+TMP_CNT)*8+sizestackframeinfo),sp
520 and $0xfffffffffffffff0,sp /* align sp to 16-byte (this is for */
521 /* leaf functions) */
523 SAVE_ARGUMENT_REGISTERS(3)
524 SAVE_TEMPORARY_REGISTERS(3+ARG_CNT)
526 mov itmp1,0*8(sp) /* save itmp1 and itmp2 */
527 mov itmp2,1*8(sp) /* can be used by some instructions */
529 mov sp,a0 /* create stackframe info */
530 add $((3+ARG_CNT+TMP_CNT)*8),a0
531 xor a1,a1 /* if pv is NULL, use findmethod */
532 mov bp,a2 /* pass java sp */
534 mov ((5+1)*8)(bp),a3 /* pass ra to java function */
535 mov a3,a4 /* xpc is equal to ra */
536 call stacktrace_create_extern_stackframeinfo@PLT
538 mov bp,a0 /* pass stack pointer */
539 add $((1+1)*8),a0 /* skip function pointer */
540 mov 1*8(bp),itmp3 /* get function pointer */
541 call *itmp3 /* call the patcher function */
542 mov v0,2*8(sp) /* save return value */
544 mov sp,a0 /* remove stackframe info */
545 add $((3+ARG_CNT+TMP_CNT)*8),a0
546 call stacktrace_remove_stackframeinfo@PLT
548 RESTORE_ARGUMENT_REGISTERS(3)
549 RESTORE_TEMPORARY_REGISTERS(3+ARG_CNT)
551 mov 0*8(sp),itmp1 /* restore itmp1 and itmp2 */
552 mov 1*8(sp),itmp2 /* can be used by some instructions */
553 mov 2*8(sp),itmp3 /* restore return value */
555 mov bp,sp /* restore original sp */
556 pop bp /* restore bp */
557 add $(5*8),sp /* remove patcher stackframe, keep ra */
559 test itmp3,itmp3 /* exception thrown? */
560 jz L_asm_wrapper_patcher_exception
561 ret /* call new patched code */
563 L_asm_wrapper_patcher_exception:
564 #if defined(ENABLE_THREADS)
565 call builtin_asm_get_exceptionptrptr@PLT
566 mov v0,itmp2 /* v0 == xptr */
568 mov _no_threads_exceptionptr,itmp2
570 mov (itmp2),xptr /* get the exception pointer */
571 movl $0,(itmp2) /* clear exception pointer */
573 pop xpc /* get and remove return address */
574 jmp L_asm_handle_exception
577 /* asm_replacement_out *********************************************************
579 This code is jumped to from the replacement-out stubs that are executed
580 when a thread reaches an activated replacement point.
582 The purpose of asm_replacement_out is to read out the parts of the
583 execution state that cannot be accessed from C code, store this state,
584 and then call the C function replace_me.
587 8 start of stack inside method to replace
588 0 rplpoint * info on the replacement point that was reached
590 *******************************************************************************/
592 /* some room to accomodate changes of the stack frame size during replacement */
593 /* XXX we should find a cleaner solution here */
594 #define REPLACEMENT_ROOM 512
597 /* create stack frame */
598 sub $(sizeexecutionstate + REPLACEMENT_ROOM),sp
600 /* save registers in execution state */
601 mov %rax,(RAX*8+offes_intregs)(sp)
602 mov %rbx,(RBX*8+offes_intregs)(sp)
603 mov %rcx,(RCX*8+offes_intregs)(sp)
604 mov %rdx,(RDX*8+offes_intregs)(sp)
605 mov %rsi,(RSI*8+offes_intregs)(sp)
606 mov %rdi,(RDI*8+offes_intregs)(sp)
607 mov %rbp,(RBP*8+offes_intregs)(sp)
608 movq $0 ,(RSP*8+offes_intregs)(sp) /* not used */
609 mov %r8 ,(R8 *8+offes_intregs)(sp)
610 mov %r9 ,(R9 *8+offes_intregs)(sp)
611 mov %r10,(R10*8+offes_intregs)(sp)
612 mov %r11,(R11*8+offes_intregs)(sp)
613 mov %r12,(R12*8+offes_intregs)(sp)
614 mov %r13,(R13*8+offes_intregs)(sp)
615 mov %r14,(R14*8+offes_intregs)(sp)
616 mov %r15,(R15*8+offes_intregs)(sp)
618 movq %xmm0 ,(XMM0 *8+offes_fltregs)(sp)
619 movq %xmm1 ,(XMM1 *8+offes_fltregs)(sp)
620 movq %xmm2 ,(XMM2 *8+offes_fltregs)(sp)
621 movq %xmm3 ,(XMM3 *8+offes_fltregs)(sp)
622 movq %xmm4 ,(XMM4 *8+offes_fltregs)(sp)
623 movq %xmm5 ,(XMM5 *8+offes_fltregs)(sp)
624 movq %xmm6 ,(XMM6 *8+offes_fltregs)(sp)
625 movq %xmm7 ,(XMM7 *8+offes_fltregs)(sp)
626 movq %xmm8 ,(XMM8 *8+offes_fltregs)(sp)
627 movq %xmm9 ,(XMM9 *8+offes_fltregs)(sp)
628 movq %xmm10,(XMM10*8+offes_fltregs)(sp)
629 movq %xmm11,(XMM11*8+offes_fltregs)(sp)
630 movq %xmm12,(XMM12*8+offes_fltregs)(sp)
631 movq %xmm13,(XMM13*8+offes_fltregs)(sp)
632 movq %xmm14,(XMM14*8+offes_fltregs)(sp)
633 movq %xmm15,(XMM15*8+offes_fltregs)(sp)
635 /* calculate sp of method */
637 add $(sizeexecutionstate + REPLACEMENT_ROOM + 8),itmp1
638 mov itmp1,(offes_sp)(sp)
640 /* pv must be looked up via AVL tree */
641 movq $0,(offes_pv)(sp)
643 /* call replace_me */
644 mov -8(itmp1),a0 /* rplpoint * */
645 mov sp,a1 /* arg1: execution state */
646 call replace_me@PLT /* call C function replace_me */
647 call abort@PLT /* NEVER REACHED */
649 /* asm_replacement_in **********************************************************
651 This code writes the given execution state and jumps to the replacement
654 This function never returns!
657 void asm_replacement_in(executionstate *es);
659 *******************************************************************************/
662 mov a0,%rbp /* executionstate *es */
665 mov (offes_sp)(%rbp),%rsp
667 /* store address of new code */
668 push (offes_pc)(%rbp)
670 /* copy registers from execution state */
671 movq (XMM0 *8+offes_fltregs)(%rbp),%xmm0
672 movq (XMM1 *8+offes_fltregs)(%rbp),%xmm1
673 movq (XMM2 *8+offes_fltregs)(%rbp),%xmm2
674 movq (XMM3 *8+offes_fltregs)(%rbp),%xmm3
675 movq (XMM4 *8+offes_fltregs)(%rbp),%xmm4
676 movq (XMM5 *8+offes_fltregs)(%rbp),%xmm5
677 movq (XMM6 *8+offes_fltregs)(%rbp),%xmm6
678 movq (XMM7 *8+offes_fltregs)(%rbp),%xmm7
679 movq (XMM8 *8+offes_fltregs)(%rbp),%xmm8
680 movq (XMM9 *8+offes_fltregs)(%rbp),%xmm9
681 movq (XMM10*8+offes_fltregs)(%rbp),%xmm10
682 movq (XMM11*8+offes_fltregs)(%rbp),%xmm11
683 movq (XMM12*8+offes_fltregs)(%rbp),%xmm12
684 movq (XMM13*8+offes_fltregs)(%rbp),%xmm13
685 movq (XMM14*8+offes_fltregs)(%rbp),%xmm14
686 movq (XMM15*8+offes_fltregs)(%rbp),%xmm15
688 mov (RAX*8+offes_intregs)(%rbp),%rax
689 mov (RBX*8+offes_intregs)(%rbp),%rbx
690 mov (RCX*8+offes_intregs)(%rbp),%rcx
691 mov (RDX*8+offes_intregs)(%rbp),%rdx
692 mov (RSI*8+offes_intregs)(%rbp),%rsi
693 mov (RDI*8+offes_intregs)(%rbp),%rdi
694 mov (R8 *8+offes_intregs)(%rbp),%r8
695 mov (R9 *8+offes_intregs)(%rbp),%r9
696 mov (R10*8+offes_intregs)(%rbp),%r10
697 mov (R11*8+offes_intregs)(%rbp),%r11
698 mov (R12*8+offes_intregs)(%rbp),%r12
699 mov (R13*8+offes_intregs)(%rbp),%r13
700 mov (R14*8+offes_intregs)(%rbp),%r14
701 mov (R15*8+offes_intregs)(%rbp),%r15
703 mov (RBP*8+offes_intregs)(%rbp),%rbp
705 /* jump to new code */
709 /* asm_builtin_x2x *************************************************************
711 * Wrapper functions for float to int corner cases *
713 *******************************************************************************/
718 SAVE_ARGUMENT_REGISTERS(0)
723 RESTORE_ARGUMENT_REGISTERS(0)
732 SAVE_ARGUMENT_REGISTERS(0)
737 RESTORE_ARGUMENT_REGISTERS(0)
746 SAVE_ARGUMENT_REGISTERS(0)
751 RESTORE_ARGUMENT_REGISTERS(0)
760 SAVE_ARGUMENT_REGISTERS(0)
765 RESTORE_ARGUMENT_REGISTERS(0)
771 asm_getclassvalues_atomic:
774 movl offbaseval(a0),itmp1l
775 movl offdiffval(a0),itmp2l
776 movl offbaseval(a1),itmp3l
778 movl itmp1l,offcast_super_baseval(a2)
779 movl itmp2l,offcast_super_diffval(a2)
780 movl itmp3l,offcast_sub_baseval(a2)
785 asm_criticalsections:
786 #if defined(ENABLE_THREADS)
794 /* Disable exec-stacks, required for Gentoo ***********************************/
796 #if defined(__GCC__) && defined(__ELF__)
797 .section .note.GNU-stack,"",@progbits
802 * These are local overrides for various environment variables in Emacs.
803 * Please do not remove this and leave it at the end of the file, where
804 * Emacs will automagically detect them.
805 * ---------------------------------------------------------------------
808 * indent-tabs-mode: t
812 * vim:noexpandtab:sw=4:ts=4: