Mariusz Zynel wrote:
Hi All,
Due to some inquires I had recently, have just build latest GPC
(20011202) under Solaris 8 using GCC 2.95.3. Binaries are packaged
with native Solaris tools and are available at:
ftp://math.uwb.edu.pl/pub/solaris8
as well as:
ftp://agnes.dida.physik.uni-essen.de/home/mariusz
Is it compiled so that it doesn't execute procedural
parameters in the stack? The following discussion is
from comp.lang.pascal.misc:
------------------ * clip starts here * ----------------------
Serafim,
I don't think it's your code - I think it's the GNU compiler.
Look in /etc/system - you may find a variable like 'no_exec_stack = 1'
set
that prohibits executing code from the stack. It's an optional security
feature in Solaris.
Good Luck,
-S
On Fri, 26 Oct 2001, Serafim Dahl wrote:
The program below is implemented with the sole intention to
show how to use procedures as parameters to procedures. However, it
works
when compiled with SUN Workshop Pascal but not when compiled
with GNU Pascal. When trying to start it when compiled with
GNU Pascal (version 20010623 on a Solaris 8, Ultra 5)
I get the following error message:
Oct 26 17:05:11 serafim.nada.kth.se genunix:
NOTICE: test[4264] attempt to execute code on stack by uid 1167
Segmentation Fault
Here is the program:
PROGRAM test(input,output);
CONST low = 1;
high = 10;
TYPE index = low..high;
natural = 0..Maxint;
item = natural;
intTable = ARRAY [index] OF item;
VAR table : intTable;
PROCEDURE doToEach(VAR t: intTable; PROCEDURE toDo(VAR i: item));
PROCEDURE iter(n: index);
BEGIN
toDo(t[n]);
IF n < high THEN iter(Succ(n))
END;
BEGIN
iter(low)
END;
FUNCTION sum(VAR t: intTable): item;
VAR tmpSum: item;
PROCEDURE addItem(VAR i: item);
BEGIN
tmpSum := tmpSum + i
END;
BEGIN
tmpSum := 0;
doToEach(t, addItem);
sum := tmpSum
END;
PROCEDURE readTable(VAR t: intTable);
PROCEDURE readItem(VAR i: item);
BEGIN
Read(i)
END;
BEGIN
doToEach(t, readItem)
END;
BEGIN
Write('Enter ten numbers ');
readTable(table);
Writeln('The sum is ', sum(table):1);
END.
-------------------- * end of clip * ------------------
Mariusz Zynel
Serafim Dahl