pike.git/ src/ program.c

2001-07-16

2001-07-16 19:48:59 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• f8222682d94e30c39d86fc6a510b1139d74feb70 (37 lines) (+34/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

first incarnation of --with-machine-code it only work on x86 with gcc so far, and that doesn't even work either...

Rev: bin/make_interpret_functions.pike:1.1
Rev: src/Makefile.in:1.268
Rev: src/acconfig.h:1.92
Rev: src/configure.in:1.538
Rev: src/interpret.c:1.220
Rev: src/interpret_functions.h:1.76
Rev: src/interpreter.h:1.70
Rev: src/las.c:1.257
Rev: src/lex.c:1.98
Rev: src/lex.h:1.19
Rev: src/peep.c:1.54
Rev: src/program.c:1.354
Rev: src/program.h:1.139

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.353 2001/07/13 11:26:39 grubba Exp $"); + RCSID("$Id: program.c,v 1.354 2001/07/16 19:48:59 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
991:   #include "program_areas.h"       data=malloc(size); -  if(!data) return; /* We are out of memory, but we don't care! */ +  if(!data) +  { +  make_program_executable(p); +  return; /* We are out of memory, but we don't care! */ +  }       size=0;   
1006:    p->total_size=size + sizeof(struct program);       p->flags |= PROGRAM_OPTIMIZED; +  make_program_executable(p);   }      /* internal function to make the index-table */
3995:    if(Pike_compiler->last_line != current_line ||    Pike_compiler->last_file != current_file)    { + #ifdef PIKE_USE_MACHINE_CODE + #if defined(__i386__) && defined(__GNUC__) +  /* We need to update Pike_interpreter.frame_pointer->pc */ +  INT32 tmp=PC; +  add_to_program(0x4c /* mov $xxxxx, %eax */); +  ins_int((INT32)(&Pike_interpreter.frame_pointer), add_to_program); +  +  add_to_program(0xc7); /* movl $xxxxx, yy%(eax) */ +  add_to_program(0x40); +  add_to_program(OFFSETOF(pike_frame, pc)); +  ins_int((INT32)tmp, add_to_program); + #endif + #endif +     if((Pike_compiler->last_file != current_file) ||    (DO_NOT_WARN((INT32)(PC - Pike_compiler->last_pc)) == 127))    {
5484:   }       -  +    PMOD_EXPORT void change_compiler_compatibility(int major, int minor)   {    if(major == Pike_compiler->compat_major &&
5563:    Pike_compiler->compat_major=major;    Pike_compiler->compat_minor=minor;   } +  + #ifdef PIKE_USE_MACHINE_CODE +  + #ifdef HAVE_SYS_MMAN_H + #include <sys/mman.h> + #endif +  + void make_program_executable(struct program *p) + { +  mprotect(p->program, p->num_program, PROT_EXEC | PROT_READ | PROT_WRITE); + } + #endif