gdb/1898: free pascal, Darwin Kernel Version 7.8.0, Power Macintosh powerpc

[arturk at math dot uwb dot edu dot pl]

>Number:         1898
>Category:       gdb
>Synopsis:       free pascal, Darwin Kernel Version 7.8.0, Power Macintosh powerpc
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          mistaken
>Submitter-Id:   net
>Arrival-Date:   Sat Mar 19 13:08:01 UTC 2005
>Closed-Date:
>Last-Modified:
>Originator:     arturk@math.uwb.edu.pl
>Release:        GNU gdb 5.3-20030128 (Apple version gdb-330.1) (Fri Jul 16 21:42:28 GMT 2004)
>Organization:
>Environment:
Darwin akserve.local 7.8.0 Darwin Kernel Version 7.8.0: Wed Dec 22 14:26:17 PST 2004; root:xnu/xnu-517.11.1.obj~1/RELEASE_PPC  Power Macintosh powerpc
>Description:
Having v.pas being a main program and s.pas being a unit (see below)
printing of variable "a" introduced in the unit results with comment
"Cannot access memory at address $1".

Full session looks like:

akserve:~/temp artur$ more s.pas 
unit s;
interface
var a: byte;
implementation
end.

akserve:~/temp artur$ more v.pas
uses s;
begin
   a:=10;
   writeln(a);
end.

akserve:~/temp artur$ fpc -g -B v.pas
Free Pascal Compiler version 1.9.8 [2005/02/20] for powerpc
Copyright (c) 1993-2005 by Florian Klaempfl
Target OS: Darwin for PowerPC
Compiling v.pas
Compiling s.pas
Assembling s
Assembling program
Linking v
16 Lines compiled, 0.2 sec
akserve:~/temp artur$ gdb ./v
GNU gdb 5.3-20030128 (Apple version gdb-330.1) (Fri Jul 16 21:42:28 GMT 2004)
Copyright 2003 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "powerpc-apple-darwin".
Reading symbols for shared libraries .. done
(gdb) b v.pas:5
Breakpoint 1 at 0x1cf4: file v.pas, line 5.
(gdb) r
Starting program: /Users/artur/temp/v 
Reading symbols for shared libraries . done

Breakpoint 1, P$PROGRAM_main () at v.pas:5
5          writeln(a);
(gdb) p a
Cannot access memory at address $1
(gdb) p A
Cannot access memory at address $1
(gdb) c
Continuing.
Current language:  auto; currently pascal
10

Program exited normally.
(gdb) q
akserve:~/temp artur$ 
>How-To-Repeat:

>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
 GNU gdb 5.3-20030128 (Apple version gdb-330.1) (Fri Jul 16 21:42:28 GMT 2004)
 GNU gdb 5.3-20030128 (Apple version gdb-330.1) (Fri Jul 16 21:42:28 GMT 2004)
 GNU gdb 5.3-20030128 (Apple version gdb-330.1) (Fri Jul 16 21:42:28 GMT 2004)
----gnatsweb-attachment----
Content-Type: application/octet-stream; name="v.pas"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="v.pas"

dXNlcyBzOwoKYmVnaW4KICAgYTo9MTA7CiAgIHdyaXRlbG4oYSk7CmVuZC4KCg==