program TESTPT ( OUTPUT ) ;
//************************************************
//$A+ ... enable Assembler output
//************************************************
type PT = -> PT ;
var PTEST : PT ;
function LQUEUE ( P : PT ) : INTEGER ;
var L : INTEGER ;
begin (* LQUEUE *)
L := 0 ;
while P <> NIL do
begin
P := P -> ;
L := L + 1
end (* while *) ;
LQUEUE := L
end (* LQUEUE *) ;
begin (* HAUPTPROGRAMM *)
NEW ( PTEST ) ;
NEW ( PTEST -> ) ;
NEW ( PTEST -> -> ) ;
NEW ( PTEST -> -> -> ) ;
NEW ( PTEST -> -> -> -> ) ;
NEW ( PTEST -> -> -> -> -> ) ;
PTEST -> -> -> -> -> := NIL ;
WRITELN ( LQUEUE ( PTEST ) ) ;
end (* HAUPTPROGRAMM *) .
the result is:
c:\work\pascal\work>pcint prr=testpt.prr inc=paslibx,pasutils,
pas=testpt.pas out=testpt.prrlis
PCINT (Build 1.0 Apr 5 2018 07:58:58)
5
c:\work\pascal\work>
this is the New Stanford Pascal compiler,
a modern variant of Wirth's P4 compiler.
that is:
type
PINT = -> INT ;
INT = PINT ;
PT = -> PT ;
this is all possible in Standard Pascal, IMO,
although not very useful, of course.
Kind regards
Bernd
Am 22.04.2018 um 23:30 schrieb Alexander Grotewohl:
imagine a linked list.. with nothing but the pointers.. lol
On 4/22/2018 1:05 PM, Jonas Maebe wrote:
On 22/04/18 17:00, Mattias Gaertner wrote:
Is this a bug or a feature:
type
Pint = ^int;
int = PInt;
?
It's a bug.
Jonas
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
