2 * SN Platform GRU Driver
4 * GRU DRIVER TABLES, MACROS, externs, etc
6 * Copyright (c) 2008 Silicon Graphics, Inc. All Rights Reserved.
8 * This program is free software; you can redistribute it and/or modify
9 * it under the terms of the GNU General Public License as published by
10 * the Free Software Foundation; either version 2 of the License, or
11 * (at your option) any later version.
13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details.
18 * You should have received a copy of the GNU General Public License
19 * along with this program; if not, write to the Free Software
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 #ifndef __GRUTABLES_H__
24 #define __GRUTABLES_H__
28 * The GRU is a user addressible memory accelerator. It provides
29 * several forms of load, store, memset, bcopy instructions. In addition, it
30 * contains special instructions for AMOs, sending messages to message
33 * The GRU is an integral part of the node controller. It connects
34 * directly to the cpu socket. In its current implementation, there are 2
35 * GRU chiplets in the node controller on each blade (~node).
37 * The entire GRU memory space is fully coherent and cacheable by the cpus.
39 * Each GRU chiplet has a physical memory map that looks like the following:
52 * +-----------------+ _______ +-------------+
53 * |/////////////////| / | |
54 * |/////////////////| / | |
55 * |/////////////////| / | instructions|
56 * |/////////////////| / | |
57 * |/////////////////| / | |
58 * |/////////////////| / |-------------|
59 * |/////////////////| / | |
60 * +-----------------+ | |
61 * | context 15 | | data |
62 * +-----------------+ | |
64 * +-----------------+ \____________ +-------------+
70 * Each of the "contexts" is a chunk of memory that can be mmaped into user
71 * space. The context consists of 2 parts:
73 * - an instruction space that can be directly accessed by the user
74 * to issue GRU instructions and to check instruction status.
76 * - a data area that acts as normal RAM.
78 * User instructions contain virtual addresses of data to be accessed by the
79 * GRU. The GRU contains a TLB that is used to convert these user virtual
80 * addresses to physical addresses.
82 * The "system control" area of the GRU chiplet is used by the kernel driver
83 * to manage user contexts and to perform functions such as TLB dropin and
86 * One context may be reserved for the kernel and used for cross-partition
87 * communication. The GRU will also be used to asynchronously zero out
88 * large blocks of memory (not currently implemented).
93 * VDATA-VMA Data - Holds a few parameters. Head of linked list of
94 * GTS tables for threads using the GSEG
95 * GTS - Gru Thread State - contains info for managing a GSEG context. A
96 * GTS is allocated for each thread accessing a
98 * GTD - GRU Thread Data - contains shadow copy of GRU data when GSEG is
99 * not loaded into a GRU
100 * GMS - GRU Memory Struct - Used to manage TLB shootdowns. Tracks GRUs
101 * where a GSEG has been loaded. Similar to
102 * an mm_struct but for GRU.
104 * GS - GRU State - Used to manage the state of a GRU chiplet
105 * BS - Blade State - Used to manage state of all GRU chiplets
109 * Normal task tables for task using GRU.
110 * - 2 threads in process
111 * - 2 GSEGs open in process
112 * - GSEG1 is being used by both threads
113 * - GSEG2 is used only by thread 2
116 * task ---+---> mm ->------ (notifier) -------+-> gms
118 * |--> vma -> vdata ---> gts--->| GSEG1 (thread1)
120 * | +-> gts--->| GSEG1 (thread2)
122 * |--> vma -> vdata ---> gts--->| GSEG2 (thread2)
126 * GSEGs are marked DONTCOPY on fork
129 * file.private_data -> NULL
134 * After gseg reference
139 * vma -> vdata -> gts
141 * (vma is not copied)
145 #include <linux/rmap.h>
146 #include <linux/interrupt.h>
147 #include <linux/mutex.h>
148 #include <linux/wait.h>
149 #include <linux/mmu_notifier.h>
151 #include "gruhandles.h"
153 extern struct gru_stats_s gru_stats
;
154 extern struct gru_blade_state
*gru_base
[];
155 extern unsigned long gru_start_paddr
, gru_end_paddr
;
156 extern void *gru_start_vaddr
;
157 extern unsigned int gru_max_gids
;
159 #define GRU_MAX_BLADES MAX_NUMNODES
160 #define GRU_MAX_GRUS (GRU_MAX_BLADES * GRU_CHIPLETS_PER_BLADE)
162 #define GRU_DRIVER_ID_STR "SGI GRU Device Driver"
163 #define GRU_DRIVER_VERSION_STR "0.80"
169 atomic_long_t vdata_alloc
;
170 atomic_long_t vdata_free
;
171 atomic_long_t gts_alloc
;
172 atomic_long_t gts_free
;
173 atomic_long_t vdata_double_alloc
;
174 atomic_long_t gts_double_allocate
;
175 atomic_long_t assign_context
;
176 atomic_long_t assign_context_failed
;
177 atomic_long_t free_context
;
178 atomic_long_t load_user_context
;
179 atomic_long_t load_kernel_context
;
180 atomic_long_t lock_kernel_context
;
181 atomic_long_t unlock_kernel_context
;
182 atomic_long_t steal_user_context
;
183 atomic_long_t steal_kernel_context
;
184 atomic_long_t steal_context_failed
;
186 atomic_long_t break_cow
;
187 atomic_long_t asid_new
;
188 atomic_long_t asid_next
;
189 atomic_long_t asid_wrap
;
190 atomic_long_t asid_reuse
;
192 atomic_long_t intr_mm_lock_failed
;
193 atomic_long_t call_os
;
194 atomic_long_t call_os_offnode_reference
;
195 atomic_long_t call_os_check_for_bug
;
196 atomic_long_t call_os_wait_queue
;
197 atomic_long_t user_flush_tlb
;
198 atomic_long_t user_unload_context
;
199 atomic_long_t user_exception
;
200 atomic_long_t set_task_slice
;
201 atomic_long_t migrate_check
;
202 atomic_long_t migrated_retarget
;
203 atomic_long_t migrated_unload
;
204 atomic_long_t migrated_unload_delay
;
205 atomic_long_t migrated_nopfn_retarget
;
206 atomic_long_t migrated_nopfn_unload
;
207 atomic_long_t tlb_dropin
;
208 atomic_long_t tlb_dropin_fail_no_asid
;
209 atomic_long_t tlb_dropin_fail_upm
;
210 atomic_long_t tlb_dropin_fail_invalid
;
211 atomic_long_t tlb_dropin_fail_range_active
;
212 atomic_long_t tlb_dropin_fail_idle
;
213 atomic_long_t tlb_dropin_fail_fmm
;
214 atomic_long_t tlb_dropin_fail_no_exception
;
215 atomic_long_t tlb_dropin_fail_no_exception_war
;
216 atomic_long_t tfh_stale_on_fault
;
217 atomic_long_t mmu_invalidate_range
;
218 atomic_long_t mmu_invalidate_page
;
219 atomic_long_t mmu_clear_flush_young
;
220 atomic_long_t flush_tlb
;
221 atomic_long_t flush_tlb_gru
;
222 atomic_long_t flush_tlb_gru_tgh
;
223 atomic_long_t flush_tlb_gru_zero_asid
;
225 atomic_long_t copy_gpa
;
227 atomic_long_t mesq_receive
;
228 atomic_long_t mesq_receive_none
;
229 atomic_long_t mesq_send
;
230 atomic_long_t mesq_send_failed
;
231 atomic_long_t mesq_noop
;
232 atomic_long_t mesq_send_unexpected_error
;
233 atomic_long_t mesq_send_lb_overflow
;
234 atomic_long_t mesq_send_qlimit_reached
;
235 atomic_long_t mesq_send_amo_nacked
;
236 atomic_long_t mesq_send_put_nacked
;
237 atomic_long_t mesq_qf_not_full
;
238 atomic_long_t mesq_qf_locked
;
239 atomic_long_t mesq_qf_noop_not_full
;
240 atomic_long_t mesq_qf_switch_head_failed
;
241 atomic_long_t mesq_qf_unexpected_error
;
242 atomic_long_t mesq_noop_unexpected_error
;
243 atomic_long_t mesq_noop_lb_overflow
;
244 atomic_long_t mesq_noop_qlimit_reached
;
245 atomic_long_t mesq_noop_amo_nacked
;
246 atomic_long_t mesq_noop_put_nacked
;
250 enum mcs_op
{cchop_allocate
, cchop_start
, cchop_interrupt
, cchop_interrupt_sync
,
251 cchop_deallocate
, tghop_invalidate
, mcsop_last
};
253 struct mcs_op_statistic
{
259 extern struct mcs_op_statistic mcs_op_statistics
[mcsop_last
];
265 #define IRQ_GRU 110 /* Starting IRQ number for interrupts */
267 /* Delay in jiffies between attempts to assign a GRU context */
268 #define GRU_ASSIGN_DELAY ((HZ * 20) / 1000)
271 * If a process has it's context stolen, min delay in jiffies before trying to
272 * steal a context from another process.
274 #define GRU_STEAL_DELAY ((HZ * 200) / 1000)
276 #define STAT(id) do { \
277 if (gru_options & OPT_STATS) \
278 atomic_long_inc(&gru_stats.id); \
281 #ifdef CONFIG_SGI_GRU_DEBUG
282 #define gru_dbg(dev, fmt, x...) \
284 if (gru_options & OPT_DPRINT) \
285 dev_dbg(dev, "%s: " fmt, __func__, x); \
288 #define gru_dbg(x...)
291 /*-----------------------------------------------------------------------------
294 #define MAX_ASID 0xfffff0
296 #define ASID_INC 8 /* number of regions */
298 /* Generate a GRU asid value from a GRU base asid & a virtual address. */
299 #if defined CONFIG_IA64
300 #define VADDR_HI_BIT 64
301 #elif defined CONFIG_X86_64
302 #define VADDR_HI_BIT 48
304 #error "Unsupported architecture"
306 #define GRUREGION(addr) ((addr) >> (VADDR_HI_BIT - 3) & 3)
307 #define GRUASID(asid, addr) ((asid) + GRUREGION(addr))
309 /*------------------------------------------------------------------------------
316 * This structure is pointed to from the mmstruct via the notifier pointer.
317 * There is one of these per address space.
319 struct gru_mm_tracker
{ /* pack to reduce size */
320 unsigned int mt_asid_gen
:24; /* ASID wrap count */
321 unsigned int mt_asid
:24; /* current base ASID for gru */
322 unsigned short mt_ctxbitmap
:16;/* bitmap of contexts using
324 } __attribute__ ((packed
));
326 struct gru_mm_struct
{
327 struct mmu_notifier ms_notifier
;
329 spinlock_t ms_asid_lock
; /* protects ASID assignment */
330 atomic_t ms_range_active
;/* num range_invals active */
332 wait_queue_head_t ms_wait_queue
;
333 DECLARE_BITMAP(ms_asidmap
, GRU_MAX_GRUS
);
334 struct gru_mm_tracker ms_asids
[GRU_MAX_GRUS
];
338 * One of these structures is allocated when a GSEG is mmaped. The
339 * structure is pointed to by the vma->vm_private_data field in the vma struct.
341 struct gru_vma_data
{
342 spinlock_t vd_lock
; /* Serialize access to vma */
343 struct list_head vd_head
; /* head of linked list of gts */
344 long vd_user_options
;/* misc user option flags */
350 * One of these is allocated for each thread accessing a mmaped GRU. A linked
351 * list of these structure is hung off the struct gru_vma_data in the mm_struct.
353 struct gru_thread_state
{
354 struct list_head ts_next
; /* list - head at vma-private */
355 struct mutex ts_ctxlock
; /* load/unload CTX lock */
356 struct mm_struct
*ts_mm
; /* mm currently mapped to
358 struct vm_area_struct
*ts_vma
; /* vma of GRU context */
359 struct gru_state
*ts_gru
; /* GRU where the context is
361 struct gru_mm_struct
*ts_gms
; /* asid & ioproc struct */
362 unsigned long ts_cbr_map
; /* map of allocated CBRs */
363 unsigned long ts_dsr_map
; /* map of allocated DATA
365 unsigned long ts_steal_jiffies
;/* jiffies when context last
367 long ts_user_options
;/* misc user option flags */
368 pid_t ts_tgid_owner
; /* task that is using the
369 context - for migration */
370 unsigned short ts_sizeavail
; /* Pagesizes in use */
371 int ts_tsid
; /* thread that owns the
373 int ts_tlb_int_select
;/* target cpu if interrupts
375 int ts_ctxnum
; /* context number where the
377 atomic_t ts_refcnt
; /* reference count GTS */
378 unsigned char ts_dsr_au_count
;/* Number of DSR resources
379 required for contest */
380 unsigned char ts_cbr_au_count
;/* Number of CBR resources
381 required for contest */
382 char ts_blade
; /* If >= 0, migrate context if
383 ref from diferent blade */
384 char ts_force_cch_reload
;
385 char ts_force_unload
;/* force context to be unloaded
387 char ts_cbr_idx
[GRU_CBR_AU
];/* CBR numbers of each
389 int ts_data_valid
; /* Indicates if ts_gdata has
391 unsigned long ts_gdata
[0]; /* save area for GRU data (CB,
396 * Threaded programs actually allocate an array of GSEGs when a context is
397 * created. Each thread uses a separate GSEG. TSID is the index into the GSEG
400 #define TSID(a, v) (((a) - (v)->vm_start) / GRU_GSEG_PAGESIZE)
401 #define UGRUADDR(gts) ((gts)->ts_vma->vm_start + \
402 (gts)->ts_tsid * GRU_GSEG_PAGESIZE)
404 #define NULLCTX (-1) /* if context not loaded into GRU */
406 /*-----------------------------------------------------------------------------
411 * One of these exists for each GRU chiplet.
414 struct gru_blade_state
*gs_blade
; /* GRU state for entire
416 unsigned long gs_gru_base_paddr
; /* Physical address of
418 void *gs_gru_base_vaddr
; /* Virtual address of
420 unsigned short gs_gid
; /* unique GRU number */
421 unsigned short gs_blade_id
; /* blade of GRU */
422 unsigned char gs_tgh_local_shift
; /* used to pick TGH for
424 unsigned char gs_tgh_first_remote
; /* starting TGH# for
426 spinlock_t gs_asid_lock
; /* lock used for
428 spinlock_t gs_lock
; /* lock used for
429 assigning contexts */
431 /* -- the following are protected by the gs_asid_lock spinlock ---- */
432 unsigned int gs_asid
; /* Next availe ASID */
433 unsigned int gs_asid_limit
; /* Limit of available
435 unsigned int gs_asid_gen
; /* asid generation.
438 /* --- the following fields are protected by the gs_lock spinlock --- */
439 unsigned long gs_context_map
; /* bitmap to manage
441 unsigned long gs_cbr_map
; /* bitmap to manage CB
443 unsigned long gs_dsr_map
; /* bitmap used to manage
445 unsigned int gs_reserved_cbrs
; /* Number of kernel-
447 unsigned int gs_reserved_dsr_bytes
; /* Bytes of kernel-
449 unsigned short gs_active_contexts
; /* number of contexts
451 struct gru_thread_state
*gs_gts
[GRU_NUM_CCH
]; /* GTS currently using
456 * This structure contains the GRU state for all the GRUs on a blade.
458 struct gru_blade_state
{
459 void *kernel_cb
; /* First kernel
461 void *kernel_dsr
; /* First kernel
463 struct rw_semaphore bs_kgts_sema
; /* lock for kgts */
464 struct gru_thread_state
*bs_kgts
; /* GTS for kernel use */
466 /* ---- the following are used for managing kernel async GRU CBRs --- */
467 int bs_async_dsr_bytes
; /* DSRs for async */
468 int bs_async_cbrs
; /* CBRs AU for async */
469 struct completion
*bs_async_wq
;
471 /* ---- the following are protected by the bs_lock spinlock ---- */
472 spinlock_t bs_lock
; /* lock used for
474 int bs_lru_ctxnum
; /* STEAL - last context
476 struct gru_state
*bs_lru_gru
; /* STEAL - last gru
479 struct gru_state bs_grus
[GRU_CHIPLETS_PER_BLADE
];
482 /*-----------------------------------------------------------------------------
485 #define get_tfm_for_cpu(g, c) \
486 ((struct gru_tlb_fault_map *)get_tfm((g)->gs_gru_base_vaddr, (c)))
487 #define get_tfh_by_index(g, i) \
488 ((struct gru_tlb_fault_handle *)get_tfh((g)->gs_gru_base_vaddr, (i)))
489 #define get_tgh_by_index(g, i) \
490 ((struct gru_tlb_global_handle *)get_tgh((g)->gs_gru_base_vaddr, (i)))
491 #define get_cbe_by_index(g, i) \
492 ((struct gru_control_block_extended *)get_cbe((g)->gs_gru_base_vaddr,\
495 /*-----------------------------------------------------------------------------
499 /* Given a blade# & chiplet#, get a pointer to the GRU */
500 #define get_gru(b, c) (&gru_base[b]->bs_grus[c])
502 /* Number of bytes to save/restore when unloading/loading GRU contexts */
503 #define DSR_BYTES(dsr) ((dsr) * GRU_DSR_AU_BYTES)
504 #define CBR_BYTES(cbr) ((cbr) * GRU_HANDLE_BYTES * GRU_CBR_AU_SIZE * 2)
506 /* Convert a user CB number to the actual CBRNUM */
507 #define thread_cbr_number(gts, n) ((gts)->ts_cbr_idx[(n) / GRU_CBR_AU_SIZE] \
508 * GRU_CBR_AU_SIZE + (n) % GRU_CBR_AU_SIZE)
510 /* Convert a gid to a pointer to the GRU */
511 #define GID_TO_GRU(gid) \
512 (gru_base[(gid) / GRU_CHIPLETS_PER_BLADE] ? \
513 (&gru_base[(gid) / GRU_CHIPLETS_PER_BLADE]-> \
514 bs_grus[(gid) % GRU_CHIPLETS_PER_BLADE]) : \
517 /* Scan all active GRUs in a GRU bitmap */
518 #define for_each_gru_in_bitmap(gid, map) \
519 for ((gid) = find_first_bit((map), GRU_MAX_GRUS); (gid) < GRU_MAX_GRUS;\
520 (gid)++, (gid) = find_next_bit((map), GRU_MAX_GRUS, (gid)))
522 /* Scan all active GRUs on a specific blade */
523 #define for_each_gru_on_blade(gru, nid, i) \
524 for ((gru) = gru_base[nid]->bs_grus, (i) = 0; \
525 (i) < GRU_CHIPLETS_PER_BLADE; \
529 #define foreach_gid(gid) \
530 for ((gid) = 0; (gid) < gru_max_gids; (gid)++)
532 /* Scan all active GTSs on a gru. Note: must hold ss_lock to use this macro. */
533 #define for_each_gts_on_gru(gts, gru, ctxnum) \
534 for ((ctxnum) = 0; (ctxnum) < GRU_NUM_CCH; (ctxnum)++) \
535 if (((gts) = (gru)->gs_gts[ctxnum]))
537 /* Scan each CBR whose bit is set in a TFM (or copy of) */
538 #define for_each_cbr_in_tfm(i, map) \
539 for ((i) = find_first_bit(map, GRU_NUM_CBE); \
541 (i)++, (i) = find_next_bit(map, GRU_NUM_CBE, i))
543 /* Scan each CBR in a CBR bitmap. Note: multiple CBRs in an allocation unit */
544 #define for_each_cbr_in_allocation_map(i, map, k) \
545 for ((k) = find_first_bit(map, GRU_CBR_AU); (k) < GRU_CBR_AU; \
546 (k) = find_next_bit(map, GRU_CBR_AU, (k) + 1)) \
547 for ((i) = (k)*GRU_CBR_AU_SIZE; \
548 (i) < ((k) + 1) * GRU_CBR_AU_SIZE; (i)++)
550 /* Scan each DSR in a DSR bitmap. Note: multiple DSRs in an allocation unit */
551 #define for_each_dsr_in_allocation_map(i, map, k) \
552 for ((k) = find_first_bit((const unsigned long *)map, GRU_DSR_AU);\
554 (k) = find_next_bit((const unsigned long *)map, \
555 GRU_DSR_AU, (k) + 1)) \
556 for ((i) = (k) * GRU_DSR_AU_CL; \
557 (i) < ((k) + 1) * GRU_DSR_AU_CL; (i)++)
559 #define gseg_physical_address(gru, ctxnum) \
560 ((gru)->gs_gru_base_paddr + ctxnum * GRU_GSEG_STRIDE)
561 #define gseg_virtual_address(gru, ctxnum) \
562 ((gru)->gs_gru_base_vaddr + ctxnum * GRU_GSEG_STRIDE)
564 /*-----------------------------------------------------------------------------
565 * Lock / Unlock GRU handles
566 * Use the "delresp" bit in the handle as a "lock" bit.
569 /* Lock hierarchy checking enabled only in emulator */
571 /* 0 = lock failed, 1 = locked */
572 static inline int __trylock_handle(void *h
)
574 return !test_and_set_bit(1, h
);
577 static inline void __lock_handle(void *h
)
579 while (test_and_set_bit(1, h
))
583 static inline void __unlock_handle(void *h
)
588 static inline int trylock_cch_handle(struct gru_context_configuration_handle
*cch
)
590 return __trylock_handle(cch
);
593 static inline void lock_cch_handle(struct gru_context_configuration_handle
*cch
)
598 static inline void unlock_cch_handle(struct gru_context_configuration_handle
601 __unlock_handle(cch
);
604 static inline void lock_tgh_handle(struct gru_tlb_global_handle
*tgh
)
609 static inline void unlock_tgh_handle(struct gru_tlb_global_handle
*tgh
)
611 __unlock_handle(tgh
);
614 static inline int is_kernel_context(struct gru_thread_state
*gts
)
619 /*-----------------------------------------------------------------------------
620 * Function prototypes & externs
622 struct gru_unload_context_req
;
624 extern struct vm_operations_struct gru_vm_ops
;
625 extern struct device
*grudev
;
627 extern struct gru_vma_data
*gru_alloc_vma_data(struct vm_area_struct
*vma
,
629 extern struct gru_thread_state
*gru_find_thread_state(struct vm_area_struct
631 extern struct gru_thread_state
*gru_alloc_thread_state(struct vm_area_struct
633 extern struct gru_state
*gru_assign_gru_context(struct gru_thread_state
*gts
,
635 extern void gru_load_context(struct gru_thread_state
*gts
);
636 extern void gru_steal_context(struct gru_thread_state
*gts
, int blade_id
);
637 extern void gru_unload_context(struct gru_thread_state
*gts
, int savestate
);
638 extern int gru_update_cch(struct gru_thread_state
*gts
, int force_unload
);
639 extern void gts_drop(struct gru_thread_state
*gts
);
640 extern void gru_tgh_flush_init(struct gru_state
*gru
);
641 extern int gru_kservices_init(void);
642 extern void gru_kservices_exit(void);
643 extern int gru_dump_chiplet_request(unsigned long arg
);
644 extern irqreturn_t
gru_intr(int irq
, void *dev_id
);
645 extern int gru_handle_user_call_os(unsigned long address
);
646 extern int gru_user_flush_tlb(unsigned long arg
);
647 extern int gru_user_unload_context(unsigned long arg
);
648 extern int gru_get_exception_detail(unsigned long arg
);
649 extern int gru_set_task_slice(long address
);
650 extern int gru_cpu_fault_map_id(void);
651 extern struct vm_area_struct
*gru_find_vma(unsigned long vaddr
);
652 extern void gru_flush_all_tlb(struct gru_state
*gru
);
653 extern int gru_proc_init(void);
654 extern void gru_proc_exit(void);
656 extern struct gru_thread_state
*gru_alloc_gts(struct vm_area_struct
*vma
,
657 int cbr_au_count
, int dsr_au_count
, int options
, int tsid
);
658 extern unsigned long gru_reserve_cb_resources(struct gru_state
*gru
,
659 int cbr_au_count
, char *cbmap
);
660 extern unsigned long gru_reserve_ds_resources(struct gru_state
*gru
,
661 int dsr_au_count
, char *dsmap
);
662 extern int gru_fault(struct vm_area_struct
*, struct vm_fault
*vmf
);
663 extern struct gru_mm_struct
*gru_register_mmu_notifier(void);
664 extern void gru_drop_mmu_notifier(struct gru_mm_struct
*gms
);
666 extern int gru_ktest(unsigned long arg
);
667 extern void gru_flush_tlb_range(struct gru_mm_struct
*gms
, unsigned long start
,
670 extern unsigned long gru_options
;
672 #endif /* __GRUTABLES_H__ */