Am Donnerstag, den 09.11.2006, 19:52 -0700 schrieb [EMAIL PROTECTED]:
> > particle_t = record
> > name: array [0..Pred(16)] of char;
> > longi: integer;
> > pressure: float;
> > temperature: double;
> > lati: integer;
> > end;
> >
> >
Am Freitag, den 10.11.2006, 11:08 +0100 schrieb Marco van de Voort:
> > I have to translate a lot of assignements like this:
> >
> > particle_t = record
> > name: array [0..Pred(16)] of char;
> > longi: integer;
> > pressure: float;
> > temperature
Peter Beisel wrote:
> target go32v2
> compiler fpc1.0.6
>
> This sequence succeeds
> begin
> ...
> exec( 'aTSR.EXE', '');
> // execute an external programm aTSR;
> // aTSR.EXE will hook an interrupt, terminate and stay resident
> ...
> rm := global_dos_alloc( aSize);
> rmSelector
> I have to translate a lot of assignements like this:
>
> particle_t = record
> name: array [0..Pred(16)] of char;
> longi: integer;
> pressure: float;
> temperature: double;
> lati: integer;
> end;
>
> ibuf: array [
target go32v2
compiler fpc1.0.6
This sequence succeeds
begin
...
exec( 'aTSR.EXE', '');
// execute an external programm aTSR;
// aTSR.EXE will hook an interrupt, terminate and stay resident
...
rm := global_dos_alloc( aSize);
rmSelector := word( rm);
rmSegment:= word( rm shr 16)