mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
da58a01ce6
(fixes displaying value shortstring parameters on SPARC, as reported on
fpc-devel mailing list on 20091005 by Mark Morgan Lloyd)
git-svn-id: trunk@13813 -
49 lines
804 B
ObjectPascal
49 lines
804 B
ObjectPascal
{ %opt=-g }
|
|
{ %interactive }
|
|
|
|
{ test to see whether parameters are properly visible in debugger }
|
|
|
|
PROGRAM Test;
|
|
|
|
|
|
{ when this routine is entered, the debugger should show:
|
|
"WRITELN2 (STR='Hello, World!', A=5, B=10) at tb0565.pp:17"
|
|
}
|
|
PROCEDURE WriteLn2(str: STRING; a: longint; var b: longint);
|
|
|
|
VAR ptr: ^INTEGER;
|
|
|
|
BEGIN
|
|
WriteLn(str);
|
|
ptr:= NIL;
|
|
// IF ptr^ = 0 THEN
|
|
// HALT;
|
|
WriteLn(str)
|
|
END;
|
|
|
|
{ when this routine is entered, the debugger should show:
|
|
"WRITELN3 (STR='Hello, World 3') at tb0565.pp:32"
|
|
}
|
|
PROCEDURE WriteLn3(var str: STRING);
|
|
|
|
VAR ptr: ^INTEGER;
|
|
|
|
BEGIN
|
|
WriteLn(str);
|
|
ptr:= NIL;
|
|
// IF ptr^ = 0 THEN
|
|
// HALT;
|
|
WriteLn(str)
|
|
END;
|
|
|
|
var
|
|
s: string;
|
|
b: longint;
|
|
BEGIN
|
|
b:=10;
|
|
WriteLn2('Hello, World!',5,b);
|
|
s:='Hello, World 3';
|
|
Writeln3(s);
|
|
END.
|
|
|