Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - BOA

Pages1
#1
newLISP and the O.S. /
December 22, 2004, 01:30:14 AM
I'm don't has told in previous post that tried other variants





/*if ((data = mmap((caddr_t)0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_ANONYMOUS, -1, 0)) == (caddr_t)(-1)) {

            perror("mmap");   exit(1);    }

if ((data = mmap((caddr_t)0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_ANONYMOUS, fd, 0)) == (caddr_t)(-1)) {

            perror("mmap");   exit(1);    }

if ((data = mmap((caddr_t)0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS, -1, 0)) == (caddr_t)(-1)) {

            perror("mmap");   exit(1);    }

*/if ((data = mmap((caddr_t)0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS, fd, 0)) == (caddr_t)(-1)) {

            perror("mmap");   exit(1);    }



But only variant with MAP_PRIVATE is good

I'm understanding what you used mmap function for acceleration executing of lisp program.

It occurs because of that that lisp program it appears in cache of kernel.



I think that it is necessary to try to separate a task of acceleration from a task of divided(shared) memory

Then it will be possible for a task of shared memory used the set functions shmget and her (it) companions, but a task of acceleration used mmap function. Then there will be an opportunity to switch (on|off) use mmap function at compilation



BoA
#2
newLISP and the O.S. /
December 21, 2004, 02:44:51 PM
Lutz>Probably the Kernel was compiled for the 386 CPU which probably has a different memory management then 486 and above.



Unfortunately it is not so

GCC uses an option -D686 at creation kernel

I tried kernel-2.2.16 and kernel-2.2.20



In this form all works

mmap ((caddr_t) 0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS, fd, 0))

And in such form

mmap ((caddr_t) 0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_ANONYMOUS, fd, 0))

After start of the program (mmapdemo 30) I receive the message - mmap: invalid parameter



Example which I used for check

     #include <stdio.h>

     #include <stdlib.h>

     #include <fcntl.h>

     #include <unistd.h>

     #include <sys/types.h>

     #include <sys/mman.h>

     #include <sys/stat.h>

     #include <errno.h>

    int main (int argc, char *argv [])

    {

        int fd, offset;

        char *data;

        struct stat sbuf;

        if (argc! = 2) {

            fprintf (stderr, " usage: mmapdemo offsetn ");

            exit (1);

       }

        if ((fd = open ("mmapdemo.c", O_RDWR)) == -1) {

            perror ("open");

            exit (1);

       }

        if (stat ("mmapdemo.c", &sbuf) == -1) {

            perror ("stat");

            exit (1);

       }

        offset = atoi (argv [1]);

        if (offset < 0 || offset > sbuf.st_size-1) {

            fprintf (stderr, " mmapdemo: offset must be in the range 0- % dn ", sbuf.st_size-1);

            exit (1);

       }

        if ((data = mmap ((caddr_t) 0, sbuf.st_size, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS, fd, 0)) == (caddr_t) (-1)) {

            perror ("mmap");

            exit (1);

       }

        printf (" byte at offset %d is ' %c 'n ", offset, data [offset]);

        data [offset] = 'F';

        printf (" byte at offset %d is ' %c 'n ", offset, data [offset]);

        return 0;

   }



Boa
#3
newLISP and the O.S. / Re: kernel 2.2.16 and mmap function
December 21, 2004, 05:43:24 AM
Hi, Lutz.



1

You use the correct form of a call of function mmap

( I did not doubt of it:-)

But SO will work only with kernel-2.4.xx and later

2

It not the problem Pygmy Linux (is based on Slackware).

It is a problem (feature) kernel-2.2.16

If to use RedHat, Fedora, Slackware and more with kernel-2.2.16 there will be a same result



Why?

I have made simple experiment.



From a site kernel.org has taken kernel-2.4.27

Has copied on Pygmy Linux

Has made compilation and installation kernel-2.4.27

Was reloaded

And all began to work as it would be desirable:-)

I tried the following

( set ' tmp (share))

( share ' tmp 0)



Why I have informed about this problem?

I would like to use newlisp on the boot diskettes

As a rule there is used kernel-2.0.36 and kernel-2.2.xx



I apologize for mine English

Nobody wanted to offend



I wish good luck.



BoA
#4
newLISP and the O.S. / kernel 2.2.16 and mmap function
December 20, 2004, 04:25:26 AM
Hi, Lutz.





Code in .1 and .2 (see down) are not according with requirements in MMAP(2).







MMAP(2)             Linux Programmer's Manual             MMAP(2)





NAME

       mmap, munmap - map or unmap files or devices into memory



       ...



       void  *  mmap(void  *start,  size_t length, int prot , int

       flags, int fd, off_t offset);



       ...



       fd should be a valid file descriptor, unless MAP_ANONYMOUS

       is set, in which case the argument is ignored



       ...



       MAP_ANONYMOUS

              The mapping is not backed by any file; the  fd  and

              offset  arguments  are  ignored.  This flag in con-

              junction with MAP_SHARED is implemented since Linux 2.4.

              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

       ...



newlisp.c

--

int loadFile(char * fileName, UINT offset, int encryptFlag)

{

STREAM stream;

...



if(makeStreamFromFile(&stream, fileName, dataLen + MAX_STRING, offset) == 0)

   return(0);

...



evaluateString(&stream, 0);



...

closeStrStream(&stream);

return(TRUE);

}





nl-string.c

--

int makeStreamFromFile(STREAM * stream, char * fileName, UINT size, UINT offset)

{

if((stream->handle = open(fileName, O_RDONLY | O_BINARY)) == -1) return(0);



.1                                   ^^^^^^^^^^^^^^^^^^^

/*

correctly will be

if((stream->handle = open(fileName, O_RDWR)) == -1) return(0);

*/



...

return(TRUE);

}





CELL * p_share(CELL * params)

{

...



if(params != nilCell)

   {



...

   return(nilCell);

   }



if((address.ptr = (UINT*)mmap(

0, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_ANON, -1, 0)) == (void*)-1)



.2            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

/*

correctly will be, but "fd" is not scope here

if((address.ptr = (UINT*)mmap(

0, pagesize, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0)) == (void*)-1)

*/

      return(nilCell);



memset((char *)address.num, 0, pagesize);

return(stuffInteger(address.num));



...

}



May be better to use next functions for organization share memory



int shmget (key_t key, int size, int flag);

void *shmat (int shmid, void *addr, int flag);

void shmdt (void *ptr);

int shmctl (int shmid, int cmd, struct shmid_ds *buf);



Bye, Boa.
Pages1