1 /******************************************************************************
2 *
3 * Copyright (C) 2006, The Gentee Group. All rights reserved.
4 * This file is part of the Gentee open source project - http://www.gentee.com.
5 *
6 * THIS FILE IS PROVIDED UNDER THE TERMS OF THE GENTEE LICENSE ("AGREEMENT").
7 * ANY USE, REPRODUCTION OR DISTRIBUTION OF THIS FILE CONSTITUTES RECIPIENTS
8 * ACCEPTANCE OF THE AGREEMENT.
9 *
10 * ID: goto 08.02.07 0.0.A.
11 *
12 * Author: Alexander Krivonogov ( algen )
13 *
14 * Summary: Конструкции goto, label
15 *
16 ******************************************************************************/
17
18 #include "func.h"
19
20 /*-----------------------------------------------------------------------------
21 *
22 * ID: c_goto 08.02.07 0.0.A.
23 *
24 * Summary: The goto processing
25 *
26 -----------------------------------------------------------------------------*/
27 plexem STDCALL c_goto( plexem curlex )
28 {
29 pflabel curlabel; //Текущий элемент в стэке меток
30 phashiuint phitem; //Элемент хэштаблицы со смещением описания метки
31 uint offlabel; //Смещение в таблице меток
32
33 out_debugtrace( curlex );
34
35 if ( curlex->type == LEXEM_NAME )
36 {
37 out_add2uint( CGoto, 0 );
38 phitem = (phashiuint)hash_create( &fd.nlabels, lexem_getname( curlex ) );
39 //curlabel = newlabel;
40 curlabel = (pflabel)buf_appendtype( &fd.blabels, sizeof( flabel ));
41
42 curlabel->offbout = fd.bout->use - sizeof( uint );
43 offlabel = phitem->val;
44 if ( !offlabel || offlabel == -1)
45 { //Такого имени ещё нет
46 curlabel->type = LABT_GTUNDEF;
47 curlabel->hitem = phitem;//?phitem вроде постоянный
48 curlabel->lex = curlex;
49 phitem->val = -1;
50 }
51 else
52 {
53 if ( (( pflabel )( fd.blabels.data + offlabel ))->type ==
54 ( LABT_LABEL | (uint)( fd.bout == &fd.bsubout ? LABT_SUBFUNC : 0) ) )
55 { //Действующая метка
56 curlabel->type = LABT_GTDEF;
57 curlabel->link = offlabel;
58 }
59 else
60 {
61 msg( MUnklabel | MSG_LEXNAMEERR, curlex );
62 }
63 }
64 }
65 else
66 msg( MExpname | MSG_LEXERR, curlex );
67 curlex = lexem_next( curlex, 0 );
68
69 return curlex;
70 }
71
72
73 /*-----------------------------------------------------------------------------
74 *
75 * ID: c_label 08.02.07 0.0.A.
76 *
77 * Summary: The label processing
78 *
79 -----------------------------------------------------------------------------*/
80 plexem STDCALL c_label( plexem curlex )
81 {
82 uint offlabel; //Смещение в таблице меток
83 phashiuint phitem; //Элемент хэштаблицы со смещением описания метки
84
85 if ( curlex->type == LEXEM_NAME )//Идентификатор
86 {
87 phitem = (phashiuint)hash_create( &fd.nlabels, lexem_getname( curlex ) );
88 if ( !phitem->val || phitem->val == -1 )
89 { //Такого имени ещё нет
90 offlabel = j_label( LABT_LABEL |
91 (fd.bout == &fd.bsubout ? LABT_SUBFUNC : 0), (uint)phitem );
92 phitem->val = offlabel;
93 }
94 else
95 msg( MRedeflabel | MSG_LEXNAMEERR, curlex );
96 }
97 else
98 msg( MExpname | MSG_LEXERR, curlex );
99 return lexem_next( curlex, 0 );
100 }
101