Unsorted PA tests.

This commit is contained in:
Jeff Law 1993-10-29 05:21:18 +00:00
parent 7317acfcea
commit 47882613c7
4 changed files with 105 additions and 0 deletions

View File

@ -0,0 +1,38 @@
# Sanitize.in for devo.
# $Id$
#
# Each directory to survive it's way into a release will need a file
# like this one called "./.Sanitize". All keyword lines must exist,
# and must exist in the order specified by this file. Each directory
# in the tree will be processed, top down, in the following order.
# Hash started lines like this one are comments and will be deleted
# before anything else is done. Blank lines will also be squashed
# out.
# The lines between the "Do-first:" line and the "Things-to-keep:"
# line are executed as a /bin/sh shell script before anything else is
# done in this
Do-first:
# All files listed between the "Things-to-keep:" line and the
# "Files-to-sed:" line will be kept. All other files will be removed.
# Directories listed in this section will have their own Sanitize
# called. Directories not listed will be removed in their entirety
# with rm -rf.
Things-to-keep:
labeldiffs.s
locallabel.s
ss_align.s
unsorted.exp
Things-to-lose:
Do-last:
# End of file.

View File

@ -0,0 +1,40 @@
; Should check to make sure something useful gets put on those .word
; statements.
.space $TEXT$
.subspa $CODE$
.align 8
.export icode,data
icode:
.proc
.callinfo frame=0,no_calls
.entry
bv,n 0(2)
.exit
nop
.procend
;
; FIRST, argv array of pointers to args, 1st is same as path.
;
.align 8
ic_argv:
.word ic_argv1-icode ; second, pointer to 1st argument
.word ic_path-icode ; first, pointer to init path
.word 0 ; fourth, NULL argv terminator (pad)
.word 0 ; third, NULL argv terminator
ic_path:
.blockz 4096 ; must be multiple of 4 bytes
.word 0 ; in case full string is used
.word 0 ; this will be the string terminator
ic_argv1:
.blockz 4096 ; must be multiple of 4 bytes
.word 0 ; in case full string is used
.word 0 ; this will be the string terminator
.export szicode,data
szicode:
.word szicode-icode
.word 0 ; must have at least one filler at end

View File

@ -0,0 +1,15 @@
.SPACE $PRIVATE$
.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
.SPACE $TEXT$
.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
.SPACE $TEXT$
.SUBSPA $CODE$
.align 4
Label:
L$01234:

View File

@ -0,0 +1,12 @@
.SPACE $PRIVATE$
.SUBSPA $DATA$,QUAD=1,ALIGN=64,ACCESS=31
.SPACE $TEXT$
.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
.IMPORT $global$,DATA
.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
.SPACE $PRIVATE$
.SUBSPA $DATA$
sym1: .WORD 2