[Pascal Script] Bug dans uPSRuntime

Bonjour,

J'ai rencontré un problème avec le uPSRuntime (ref. PascalScript)
J'ai ajouté à la ligne 10918

Code:

---

if (Tag<>nil) then

---

Effectivement,

Code:

---

1 2	for I := TPSRuntimeClassImporter(Tag).FClasses.Count -1 downto 0 do TPSRuntimeClassImporter(NIL)

---

ça fonctionne pas. :D

Cldt.
Iwoks

Bonjour ! Merci pour cette contribution mais ne serait-il pas plus utile de communiquer la chose à l'auteur du programme en question ?

En regardant le source sur https://github.com/remobjects/pascal...uPSRuntime.pas je retrouve la ligne incriminée en 11000, dans la fonction
function SpecImport(Sender: TPSExec; p: TPSExternalProcRec; Tag: Pointer): Boolean; .

La question reste ouverte de savoir dans quel cas de figure l'appel se fait avec un paramètre Tag à nil.

Afin de permettre l'expertise, envoie leur un exemple minimal reproduisant l'erreur observée.