+int labelcnt = 0; /* ラベル数 */
+LABELTAB *labels[LABELTABSIZE]; /* ラベル表 */
+
+/* プログラム名とラベルに対応するハッシュ値を返す */
+unsigned labelhash(const char *prog, const char *label)
+{
+ HKEY *keys[2];
+ int i = 0;
+ if(prog != NULL) {
+ keys[i] = malloc(sizeof(HKEY));
+ keys[i]->type = CHARS;
+ keys[i++]->val.s = strdup(prog);
+ }
+ keys[i] = malloc(sizeof(HKEY));
+ keys[i]->type = CHARS;
+ keys[i]->val.s = strdup(label);
+ /* ハッシュ値を返す */
+ return hash(i+1, keys, LABELTABSIZE);
+}