mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 19:43:15 +01:00
* obsolete
This commit is contained in:
peter
parent
0ba28348ff
commit
8d0b0aa3fe
125
base/template
125
base/template
@ -1,125 +0,0 @@
|
||||
#
|
||||
# $Id$
|
||||
# Copyright (c) 1999 by the Free Pascal Development Team
|
||||
#
|
||||
# Makefile for <template> for Free Pascal
|
||||
#
|
||||
# See the file COPYING.FPC, included in this distribution,
|
||||
# for details about the copyright.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
#
|
||||
|
||||
|
||||
#####################################################################
|
||||
# Defaults
|
||||
#####################################################################
|
||||
|
||||
# Where are the include files located
|
||||
INC=
|
||||
PROCINC=
|
||||
OSINC=
|
||||
|
||||
# Needed options, without it won't compile
|
||||
NEEDOPT=
|
||||
|
||||
# Needed unit dir, which is searched as the first path
|
||||
NEEDUNITDIR=
|
||||
|
||||
# Where need we to place the executables/ppu/objects
|
||||
TARGETDIR=
|
||||
UNITTARGETDIR=
|
||||
|
||||
# As default make only the units
|
||||
#DEFAULTUNITS=1
|
||||
|
||||
|
||||
#####################################################################
|
||||
# Real targets
|
||||
#####################################################################
|
||||
|
||||
UNITOBJECTS=
|
||||
EXEOBJECTS=
|
||||
|
||||
|
||||
#####################################################################
|
||||
# Common targets
|
||||
#####################################################################
|
||||
|
||||
.PHONY: all clean install info \
|
||||
staticlib sharedlib libsclean \
|
||||
staticinstall sharedinstall libinstall \
|
||||
|
||||
all: testfpcmake fpc_all
|
||||
|
||||
clean: testfpcmake fpc_clean
|
||||
|
||||
install: testfpcmake fpc_install
|
||||
|
||||
info: testfpcmake fpc_info
|
||||
|
||||
staticlib: testfpcmake fpc_staticlib
|
||||
|
||||
sharedlib: testfpcmake fpc_sharedlib
|
||||
|
||||
libsclean: testfpcmake fpc_libsclean
|
||||
|
||||
staticinstall: testfpcmake fpc_staticinstall
|
||||
|
||||
sharedinstall: testfpcmake fpc_sharedinstall
|
||||
|
||||
libinstall: testfpcmake fpc_libinstall
|
||||
|
||||
|
||||
#####################################################################
|
||||
# Include default makefile
|
||||
#####################################################################
|
||||
|
||||
# test if FPCMAKE is still valid
|
||||
ifdef FPCMAKE
|
||||
ifeq ($(strip $(wildcard $(FPCMAKE))),)
|
||||
FPCDIR=
|
||||
FPCMAKE=
|
||||
endif
|
||||
endif
|
||||
|
||||
ifndef FPCDIR
|
||||
ifdef DEFAULTFPCDIR
|
||||
FPCDIR=$(DEFAULTFPCDIR)
|
||||
endif
|
||||
endif
|
||||
|
||||
ifndef FPCMAKE
|
||||
ifdef FPCDIR
|
||||
FPCMAKE=$(FPCDIR)/makefile.fpc
|
||||
else
|
||||
FPCMAKE=makefile.fpc
|
||||
endif
|
||||
endif
|
||||
|
||||
override FPCMAKE:=$(strip $(wildcard $(FPCMAKE)))
|
||||
ifeq ($(FPCMAKE),)
|
||||
testfpcmake:
|
||||
@echo makefile.fpc not found!
|
||||
@echo Check the FPCMAKE and FPCDIR environment variables.
|
||||
@exit
|
||||
else
|
||||
include $(FPCMAKE)
|
||||
testfpcmake:
|
||||
endif
|
||||
|
||||
|
||||
|
||||
#####################################################################
|
||||
# Dependencies
|
||||
#####################################################################
|
||||
|
||||
|
||||
#
|
||||
# $Log$
|
||||
# Revision 1.1 1999-03-16 00:50:29 peter
|
||||
# + init
|
||||
#
|
||||
#
|
||||
@ -1,469 +0,0 @@
|
||||
.file "inputall.pp"
|
||||
|
||||
.text
|
||||
.align 4
|
||||
.globl _DONE_CB$PFL_OBJECT$LONGINT
|
||||
.type _DONE_CB$PFL_OBJECT$LONGINT,@function
|
||||
_DONE_CB$PFL_OBJECT$LONGINT:
|
||||
.globl done_cb
|
||||
.type done_cb,@function
|
||||
done_cb:
|
||||
pushl %ebp
|
||||
movl %esp,%ebp
|
||||
pushl $0
|
||||
call _SYSLINUX$$_HALT$BYTE
|
||||
leave
|
||||
ret $8
|
||||
.align 4
|
||||
.globl _INPUT_CB$PFL_OBJECT$LONGINT
|
||||
.type _INPUT_CB$PFL_OBJECT$LONGINT,@function
|
||||
_INPUT_CB$PFL_OBJECT$LONGINT:
|
||||
.globl input_cb
|
||||
.type input_cb,@function
|
||||
input_cb:
|
||||
pushl %ebp
|
||||
movl %esp,%ebp
|
||||
subl $532,%esp
|
||||
leal -8(%ebp),%eax
|
||||
pushl %eax
|
||||
leal -4(%ebp),%eax
|
||||
pushl %eax
|
||||
pushl 8(%ebp)
|
||||
call fl_get_input_cursorpos
|
||||
addl $12,%esp
|
||||
movl %eax,-12(%ebp)
|
||||
pushl $128
|
||||
leal -273(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $-1
|
||||
pushl -12(%ebp)
|
||||
call FPC_SHORTSTR_LONGINT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $.L23
|
||||
pushl $255
|
||||
call FPC_SHORTSTR_COPY
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -273(%ebp),%edi
|
||||
pushl %edi
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $.L24
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -141(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $128
|
||||
call FPC_SHORTSTR_COPY
|
||||
pushl $128
|
||||
leal -273(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $-1
|
||||
pushl -4(%ebp)
|
||||
call FPC_SHORTSTR_LONGINT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -141(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $255
|
||||
call FPC_SHORTSTR_COPY
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $.L31
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -273(%ebp),%edi
|
||||
pushl %edi
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $.L24
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -141(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $128
|
||||
call FPC_SHORTSTR_COPY
|
||||
pushl $128
|
||||
leal -273(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $-1
|
||||
pushl -8(%ebp)
|
||||
call FPC_SHORTSTR_LONGINT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -141(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $255
|
||||
call FPC_SHORTSTR_COPY
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $.L38
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -273(%ebp),%edi
|
||||
pushl %edi
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $.L39
|
||||
call FPC_SHORTSTR_CONCAT
|
||||
leal -141(%ebp),%edi
|
||||
pushl %edi
|
||||
leal -530(%ebp),%edi
|
||||
pushl %edi
|
||||
pushl $128
|
||||
call FPC_SHORTSTR_COPY
|
||||
leal -140(%ebp),%eax
|
||||
pushl %eax
|
||||
movl 8(%ebp),%eax
|
||||
movl (%eax),%eax
|
||||
movl (%eax),%eax
|
||||
pushl 16(%eax)
|
||||
call fl_set_object_label
|
||||
addl $8,%esp
|
||||
leave
|
||||
ret $8
|
||||
.align 4
|
||||
.globl _HIDE_SHOW_CB$PFL_OBJECT$LONGINT
|
||||
.type _HIDE_SHOW_CB$PFL_OBJECT$LONGINT,@function
|
||||
_HIDE_SHOW_CB$PFL_OBJECT$LONGINT:
|
||||
.globl hide_show_cb
|
||||
.type hide_show_cb,@function
|
||||
hide_show_cb:
|
||||
pushl %ebp
|
||||
movl %esp,%ebp
|
||||
subl $4,%esp
|
||||
movl 8(%ebp),%eax
|
||||
movl (%eax),%eax
|
||||
movl (%eax),%edi
|
||||
movl %edi,-4(%ebp)
|
||||
movl -4(%ebp),%eax
|
||||
movl 12(%eax),%eax
|
||||
movl 188(%eax),%eax
|
||||
testl %eax,%eax
|
||||
jne .L48
|
||||
jmp .L49
|
||||
.L48:
|
||||
movl -4(%ebp),%eax
|
||||
pushl 12(%eax)
|
||||
call fl_hide_object
|
||||
popl %edi
|
||||
jmp .L52
|
||||
.L49:
|
||||
movl -4(%ebp),%eax
|
||||
pushl 12(%eax)
|
||||
call fl_show_object
|
||||
popl %edi
|
||||
.L52:
|
||||
leave
|
||||
ret $8
|
||||
.align 4
|
||||
.globl _CREATE_FORM_INPUT
|
||||
.type _CREATE_FORM_INPUT,@function
|
||||
_CREATE_FORM_INPUT:
|
||||
pushl %ebp
|
||||
movl %esp,%ebp
|
||||
subl $12,%esp
|
||||
pushl $20
|
||||
leal -12(%ebp),%edi
|
||||
pushl %edi
|
||||
call FPC_GETMEM
|
||||
movl -12(%ebp),%eax
|
||||
pushl %eax
|
||||
pushl $441
|
||||
pushl $441
|
||||
pushl $0
|
||||
call fl_bgn_form
|
||||
addl $12,%esp
|
||||
movl %eax,%edx
|
||||
popl %eax
|
||||
movl %edx,(%eax)
|
||||
leal .L69+1,%eax
|
||||
pushl %eax
|
||||
pushl $441
|
||||
pushl $441
|
||||
pushl $0
|
||||
pushl $0
|
||||
pushl $1
|
||||
call fl_add_box
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
leal .L84+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $340
|
||||
pushl $40
|
||||
pushl $40
|
||||
pushl $0
|
||||
call fl_add_input
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
movl -12(%ebp),%eax
|
||||
movl -8(%ebp),%edi
|
||||
movl %edi,8(%eax)
|
||||
pushl $5
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_lalign
|
||||
addl $8,%esp
|
||||
pushl $0
|
||||
leal _INPUT_CB$PFL_OBJECT$LONGINT,%eax
|
||||
pushl %eax
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_callback
|
||||
addl $12,%esp
|
||||
leal .L111+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $160
|
||||
pushl $100
|
||||
pushl $40
|
||||
pushl $2
|
||||
call fl_add_input
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
pushl $5
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_lalign
|
||||
addl $8,%esp
|
||||
leal .L130+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $160
|
||||
pushl $100
|
||||
pushl $230
|
||||
pushl $1
|
||||
call fl_add_input
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
pushl $5
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_lalign
|
||||
addl $8,%esp
|
||||
leal .L149+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $160
|
||||
pushl $150
|
||||
pushl $40
|
||||
pushl $3
|
||||
call fl_add_input
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
pushl $5
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_lalign
|
||||
addl $8,%esp
|
||||
leal .L168+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $160
|
||||
pushl $150
|
||||
pushl $230
|
||||
pushl $6
|
||||
call fl_add_input
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
pushl $5
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_lalign
|
||||
addl $8,%esp
|
||||
leal .L187+1,%eax
|
||||
pushl %eax
|
||||
pushl $180
|
||||
pushl $360
|
||||
pushl $210
|
||||
pushl $40
|
||||
pushl $4
|
||||
call fl_add_input
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
movl -12(%ebp),%eax
|
||||
movl -8(%ebp),%edi
|
||||
movl %edi,12(%eax)
|
||||
pushl $0
|
||||
leal _INPUT_CB$PFL_OBJECT$LONGINT,%eax
|
||||
pushl %eax
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_callback
|
||||
addl $12,%esp
|
||||
leal .L69+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $210
|
||||
pushl $400
|
||||
pushl $30
|
||||
pushl $0
|
||||
call fl_add_text
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
movl -12(%ebp),%eax
|
||||
movl -8(%ebp),%edi
|
||||
movl %edi,16(%eax)
|
||||
pushl $8196
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_lalign
|
||||
addl $8,%esp
|
||||
leal .L230+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $70
|
||||
pushl $400
|
||||
pushl $330
|
||||
pushl $0
|
||||
call fl_add_button
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
pushl $0
|
||||
leal _DONE_CB$PFL_OBJECT$LONGINT,%eax
|
||||
pushl %eax
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_callback
|
||||
addl $12,%esp
|
||||
leal .L251+1,%eax
|
||||
pushl %eax
|
||||
pushl $30
|
||||
pushl $70
|
||||
pushl $400
|
||||
pushl $250
|
||||
pushl $0
|
||||
call fl_add_button
|
||||
addl $24,%esp
|
||||
movl %eax,-8(%ebp)
|
||||
pushl $0
|
||||
leal _HIDE_SHOW_CB$PFL_OBJECT$LONGINT,%eax
|
||||
pushl %eax
|
||||
pushl -8(%ebp)
|
||||
call fl_set_object_callback
|
||||
addl $12,%esp
|
||||
call fl_end_form
|
||||
movl -12(%ebp),%eax
|
||||
movl (%eax),%eax
|
||||
movl -12(%ebp),%edi
|
||||
movl %edi,(%eax)
|
||||
movl -12(%ebp),%edi
|
||||
movl %edi,-4(%ebp)
|
||||
movl -4(%ebp),%eax
|
||||
leave
|
||||
ret
|
||||
.align 4
|
||||
.globl main
|
||||
.type main,@function
|
||||
main:
|
||||
.globl PASCALMAIN
|
||||
.type PASCALMAIN,@function
|
||||
PASCALMAIN:
|
||||
.globl program_init
|
||||
.type program_init,@function
|
||||
program_init:
|
||||
pushl %ebp
|
||||
movl %esp,%ebp
|
||||
call FPC_INITIALIZEUNITS
|
||||
pushl $0
|
||||
pushl $0
|
||||
leal .L69+1,%eax
|
||||
pushl %eax
|
||||
pushl U_SYSLINUX_ARGV
|
||||
leal U_SYSLINUX_ARGC,%eax
|
||||
pushl %eax
|
||||
call fl_initialize
|
||||
addl $20,%esp
|
||||
call _CREATE_FORM_INPUT
|
||||
movl %eax,_FD_INPUT
|
||||
pushl $1
|
||||
movl _FD_INPUT,%eax
|
||||
pushl 16(%eax)
|
||||
call fl_set_object_dblbuffer
|
||||
addl $8,%esp
|
||||
pushl $3
|
||||
movl _FD_INPUT,%eax
|
||||
pushl 12(%eax)
|
||||
call fl_set_object_return
|
||||
addl $8,%esp
|
||||
pushl $3
|
||||
movl _FD_INPUT,%eax
|
||||
pushl 8(%eax)
|
||||
call fl_set_object_return
|
||||
addl $8,%esp
|
||||
leal .L298+1,%eax
|
||||
pushl %eax
|
||||
pushl $1
|
||||
pushl $16386
|
||||
movl _FD_INPUT,%eax
|
||||
pushl (%eax)
|
||||
call fl_show_form
|
||||
addl $16,%esp
|
||||
jmp .L306
|
||||
.L305:
|
||||
.L306:
|
||||
call fl_do_forms
|
||||
cmpl $0,%eax
|
||||
jne .L305
|
||||
jmp .L307
|
||||
.L307:
|
||||
call FPC_DO_EXIT
|
||||
leave
|
||||
ret
|
||||
|
||||
.data
|
||||
.ascii "FPC 0.99.11 for i386 - LINUX"
|
||||
.align 4
|
||||
.globl INITFINAL
|
||||
.type INITFINAL,@object
|
||||
INITFINAL:
|
||||
.long 3,0
|
||||
.long INIT$$SYSLINUX
|
||||
.long 0
|
||||
.long INIT$$OBJPAS
|
||||
.long 0
|
||||
.long INIT$$XLIB
|
||||
.long 0
|
||||
.globl HEAPSIZE
|
||||
.type HEAPSIZE,@object
|
||||
HEAPSIZE:
|
||||
.long 2097152
|
||||
|
||||
.data
|
||||
.L23:
|
||||
.ascii "\004P = \000"
|
||||
.L24:
|
||||
.ascii "\001 \000"
|
||||
.L31:
|
||||
.ascii "\003x= \000"
|
||||
.L38:
|
||||
.ascii "\003y= \000"
|
||||
.L39:
|
||||
.ascii "\001\000\000"
|
||||
.L69:
|
||||
.ascii "\000\000"
|
||||
.L84:
|
||||
.ascii "\013NormalInput\000"
|
||||
.L111:
|
||||
.ascii "\010IntInput\000"
|
||||
.L130:
|
||||
.ascii "\012FloatInput\000"
|
||||
.L149:
|
||||
.ascii "\011DateInput\000"
|
||||
.L168:
|
||||
.ascii "\013Secretinput\000"
|
||||
.L187:
|
||||
.ascii "\003MMM\000"
|
||||
.L230:
|
||||
.ascii "\004Done\000"
|
||||
.L251:
|
||||
.ascii "\011Hide/Show\000"
|
||||
.L298:
|
||||
.ascii "\005input\000"
|
||||
|
||||
.data
|
||||
|
||||
.bss
|
||||
.lcomm _FD_INPUT,4
|
||||
.comm HEAP,2097152
|
||||
|
||||
Loading…
Reference in New Issue
Block a user