[OFF TOPIC] :Utilizando el gdb para pascal.

[Juan Ortiz <juan_ortiz@sinectis.com.ar>]

Saludos Debianitas!
Disculpas por el offtopic pero se que en la listas de debian se encuentran
varios desarrolladores,y tal vez me puedan ayudar.
La cuestion es que necesito usar el gdb para inspeccionar un programita 
realizado en pascal y estoy perdido.
El programa lo compile con estas opiones fpc nuevito.pas -vg
y si bien lo puedo cargar con el dbg y darle al "run" y que se ejecute
no puedo(no se,mejor dicho) como hacer para inspeccionar las variables del
programa,el valor que toman ,etc.
Si bien tengo unos pequeños manuales delgdb no termmino de tomarle la 
mano al asunto,he tratado de inspeccionar funciones,variables,etc,pero
nada.por las dudas adjunto el programita tal vez alguien me pueda dar 
ejemplos con el mismo.
Los saluda y agradece.
-- 
Juan Ortiz
Powered by Debian/GNU Linux Woody

program tty;
var { Variable globales }
nombre :string[15];
cantidad_horas:real;
bruto:real;
neto:real;

{ Funciones del programa}
{******************************************************************************}
{ La funcion nombres ingresa nombre del trabajador }
function nombres:string [15];
var
nombre_empleado:string[15];
begin
WriteLn ('Ingrese el nombre del empleado');
ReadLn  (nombre_empleado);
nombres:=nombre_empleado
end;
{******************************************************************************}
{ La funcion horas ingresa y valida horas trabajadas }
function horas:real;
var { Declaracion de variables locales a la funcion horas }
hora:real;
begin
WriteLn ('Ingrese la cantidad de horas trabajadas');
ReadLn (hora);
while (hora<0) do
begin { Comienzo del clclo mientras }
WriteLn ('ERROR,reingrese nuevamente');
ReadLn (hora)
end; { Fin del ciclo mientras }
horas:=hora
end; { Fin de la funcion horas }
{******************************************************************************}
{ La funcion bruto ingresa y valida sueldo bruto }
function sueldo_bruto (cantidad_horas:real):real;
var { Declaracion de variables locales a la funcion bruto }
total_bruto:real;
salario:real;
begin
salario:=8.0;
total_bruto:=salario*cantidad_horas;
sueldo_bruto:=total_bruto
end; { Fin de la funcion bruto }
{******************************************************************************}
{ La funcion sueldo_neto calcula el sueldo neto }
function sueldo_neto(bruto:real):real;
var
total_neto:real;
porcentaje:real;
begin
porcentaje:=0.17;
total_neto:=(bruto)-(bruto*porcentaje);
sueldo_neto:=total_neto
end;
begin { Comienzo del programa principal }

nombre:=nombres; { La funcion nombres ingresa el nombre del empleado }
cantidad_horas:=horas; { La funcion horas ingresa y valida horas trabajadas }
bruto:=sueldo_bruto(cantidad_horas); { Saca sueldo bruto }
neto:=sueldo_neto(bruto); { Saca sueldo neto }

WriteLn ('El sueldo bruto de ',nombre,' es ',bruto);
WriteLn ('El sueldo neto de ',nombre,' es ',neto)

end. { Fin del programa principal }