diff options
| author | Richard Levitte <levitte@openssl.org> | 2001-11-16 09:09:15 +0000 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2001-11-16 09:09:15 +0000 |
| commit | 452d1595a64c695df23006acbf46e3013a3140a7 (patch) | |
| tree | c9876318b49ccdd250d5c69ffe3c23e3e0a76efc /VMS | |
| parent | 0d197a833cec53bf34ac21c075a2431ce143eda9 (diff) | |
End assembler macro correctly.
On VAX, all global variables are accessed through functions, so skip
doing transfer entries for variables.
Forgot the looping gotos.
Diffstat (limited to 'VMS')
| -rw-r--r-- | VMS/mkshared.com | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/VMS/mkshared.com b/VMS/mkshared.com index b0be1282c5..afdc85bbe0 100644 --- a/VMS/mkshared.com +++ b/VMS/mkshared.com @@ -165,7 +165,7 @@ $ type sys$input:/out=mar: .TRANSFER routine .MASK routine JMP routine+2 - .ENDM TRANSFER_ENTRY + .ENDM FTRANSFER_ENTRY ; ; 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. ; $ write mar " .BLKB 32768-<.-",libvec,"_xfer> ; 64 pages total." -$ libwriter := write_vax_vtransfer_entry -$ gosub read_func_num +$! libwriter := write_vax_vtransfer_entry +$! gosub read_func_num $ write mar " .END" $ close mar $ open/write opt 'libopt' @@ -202,7 +202,7 @@ $ type sys$input:/out=opt: PSECT_ATTR=$CHAR_STRING_CONSTANTS,NOWRT $ libwrch := opt $ libwriter := write_vax_psect_attr -$ gosub read_var_num +$ gosub read_func_num $ close opt $ macro/obj='libobj' 'libmar' $ link/map='libmap'/full/share='libgoal' 'libopt'/option @@ -266,6 +266,7 @@ $ falsesum = falsesum + 1 $ endif $ if plat_entry .eqs. "VMS" then truesum = truesum + 1 $ if plat_entry .eqs. "!VMS" then falsesum = falsesum + 1 +$ goto loop1 $ endif $ endloop1: $!DEBUG!$ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms @@ -285,6 +286,7 @@ $ if alg_entry .nes. "," $ then $ if alg_entry .eqs. "KRB5" then goto loop ! Special for now $ if f$trnlnm("OPENSSL_NO_"+alg_entry) .nes. "" then goto loop +$ goto loop2 $ endif $ endloop2: $ if info_platforms - "EXPORT_VAR_AS_FUNCTION" .nes. info_platforms |