Re: prior parameter's size depends on `foo'

11 May 1999

      Hi!
...
The problem is at compile-time, attached is a small module which
exhibits this behaviour. My system is Red Hat Linux release 5.2 (Apollo) 
running kernel 2.0.36 on an i586. I've built gcc-2.8.1 and gpc
19990118.
gpc -v gives the following output
Reading specs from /usr/lib/gcc-lib/i586-pc-linux-gnu/2.8.1/specs
gpc version 19990118, based on gcc-2.8.1

Thanks for the detailed information. :-)
Below is a version of your test program that is ready for our
test suite.
To work around the bug, you can drop the first `protected'.
BTW, here are some off-topic remarks:
* In this example we are mixing Extended Pascal modules with
    UCSD (Borland) Pascal units.  EP wants `import' instead of
    `uses'.
* `MoveLeft' is also an UCSD extension not present in EP.
* `SetLength' is a GPC/Delphi extension.
While GPC accepts all this, it is maybe better to stick to one
flavour of modularized Pascal programming which means either
EP-style modules or UCSD-style unit, but not a mixture.
Furthermore if I would write an EP-style module at all, I would
not use non-EP extensions.  But it's a matter of taste, of
course.
Thanks for the well-written bug report,
Peter
-- 
Peter Gerwinski, Essen, Germany, http://home.pages.de/~Peter.Gerwinski/
Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-19990118
  PGP key on request - 6C 94 45 BE 28 A4 96 - 0E CC E9 12 47 25 82 75
*** Vote against SPAM! ********* http://www.politik-digital.de/spam/ ***

8< ---- daj1.pas -----------------------------------------------

Program Daj;

uses
  DajMod in 'dajmod1.pas';

Var
  OK: String ( 2 );

begin
  str_tail ( 'DIESELLOK', 2, OK );
  writeln ( OK );
end.

8< ---- dajmod1.pas --------------------------------------------

module dajmod1 interface;

export dajmod = (str_tail);

procedure str_tail(protected source:string;protected
i:integer;var dest:string);

end.

module dajmod1 implementation;

uses gpc;
var s1,s2:string(255);
    i:integer;

procedure str_tail;
var s2:string(255);
begin (*str_tail*)
 if (length(source)=0) or (i<1) or (i>length(source)) then
   dest:=''
 else
  begin
   moveleft(source[length(source)-i+1], s2[1], i);
   (*$x+*)
   setlength(s2,i);
   (*$x-*)
   dest:=s2;
  end;
end; (*str_tail*)

end.

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Re: prior parameter's size depends on `foo'

gpc -v gives the following output