test/project1.lps 0000644 0001750 0001750 00000001653 13066652412 012462 0 ustar usb usb
test/project1.ppr 0000644 0001750 0001750 00000000547 13062311707 012461 0 ustar usb usb program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1
{ you can add units after this };
{$R *.res}
begin
RequireDerivedFormResource:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
test/unit1.frm 0000644 0001750 0001750 00000000170 13062311707 011745 0 ustar usb usb object Form1: TForm1
Left = 358
Height = 240
Top = 163
Width = 320
Caption = 'Form1'
LCLVersion = '6.1'
end
test/ppas.sh 0000755 0001750 0001750 00000000610 13066652665 011517 0 ustar usb usb #!/bin/sh
DoExitAsm ()
{ echo "An error occurred while assembling $1"; exit 1; }
DoExitLink ()
{ echo "An error occurred while linking $1"; exit 1; }
echo Linking project1
OFS=$IFS
IFS="
"
/usr/local/codetyphon/fpc/fpc64/bin/x86_64-linux/arm-linux-ld --dynamic-linker=/lib/ld-linux-armhf.so.3 -s -L. -o project1 -T link.res -e _start
if [ $? != 0 ]; then DoExitLink project1; fi
IFS=$OFS
test/project1.ctpr 0000644 0001750 0001750 00000004051 13066652412 012627 0 ustar usb usb
test/unit1.pas 0000644 0001750 0001750 00000000350 13062311707 011744 0 ustar usb usb unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TForm1 = class(TForm)
private
public
end;
var
Form1: TForm1;
implementation
{$R *.frm}
end.
test/project1.ico 0000644 0001750 0001750 00000551550 13062311705 012435 0 ustar usb usb B v ( `` @@ (B V 00 % X h PNG
IHDR \rf IDATx%E>\};wa˲\D/` Eb@Eb*$1$fg'O3gfgך_OUd=}-ۚIˮzնED''=!r%R