generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

End assembler macro correctly.

Browse Source 
On VAX, all global variables are accessed through functions, so skip
doing transfer entries for variables.

Forgot the looping gotos.
This commit is contained in:
Richard Levitte 2001-11-16 09:09:15 +00:00
parent 0d197a833c
commit 452d1595a6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
VMS/mkshared.com
View File

@ -165,7 +165,7 @@ $ type sys$input:/out=mar:
.TRANSFER routine .TRANSFER routine
.MASK routine .MASK routine
JMP routine+2 JMP routine+2
.ENDM TRANSFER_ENTRY .ENDM FTRANSFER_ENTRY
; ;
; Place entries in own program section. ; Place entries in own program section.
; ;
@ -179,8 +179,8 @@ $ type sys$input:/out=mar:
; Allocate extra storage at end of vector to allow for expansion. ; Allocate extra storage at end of vector to allow for expansion.
; ;
$ write mar " .BLKB 32768-<.-",libvec,"_xfer> ; 64 pages total." $ write mar " .BLKB 32768-<.-",libvec,"_xfer> ; 64 pages total."
$ libwriter := write_vax_vtransfer_entry $! libwriter := write_vax_vtransfer_entry
$ gosub read_func_num $! gosub read_func_num
$ write mar " .END" $ write mar " .END"
$ close mar $ close mar
$ open/write opt 'libopt' $ open/write opt 'libopt'
@ -202,7 +202,7 @@ $ type sys$input:/out=opt:
PSECT_ATTR=$CHAR_STRING_CONSTANTS,NOWRT PSECT_ATTR=$CHAR_STRING_CONSTANTS,NOWRT
$ libwrch := opt $ libwrch := opt
$ libwriter := write_vax_psect_attr $ libwriter := write_vax_psect_attr
$ gosub read_var_num $ gosub read_func_num
$ close opt $ close opt
$ macro/obj='libobj' 'libmar' $ macro/obj='libobj' 'libmar'
$ link/map='libmap'/full/share='libgoal' 'libopt'/option $ link/map='libmap'/full/share='libgoal' 'libopt'/option
@ -266,6 +266,7 @@ $ falsesum = falsesum + 1
$ endif $ endif
$ if plat_entry .eqs. "VMS" then truesum = truesum + 1 $ if plat_entry .eqs. "VMS" then truesum = truesum + 1
$ if plat_entry .eqs. "!VMS" then falsesum = falsesum + 1 $ if plat_entry .eqs. "!VMS" then falsesum = falsesum + 1
$ goto loop1
$ endif $ endif
$ endloop1: $ endloop1:
$!DEBUG!$ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms $!DEBUG!$ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms
@ -285,6 +286,7 @@ $ if alg_entry .nes. ","
$ then $ then
$ if alg_entry .eqs. "KRB5" then goto loop ! Special for now $ if alg_entry .eqs. "KRB5" then goto loop ! Special for now
$ if f$trnlnm("OPENSSL_NO_"+alg_entry) .nes. "" then goto loop $ if f$trnlnm("OPENSSL_NO_"+alg_entry) .nes. "" then goto loop
$ goto loop2
$ endif $ endif
$ endloop2: $ endloop2:
$ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms $ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms