Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Re: HP-PA native code gen #2466

Closed
vicuna opened this issue May 22, 2000 · 2 comments
Closed

Re: HP-PA native code gen #2466

vicuna opened this issue May 22, 2000 · 2 comments
Labels

Comments

@vicuna
Copy link

vicuna commented May 22, 2000

Original bug ID: 125
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Hi,

Thank you for your message to the Caml mailing list.

However your message seems to be a bug report; hence I send it to the
relevant mailing list

caml-bugs@inria.fr

Thank again for your interest in Caml.

Pierre Weis

INRIA, Projet Cristal, Pierre.Weis@inria.fr, http://cristal.inria.fr/~weis/

I was observing some warnings about backwards compatibilty
from the HP linker

/usr/bin/ld:
92453-07 linker linker ld B.10.33 990520

for OCaml 3.00 sources.

The following patch appears to make the HP linker stop its
whining and complaining.

I don't know if it breaks things on the older linkers though
and don't have access to a machine still running HP-UX 9.

Enjoy.

--
Eric Schweitz, Ph.D.
Nortel Networks
PM Tools
Research Triangle Park


--- .old/asmcomp/hppa/emit.mlp Fri Apr 21 09:33:51 2000
+++ ./asmcomp/hppa/emit.mlp Thu May 18 14:16:46 2000
@@ -510,10 +510,10 @@
if alloc then begin
call_symbol s;
if hpux then begin

  •        `	ldil	LP'{emit_symbol s}, %r22\n`;
    
  •        `	ldil	LR'{emit_symbol s}, %r22\n`;
           describe_call i.arg;
           emit_call "caml_c_call" "%r2";
    
  •        `	ldo	RP'{emit_symbol s}(%r22), %r22\n`  (* in delay slot *)
    
  •        `	ldo	RR'{emit_symbol s}(%r22), %r22\n`  (* in delay slot *)
         end else begin
           `	ldil	L\`{emit_symbol s}, %r22\n`;
           emit_call "caml_c_call" "%r2";
    

--- .old/asmrun/hppa.S Fri Jan 7 08:27:52 2000
+++ ./asmrun/hppa.S Thu May 18 14:34:57 2000
@@ -529,8 +529,8 @@
STARTPROC
; Load address of array_bound_error in %r22
#ifdef SYS_hpux

  •    ldil    LP%array_bound_error, %r22
    
  •    ldo     RP%array_bound_error(%r22), %r22
    
  •    ldil    LR%array_bound_error, %r22
    
  •    ldo     RR%array_bound_error(%r22), %r22
    

#else
ldil L_array_bound_error, %r22 ldo R_array_bound_error(%r22), %r22
--- .old/configure Wed Apr 5 14:30:10 2000
+++ ./configure Thu May 18 15:05:25 2000
@@ -375,7 +375,7 @@
nativecclinkopts="-n32 -Wl,-woff,84";;
hppa,gcc*,hpux,hpux10)
nativecccompopts="$gcc_warnings"

  •                   nativecclinkopts="-Wl,+vnocompatwarnings";;
    
  •                   nativecclinkopts="";;
    
    power,gcc*,aix,aix4.3)
    nativecccompopts="$gcc_warnings -D_XOPEN_SOURCE=500";;
    power,*,aix,aix4.3)
@vicuna
Copy link
Author

vicuna commented Jun 5, 2000

Comment author: administrator

I was observing some warnings about backwards compatibilty
from the HP linker
/usr/bin/ld:
92453-07 linker linker ld B.10.33 990520
for OCaml 3.00 sources.
The following patch appears to make the HP linker stop its
whining and complaining.

Thank you for figuring out what the problem was! I couldn't
understand what caused this warning.

I don't know if it breaks things on the older linkers though
and don't have access to a machine still running HP-UX 9.

Neither do I, but I've applied your patch to the working sources, and
we'll see.

Thanks for the patch.

  • Xavier Leroy

@vicuna
Copy link
Author

vicuna commented Jun 5, 2000

Comment author: administrator

Fixed by Xavier on 2000-06-05

@vicuna vicuna closed this as completed Jun 5, 2000
@vicuna vicuna added the bug label Mar 19, 2019
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Projects
None yet
Development

No branches or pull requests

1 participant