gambas-source-code/main/gbx/gbx_archive.h
gambas 3dd1fd493e Fix the JIT compiler: '_init' method, Lock instruction, Object datatype, and DO / REPEAT loops at the beginning of a function now work correctly.
[INTERPRETER]
* BUG: JIT compiler does not run static initializers anymore when loading a class. Otherwise bytecode can be modified before being compiled, leading to a JIT compiler crash.

[COMPILER]
* BUG: Fix LOCK subroutine meta-information.

[GB.JIT]
* NEW: Don't display abortion debugging message if there is no compilation to abort.
* BUG: Object variables are correctly managed now.
* BUG: DO...LOOP and REPEAT...UNTIL at the beginning of the function now is correctly compiled in all cases.
2019-04-04 22:58:06 +02:00

103 lines
2.8 KiB
C

/***************************************************************************
gbx_archive.h
(c) 2000-2017 Benoît Minisini <g4mba5@gmail.com>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
***************************************************************************/
#ifndef __GBX_ARCHIVE_H
#define __GBX_ARCHIVE_H
#define PROJECT_EXEC
#include "gb_table.h"
#include "gb_file.h"
#include "gb_arch.h"
#include "gb_list.h"
// ARCHIVE_load_exported_class() pass argument
#define AR_FIND_ONLY 1
#define AR_LOAD_ONLY 2
#define AR_FIND_AND_LOAD 3
typedef
struct {
LIST list;
ARCH *arch;
const char *name;
char *version;
char *domain;
TABLE *classes;
const char *path;
void *current_component;
struct _CLASS **exported;
void *jit_library;
unsigned translation_loaded : 1;
unsigned exported_classes_loaded : 1;
unsigned version_loaded : 1;
unsigned jit_state : 2;
}
ARCHIVE;
typedef
struct {
ARCHIVE *arch;
ARCH_SYMBOL *sym;
int index;
int pos;
int len;
}
ARCHIVE_FIND;
#ifndef __ARCHIVE_C
EXTERN ARCHIVE *ARCHIVE_main;
EXTERN char *ARCHIVE_path;
#endif
void ARCHIVE_init(void);
void ARCHIVE_exit(void);
void ARCHIVE_create_main(const char *path);
void ARCHIVE_load_main(void);
ARCHIVE *ARCHIVE_create(const char *name, const char *path);
void ARCHIVE_delete(ARCHIVE *arch);
void ARCHIVE_load(ARCHIVE *arch, bool load_exp);
void ARCHIVE_load_exported_class(ARCHIVE *arch, int pass);
char *ARCHIVE_get_version(ARCHIVE *arch);
bool ARCHIVE_get(ARCHIVE *arch, const char **ppath, ARCHIVE_FIND *find);
void ARCHIVE_read(ARCHIVE *arch, int pos, void *buffer, int len);
bool ARCHIVE_exist(ARCHIVE *arch, const char *path);
void ARCHIVE_stat(ARCHIVE *arch, const char *path, FILE_STAT *info);
bool ARCHIVE_is_dir(ARCHIVE *arch, const char *path);
void ARCHIVE_dir_first(ARCHIVE *arch, const char *path, const char *pattern, int attr);
bool ARCHIVE_dir_next(char **name, int *len, int attr);
bool ARCHIVE_find_from_path(ARCHIVE **parch, const char **ppath);
bool ARCHIVE_get_current(ARCHIVE **parch);
bool ARCHIVE_check_addr(char *addr);
void ARCHIVE_browse(ARCHIVE *arch, void (*found)(const char *path, int64_t size));
#endif