/*
* opcodes.c -- part of ZilUtils/ZilAsm
*
- * Copyright (C) 2016 Jason Self <j@jxself.org>
+ * Copyright (C) 2016, 2019 Jason Self <j@jxself.org>
*
* Based on ZILF (c) 2010, 2015 Jesse McGrew
*
#include "opcodes.h"
-typedef struct {
- unsigned opcode;
- const char *classic_name;
- const char *inform_name;
- int minver;
- int maxver;
- ZOpcode_flags flags;
+typedef struct
+{
+ unsigned opcode;
+ const char *classic_name;
+ const char *inform_name;
+ int minver;
+ int maxver;
+ ZOpcode_flags flags;
} Opcode_detailed_info;
+
static Opcode_detailed_info detailed_opcodes[] = {
- { 20, "ADD", "add", 1, 6, Zop_store }, // Add
- { 259, "ASHIFT", "art_shift", 5, 6, Zop_store }, // Ashift
- { 255, "ASSIGNED?", "check_arg_count", 5, 6, Zop_branch | Zop_indvar }, // Assigned_P
- { 9, "BAND", "and", 1, 6, Zop_store }, // Band
- { 143, "BCOM", "not", 1, 4, Zop_store }, // Bcom_V1
- { 248, "BCOM", "not", 5, 6, Zop_store }, // Bcom_V5
- { 8, "BOR", "or", 1, 6, Zop_store }, // Bor
- { 7, "BTST", "test", 1, 6, Zop_branch }, // Btst
- { 242, "BUFOUT", "buffer_mode", 4, 6, 0 }, // Bufout
- { 224, "CALL", "call_vs", 1, 6, Zop_store | Zop_call }, // Call
- { 136, "CALL1", "call_1s", 4, 6, Zop_store | Zop_call }, // Call1
- { 25, "CALL2", "call_2s", 4, 6, Zop_store | Zop_call }, // Call2
- { 185, "CATCH", "catch", 5, 6, Zop_store }, // Catch
- { 268, "CHECKU", "check_unicode", 5, 6, Zop_store }, // Checku
- { 237, "CLEAR", "erase_window", 4, 6, 0 }, // Clear
- { 27, "COLOR", "set_colour", 5, 5, 0 }, // Color_v5
- { 27, "COLOR", "set_colour", 6, 6, Zop_varargs }, // Color_v6
- { 253, "COPYT", "copy_table", 5, 6, 0 }, // Copyt
- { 187, "CRLF", "new_line", 1, 6, 0 }, // Crlf
- { 240, "CURGET", "get_cursor", 4, 6, 0 }, // Curget
- { 239, "CURSET", "set_cursor", 4, 6, 0 }, // Curset
- { 263, "DCLEAR", "erase_picture", 6, 6, 0 }, // Dclear
- { 134, "DEC", "dec", 1, 6, Zop_indvar }, // Dec
- { 244, "DIRIN", "input_stream", 3, 6, 0 }, // Dir-In
- { 243, "DIROUT", "output_stream", 3, 6, 0 }, // Dir-Out
- { 261, "DISPLAY", "draw_picture", 6, 6, 0 }, // Display
- { 23, "DIV", "div", 1, 6, Zop_store }, // Div
- { 4, "DLESS?", "dec_chk", 1, 6, Zop_branch | Zop_indvar }, // Dless_P
-// { 271, "ENDMOVE", "ENDMOVE", 5, 6, Zop_store }, // Endmove = 271
- { 1, "EQUAL?", "jeq", 1, 6, Zop_branch | Zop_varargs }, // Equal_P
- { 238, "ERASE", "erase_line", 4, 6, 0 }, // Erase
- { 12, "FCLEAR", "clear_attr", 1, 6, 0 }, // Fclear
- { 130, "FIRST?", "get_child", 1, 6, Zop_store | Zop_branch }, // First_P
- { 260, "FONT", "set_font", 5, 6, Zop_store }, // Font
- { 11, "FSET", "set_attr", 1, 6, 0 }, // Fset
- { 10, "FSET?", "test_attr", 1, 6, Zop_branch }, // Fset_P
- { 185, "FSTACK", "pop", 1, 4, 0 }, // Fstack_V1
- { 277, "FSTACK", "pop_stack", 6, 6, 0 }, // Fstack_V6
- { 15, "GET", "loadw", 1, 6, Zop_store }, // Get
- { 16, "GETB", "loadb", 1, 6, Zop_store }, // Getb
- { 17, "GETP", "get_prop", 1, 6, Zop_store }, // Getp
- { 18, "GETPT", "get_prop_addr", 1, 6, Zop_store }, // Getpt
- { 3, "GRTR?", "jg", 1, 6, Zop_branch }, // Grtr_P
- { 241, "HLIGHT", "set_text_style", 4, 6, 0 }, // Hlight
- { 249, "ICALL", "call_vn", 5, 6, Zop_call }, // Icall
- { 143, "ICALL1", "call_1n", 5, 6, Zop_call }, // Icall1
- { 26, "ICALL2", "call_2n", 5, 6, Zop_call }, // Icall2
- { 5, "IGRTR?", "inc_chk", 1, 6, Zop_branch | Zop_indvar }, // Igrtr_P
- { 6, "IN?", "jin", 1, 6, Zop_branch }, // In_P
- { 133, "INC", "inc", 1, 6, Zop_indvar }, // Inc
- { 246, "INPUT", "read_char", 4, 6, Zop_store }, // Input
- { 247, "INTBL?", "scan_table", 4, 6, Zop_store | Zop_branch }, // Intbl_P
- { 266, "IRESTORE", "restore_undo", 5, 6, Zop_store }, // Irestore
- { 265, "ISAVE", "save_undo", 5, 6, Zop_store }, // Isave
- { 250, "IXCALL", "call_vn2", 5, 6, Zop_extra | Zop_call }, // Ixcall
- { 140, "JUMP", "jump", 1, 6, Zop_label | Zop_term }, // Jump
- { 2, "LESS?", "jl", 1, 6, Zop_branch }, // Less_P
- { 251, "LEX", "tokenise", 5, 6, 0 }, // Lex
- { 131, "LOC", "get_parent", 1, 6, Zop_store }, // Loc
- { 264, "MARGIN", "set_margins", 6, 6, 0 }, // Margin
- { 283, "MENU", "make_menu", 6, 6, Zop_branch }, // Menu
- { 24, "MOD", "mod", 1, 6, Zop_store }, // Mod
- { 278, "MOUSE-INFO", "read_mouse", 6, 6, 0 }, // MouseInfo
- { 279, "MOUSE-LIMIT", "mouse_window", 6, 6, 0 }, // MouseLimit
- { 14, "MOVE", "insert_obj", 1, 6, 0 }, // Move
- { 22, "MUL", "mul", 1, 6, Zop_store }, // Mul
- { 129, "NEXT?", "get_sibling", 1, 6, Zop_store | Zop_branch }, // Next_P
- { 19, "NEXTP", "get_next_prop", 1, 6, Zop_store }, // Nextp
- { 180, "NOOP", "nop", 1, 6, 0 }, // Noop
- { 191, "ORIGINAL?", "piracy", 5, 6, Zop_branch }, // Original_P
- { 262, "PICINF", "picture_data", 6, 6, Zop_branch }, // Picinf
- { 284, "PICSET", "picture_table", 6, 6, 0 }, // Picset
- { 233, "POP", "pull", 1, 5, 0 }, // Pop_v1
- { 233, "POP", "pull", 6, 6, Zop_store }, // Pop_v6
- { 141, "PRINT", "print_paddr", 1, 6, 0 }, // Print
- { 135, "PRINTB", "print_addr", 1, 6, 0 }, // Printb
- { 229, "PRINTC", "print_char", 1, 6, 0 }, // Printc
- { 138, "PRINTD", "print_obj", 1, 6, 0 }, // Printd
- { 282, "PRINTF", "print_form", 6, 6, 0 }, // Printf
- { 178, "PRINTI", "print", 1, 6, Zop_string }, // Printi
-// { 267, "PRINTMOVE", "PRINTMOVE", 5, 6, Zop_store }, // Printmove
- { 230, "PRINTN", "print_num", 1, 6, 0 }, // Printn
- { 179, "PRINTR", "print_ret", 1, 6, Zop_string | Zop_term }, // Printr
- { 254, "PRINTT", "print_table", 5, 6, 0 }, // Printt
- { 267, "PRINTU", "print_unicode", 5, 6, 0 }, // Printu
- { 132, "PTSIZE", "get_prop_len", 1, 6, Zop_store }, // Ptsize
- { 232, "PUSH", "push", 1, 6, 0 }, // Push
- { 225, "PUT", "storew", 1, 6, 0 }, // Put
- { 226, "PUTB", "storeb", 1, 6, 0 }, // Putb
- { 227, "PUTP", "put_prop", 1, 6, 0 }, // Putp
- { 186, "QUIT", "quit", 1, 6, Zop_term }, // Quit
- { 231, "RANDOM", "random", 1, 6, Zop_store }, // Random
- { 228, "READ", "sread", 1, 4, 0 }, // Read_v1
- { 228, "READ", "aread", 5, 6, Zop_store }, // Read_v5
- { 137, "REMOVE", "remove_obj", 1, 6, 0 }, // Remove
- { 183, "RESTART", "restart", 1, 6, Zop_term }, // Restart
- { 182, "RESTORE", "restore", 1, 3, Zop_branch }, // Restore_v1
- { 182, "RESTORE", "restore", 4, 4, Zop_store }, // Restore_v4
- { 257, "RESTORE", "restore", 5, 6, Zop_store }, // Restore_V5
- { 139, "RETURN", "ret", 1, 6, Zop_term }, // Return
- { 177, "RFALSE", "rfalse", 1, 6, Zop_term }, // Rfalse
- { 184, "RSTACK", "ret_popped", 1, 6, Zop_term }, // Rstack
-// { 268, "RTIME", "RTIME", 5, 6, Zop_store }, // Rtime
- { 176, "RTRUE", "rtrue", 1, 6, Zop_term }, // Rtrue
- { 181, "SAVE", "save", 1, 3, Zop_branch }, // Save_v1
- { 181, "SAVE", "save", 4, 4, Zop_store }, // Save_v4
- { 256, "SAVE", "save", 5, 6, Zop_store }, // Save_V5
- { 235, "SCREEN", "set_window", 3, 6, 0 }, // Screen
- { 276, "SCROLL", "scroll_window", 6, 6, 0 }, // Scroll
-// { 269, "SEND", "SEND", 5, 6, Zop_store }, // Send
- { 270, "SERVER", "SERVER", 5, 6, Zop_store }, // Server
- { 13, "SET", "store", 1, 6, Zop_indvar }, // Set
- { 258, "SHIFT", "log_shift", 5, 6, Zop_store }, // Shift
- { 245, "SOUND", "sound_effect", 3, 6, 0 }, // Sound
- { 234, "SPLIT", "split_window", 3, 6, 0 }, // Split
- { 21, "SUB", "sub", 1, 6, Zop_store }, // Sub
- { 28, "THROW", "throw", 5, 6, Zop_term }, // Throw
- { 188, "USL", "show_status", 1, 3, 0 }, // Usl
- { 142, "VALUE", "load", 1, 6, Zop_store | Zop_indvar }, // Value
- { 189, "VERIFY", "verify", 3, 6, Zop_branch }, // Verify
- { 274, "WINATTR", "window_style", 6, 6, 0 }, // Winattr
- { 275, "WINGET", "get_wind_prop", 6, 6, Zop_store }, // Winget
- { 272, "WINPOS", "move_window", 6, 6, 0 }, // Winpos
- { 281, "WINPUT", "put_wind_prop", 6, 6, 0 }, // Winput
- { 273, "WINSIZE", "window_size", 6, 6, 0 }, // Winsize
- { 236, "XCALL", "call_vs2", 4, 6, Zop_store | Zop_extra | Zop_call }, // Xcall
- { 280, "XPUSH", "push_stack", 6, 6, Zop_branch }, // Xpush
- { 128, "ZERO?", "jz", 1, 6, Zop_branch }, // Zero_P
- { 252, "ZWSTR", "encode_text", 5, 6, 0 } // Zwstr
+ {Opcode_ADD, "ADD", "add", 1, 6, Zop_store}, // Add
+ {Opcode_ASHIFT, "ASHIFT", "art_shift", 5, 6, Zop_store}, // Ashift
+ {Opcode_ASSIGNED, "ASSIGNED?", "check_arg_count", 5, 6, Zop_branch | Zop_indvar}, // Assigned_P
+ {Opcode_BAND, "BAND", "and", 1, 6, Zop_store}, // Band
+ {143, "BCOM", "not", 1, 4, Zop_store}, // Bcom_V1
+ {248, "BCOM", "not", 5, 6, Zop_store}, // Bcom_V5
+ {8, "BOR", "or", 1, 6, Zop_store}, // Bor
+ {7, "BTST", "test", 1, 6, Zop_branch}, // Btst
+ {242, "BUFOUT", "buffer_mode", 4, 6, 0}, // Bufout
+ {224, "CALL", "call_vs", 1, 6, Zop_store | Zop_call}, // Call
+ {136, "CALL1", "call_1s", 4, 6, Zop_store | Zop_call}, // Call1
+ {25, "CALL2", "call_2s", 4, 6, Zop_store | Zop_call}, // Call2
+ {185, "CATCH", "catch", 5, 6, Zop_store}, // Catch
+ {268, "CHECKU", "check_unicode", 5, 6, Zop_store}, // Checku
+ {237, "CLEAR", "erase_window", 4, 6, 0}, // Clear
+ {27, "COLOR", "set_colour", 5, 5, 0}, // Color_v5
+ {27, "COLOR", "set_colour", 6, 6, Zop_varargs}, // Color_v6
+ {253, "COPYT", "copy_table", 5, 6, 0}, // Copyt
+ {187, "CRLF", "new_line", 1, 6, 0}, // Crlf
+ {240, "CURGET", "get_cursor", 4, 6, 0}, // Curget
+ {239, "CURSET", "set_cursor", 4, 6, 0}, // Curset
+ {263, "DCLEAR", "erase_picture", 6, 6, 0}, // Dclear
+ {134, "DEC", "dec", 1, 6, Zop_indvar}, // Dec
+ {244, "DIRIN", "input_stream", 3, 6, 0}, // Dir-In
+ {243, "DIROUT", "output_stream", 3, 6, 0}, // Dir-Out
+ {261, "DISPLAY", "draw_picture", 6, 6, 0}, // Display
+ {23, "DIV", "div", 1, 6, Zop_store}, // Div
+ {4, "DLESS?", "dec_chk", 1, 6, Zop_branch | Zop_indvar}, // Dless_P
+// { 271, "ENDMOVE", "ENDMOVE", 5, 6, Zop_store }, // Endmove = 271
+ {1, "EQUAL?", "jeq", 1, 6, Zop_branch | Zop_varargs}, // Equal_P
+ {238, "ERASE", "erase_line", 4, 6, 0}, // Erase
+ {12, "FCLEAR", "clear_attr", 1, 6, 0}, // Fclear
+ {130, "FIRST?", "get_child", 1, 6, Zop_store | Zop_branch}, // First_P
+ {260, "FONT", "set_font", 5, 6, Zop_store}, // Font
+ {11, "FSET", "set_attr", 1, 6, 0}, // Fset
+ {10, "FSET?", "test_attr", 1, 6, Zop_branch}, // Fset_P
+ {185, "FSTACK", "pop", 1, 4, 0}, // Fstack_V1
+ {277, "FSTACK", "pop_stack", 6, 6, 0}, // Fstack_V6
+ {15, "GET", "loadw", 1, 6, Zop_store}, // Get
+ {16, "GETB", "loadb", 1, 6, Zop_store}, // Getb
+ {17, "GETP", "get_prop", 1, 6, Zop_store}, // Getp
+ {18, "GETPT", "get_prop_addr", 1, 6, Zop_store}, // Getpt
+ {3, "GRTR?", "jg", 1, 6, Zop_branch}, // Grtr_P
+ {241, "HLIGHT", "set_text_style", 4, 6, 0}, // Hlight
+ {249, "ICALL", "call_vn", 5, 6, Zop_call}, // Icall
+ {143, "ICALL1", "call_1n", 5, 6, Zop_call}, // Icall1
+ {26, "ICALL2", "call_2n", 5, 6, Zop_call}, // Icall2
+ {5, "IGRTR?", "inc_chk", 1, 6, Zop_branch | Zop_indvar}, // Igrtr_P
+ {6, "IN?", "jin", 1, 6, Zop_branch}, // In_P
+ {133, "INC", "inc", 1, 6, Zop_indvar}, // Inc
+ {246, "INPUT", "read_char", 4, 6, Zop_store}, // Input
+ {247, "INTBL?", "scan_table", 4, 6, Zop_store | Zop_branch}, // Intbl_P
+ {266, "IRESTORE", "restore_undo", 5, 6, Zop_store}, // Irestore
+ {265, "ISAVE", "save_undo", 5, 6, Zop_store}, // Isave
+ {250, "IXCALL", "call_vn2", 5, 6, Zop_extra | Zop_call}, // Ixcall
+ {140, "JUMP", "jump", 1, 6, Zop_label | Zop_term}, // Jump
+ {2, "LESS?", "jl", 1, 6, Zop_branch}, // Less_P
+ {251, "LEX", "tokenise", 5, 6, 0}, // Lex
+ {131, "LOC", "get_parent", 1, 6, Zop_store}, // Loc
+ {264, "MARGIN", "set_margins", 6, 6, 0}, // Margin
+ {283, "MENU", "make_menu", 6, 6, Zop_branch}, // Menu
+ {24, "MOD", "mod", 1, 6, Zop_store}, // Mod
+ {278, "MOUSE-INFO", "read_mouse", 6, 6, 0}, // MouseInfo
+ {279, "MOUSE-LIMIT", "mouse_window", 6, 6, 0}, // MouseLimit
+ {14, "MOVE", "insert_obj", 1, 6, 0}, // Move
+ {22, "MUL", "mul", 1, 6, Zop_store}, // Mul
+ {129, "NEXT?", "get_sibling", 1, 6, Zop_store | Zop_branch}, // Next_P
+ {19, "NEXTP", "get_next_prop", 1, 6, Zop_store}, // Nextp
+ {180, "NOOP", "nop", 1, 6, 0}, // Noop
+ {191, "ORIGINAL?", "piracy", 5, 6, Zop_branch}, // Original_P
+ {262, "PICINF", "picture_data", 6, 6, Zop_branch}, // Picinf
+ {284, "PICSET", "picture_table", 6, 6, 0}, // Picset
+ {233, "POP", "pull", 1, 5, 0}, // Pop_v1
+ {233, "POP", "pull", 6, 6, Zop_store}, // Pop_v6
+ {Opcode_PRINT, "PRINT", "print_paddr", 1, 6, 0}, // Print
+ {135, "PRINTB", "print_addr", 1, 6, 0}, // Printb
+ {229, "PRINTC", "print_char", 1, 6, 0}, // Printc
+ {138, "PRINTD", "print_obj", 1, 6, 0}, // Printd
+ {282, "PRINTF", "print_form", 6, 6, 0}, // Printf
+ {Opcode_PRINTI, "PRINTI", "print", 1, 6, Zop_string}, // Printi
+// { 267, "PRINTMOVE", "PRINTMOVE", 5, 6, Zop_store }, // Printmove
+ {230, "PRINTN", "print_num", 1, 6, 0}, // Printn
+ {Opcode_PRINTR, "PRINTR", "print_ret", 1, 6, Zop_string | Zop_term}, // Printr
+ {254, "PRINTT", "print_table", 5, 6, 0}, // Printt
+ {267, "PRINTU", "print_unicode", 5, 6, 0}, // Printu
+ {132, "PTSIZE", "get_prop_len", 1, 6, Zop_store}, // Ptsize
+ {232, "PUSH", "push", 1, 6, 0}, // Push
+ {225, "PUT", "storew", 1, 6, 0}, // Put
+ {226, "PUTB", "storeb", 1, 6, 0}, // Putb
+ {227, "PUTP", "put_prop", 1, 6, 0}, // Putp
+ {Opcode_QUIT, "QUIT", "quit", 1, 6, Zop_term}, // Quit
+ {231, "RANDOM", "random", 1, 6, Zop_store}, // Random
+ {228, "READ", "sread", 1, 4, 0}, // Read_v1
+ {228, "READ", "aread", 5, 6, Zop_store}, // Read_v5
+ {137, "REMOVE", "remove_obj", 1, 6, 0}, // Remove
+ {183, "RESTART", "restart", 1, 6, Zop_term}, // Restart
+ {182, "RESTORE", "restore", 1, 3, Zop_branch}, // Restore_v1
+ {182, "RESTORE", "restore", 4, 4, Zop_store}, // Restore_v4
+ {257, "RESTORE", "restore", 5, 6, Zop_store}, // Restore_V5
+ {139, "RETURN", "ret", 1, 6, Zop_term}, // Return
+ {177, "RFALSE", "rfalse", 1, 6, Zop_term}, // Rfalse
+ {184, "RSTACK", "ret_popped", 1, 6, Zop_term}, // Rstack
+// { 268, "RTIME", "RTIME", 5, 6, Zop_store }, // Rtime
+ {176, "RTRUE", "rtrue", 1, 6, Zop_term}, // Rtrue
+ {181, "SAVE", "save", 1, 3, Zop_branch}, // Save_v1
+ {181, "SAVE", "save", 4, 4, Zop_store}, // Save_v4
+ {256, "SAVE", "save", 5, 6, Zop_store}, // Save_V5
+ {235, "SCREEN", "set_window", 3, 6, Zop_none}, // Screen
+ {276, "SCROLL", "scroll_window", 6, 6, Zop_none}, // Scroll
+// { 269, "SEND", "SEND", 5, 6, Zop_store }, // Send
+ {270, "SERVER", "SERVER", 5, 6, Zop_store}, // Server
+ {13, "SET", "store", 1, 6, Zop_indvar}, // Set
+ {258, "SHIFT", "log_shift", 5, 6, Zop_store}, // Shift
+ {245, "SOUND", "sound_effect", 3, 6, 0}, // Sound
+ {234, "SPLIT", "split_window", 3, 6, 0}, // Split
+ {21, "SUB", "sub", 1, 6, Zop_store}, // Sub
+ {28, "THROW", "throw", 5, 6, Zop_term}, // Throw
+ {188, "USL", "show_status", 1, 3, 0}, // Usl
+ {142, "VALUE", "load", 1, 6, Zop_store | Zop_indvar}, // Value
+ {189, "VERIFY", "verify", 3, 6, Zop_branch}, // Verify
+ {274, "WINATTR", "window_style", 6, 6, 0}, // Winattr
+ {275, "WINGET", "get_wind_prop", 6, 6, Zop_store}, // Winget
+ {272, "WINPOS", "move_window", 6, 6, 0}, // Winpos
+ {281, "WINPUT", "put_wind_prop", 6, 6, 0}, // Winput
+ {273, "WINSIZE", "window_size", 6, 6, 0}, // Winsize
+ {236, "XCALL", "call_vs2", 4, 6, Zop_store | Zop_extra | Zop_call}, // Xcall
+ {280, "XPUSH", "push_stack", 6, 6, Zop_branch}, // Xpush
+ {128, "ZERO?", "jz", 1, 6, Zop_branch}, // Zero_P
+ {252, "ZWSTR", "encode_text", 5, 6, Zop_none} // Zwstr
};
Symtable *Opcodes;
#define ARRAY_SIZE(x) (sizeof(x) / sizeof(x[0]))
-void init_opcodes(int version, int inform_syntax)
+void
+init_opcodes (int version, int inform_syntax)
{
- const unsigned maxnamelen = 16;
- int n;
- if (Opcodes) symtable_destroy(Opcodes);
- Opcodes = symtable_create(2 * ARRAY_SIZE(detailed_opcodes), maxnamelen, sizeof(ZOpcode));
- assert(Opcodes);
- for(n = 0; n < ARRAY_SIZE(detailed_opcodes); n++) {
- Opcode_detailed_info *p = &detailed_opcodes[n];
- if (version < p->minver) continue;
- if (version > p->maxver) continue;
- ZOpcode q = { p->opcode, p->flags };
- symtable_add(Opcodes, inform_syntax ? p->inform_name : p->classic_name, &q);
- }
+ const unsigned maxnamelen = 16;
+ int n;
+ if (Opcodes)
+ symtable_destroy (Opcodes);
+ Opcodes =
+ symtable_create (2 * ARRAY_SIZE (detailed_opcodes), maxnamelen,
+ sizeof (ZOpcode));
+ assert (Opcodes);
+ for (n = 0; n < ARRAY_SIZE (detailed_opcodes); n++)
+ {
+ Opcode_detailed_info *p = &detailed_opcodes[n];
+ if (version < p->minver)
+ continue;
+ if (version > p->maxver)
+ continue;
+ ZOpcode q = { p->opcode, p->flags };
+ symtable_add (Opcodes, inform_syntax ? p->inform_name : p->classic_name,
+ &q);
+ }
}
projects / zilutils.git / blobdiff